Statisches BG in ScrollBox

[BLin4ik]

Hallo,

und zwar würde ich gerne einen Statischen Background in meiner scrollBox haben ohne das sich das
Bild mit bewegt.

Zur Zeit habe ich es so gelöst, dass ein ScrollEvent ausgelöst wird und der Top des TImage mitzieht.
Ist aber einer sehr unschöne Lösung und führt dazu, dass das Bild nach dem Scrollen kurz flakkert.

Hätte jemand eine elegantere Lösung für mich? Ohne das man merkt, dass sich das Top einfach verschiebt.

[Perlsau]

Wie was wo? :roll:

Statisches Background in einer Scrollbox? Und welches Bild? Hast du ein TImage in der Scrollbox platziert? Und was soll da statisch, also unbeweglich bleiben?

[Der schöne Günther]

Viel einfacher wäre es doch, die Scrollbox durchsichtig zu machen (

Delphi-Quellcode:

ParentBackground = True

) und deinen Hintergrund ... dahinter zu legen. Also hinter die Scrollbox.

[baumina]

Zitat:

Zitat von Der schöne Günther (Beitrag 1248483)

Viel einfacher wäre es doch, die Scrollbox durchsichtig zu machen (

Delphi-Quellcode:

ParentBackground = True

) und deinen Hintergrund ... dahinter zu legen. Also hinter die Scrollbox.

Ich glaube das gabs bei Delphi 5 so noch nicht.

[BLin4ik]

Zitat:

Zitat von baumina (Beitrag 1248486)

Zitat:

Zitat von Der schöne Günther (Beitrag 1248483)

Viel einfacher wäre es doch, die Scrollbox durchsichtig zu machen (

Delphi-Quellcode:

ParentBackground = True

) und deinen Hintergrund ... dahinter zu legen. Also hinter die Scrollbox.

Ich glaube das gabs bei Delphi 5 so noch nicht.

Richtig, gibt es nicht.

Ich hab mal was anderes probiert, ich habe in dieser ScrollBox eine Paintbox.
Für meine Zwecke würde es eigentlich auch reichen, wenn ich auf die Scrollbox verzichte und
einfach nur eine Scrollbar verwende und das Ding mit meiner Paintbox verknüpfe.

Denn ein unbewegliches Bild in eine Scrollbox zu plazieren ist nicht in 5 Minuten gemacht. :|

[Perlsau]

Erklär doch einfach mal, was du eigentlich erreichen willst. Wenn ich z.B. eine Grafik scrollen möchte, dann platziere ich ein TImage in einer TScrollbox, setze Top und Left des TImage auf 0 und Autosize auf True. Das hat zur Folge, daß das Bild im TImage immer in Originalgröße angezeigt wird. Da verschiebt sich kein Bild beim Scrollen, falls das Bild größer ist als der Clientbereich der Scrollbox. Das Platzieren der genannten Komponenten dauert keine 20 Sekunden.

[BLin4ik]

Zitat:

Zitat von Perlsau (Beitrag 1248525)

Erklär doch einfach mal, was du eigentlich erreichen willst. Wenn ich z.B. eine Grafik scrollen möchte, dann platziere ich ein TImage in einer TScrollbox, setze Top und Left des TImage auf 0 und Autosize auf True. Das hat zur Folge, daß das Bild im TImage immer in Originalgröße angezeigt wird. Da verschiebt sich kein Bild beim Scrollen, falls das Bild größer ist als der Clientbereich der Scrollbox. Das Platzieren der genannten Komponenten dauert keine 20 Sekunden.

Das habe ich auch getan, aber sobald ich anfange zu Scrollen fängt der BG extrem an zu Flackern, das sieht alles nicht so flüssig aus.

[Perlsau]

Also bei mir flackert da nichts, auch kein BG, was immer das sein soll.

[BLin4ik]

Ich glaube wir reden aneinander vorbei.

Ich möchte nicht, dass das ganze Bild abgebildet wird sondern nur, dass immer nur ein Teil angezeigt wird, d.h. der Hintergrund soll sich
auch nach dem Scrollen nicht ändern oder seine Position verändern.
Ich möchte immer den gleichen Hintergrund haben komme was wolle.

Da hatte ich als Lösung, dass nach jedem Scrollen das TImage.Top = 0 immer explizit von mir gesetzt wurden ist und dadruch
krieg man den Effekt, dass man nach jedem Scrollen diese Veschiebeung mitkriegt/sieht.

und über diese Bild liegt nochmals ein eine PaintBox auf der ein haufen Sachen dynamisch zeichne.

[Perlsau]

Werden wir mal konkret: Angenommen, du hast eine Scrollbox mit der Breite 500 und der Höhe 300. Darin platzierst du ein TImage an der Position 0/0, wobei Audosize auf True steht, Stretch dagegen auf False. Nun lädst du ein Bitmap in dieses TImage, das die Größe 1000 x 2000 hat. Angezeigt wird, bevor du scrollst, jedoch nur der Bereich, den die Scrollbox anzeigt. Vom Hintergrund der Scrollbos ist dabei nichts zu sehen, da das TImage den ganzen Clientbereich der Scrollbox ausfüllt und sogar darüber hinaus geht. Das TImage bleibt jedoch immer an seiner Position stehen, das mußt du nicht im Programm setzen.

Wenn du dagegen erreichen willst, daß stets das gesamte Bild im TImage angezeigt wird, mußt du im TImage folgendes einstellen:

1. TImage auf alClient stellen, so daß es den kompletten Clientbereich der Scrollbox ausfüllt.
2. Ausosize auf False stellen.
3. Stretch auf True stellen.
4. Proportional auf False stellen, falls du willst daß das Bild immer den kompletten Clientbereich des TImage ausfüllt, wobei das Bild aber verzerrt dargestellt wird.

Hier kannst du erstmal nicht scrollen, da es nichts zu scrollen gibt. Das ändert sich natürlich, wenn du nun eine zweite Komponente in der Scrollbox ablegst. Scrollst du nach unten, weil die Paintbox größer ist als der Clientbereich der Scrollbox, siehst du das TImage natürlich nicht mehr. Wenn du es nun via Code verschiebst, ist klar, daß es flackert, weil ja was gezeichnet wird, und bei jedem Zeichenbefehl des TImage auch ein Neuzeichnen der Paintbox ausgelöst wird.

Hast du schon mal ein Programm gesehen, bei dem eine Scrollbox einen festen Hintergrund hat, der nicht nur aus einer Farbe besteht, sondern gezeichnet ist?

Und bitte: Lege keine Bilder, die man hier zur Anschauung benötigt, auf irgendwelchen Servern ab. Du kannst hier wunderbar Bitmaps und JPegs anhängen. Ich klicke nie auf solche Links, weil etliche dieser Pixelserver bei mir Virenalarm auslösen.

Noch was: Rede doch bitte nicht immer nur von "Bild", wenn du einmal die Paintbox und ein andermal das TImage meinst. Außer dir kann hier keiner wissen, was genau du meinst. Nenne die Komponenten am besten bei ihrem Klassennamen: TImage oder Image, TPaintBox oder PaintBox usw., dann weiß jeder, was du meinst.

[DeddyH]

Es geht darum, in einer ScrollBox einen statischen Hintergrund (eine Grafik) zu haben, auf dem die anderen Elemente scrollen, wie auch auf div. Webseiten zu sehen.

[baumina]

Wenn du dir das Beispiel anpasst, müsste das klappen: How to create a TScrollBox with its own background

[BLin4ik]

@DeddyH genau das meinte ich
@baumina hatte ich schon versucht, da geht der BG immer noch mit

Hab mal eben eine Skizze gemacht diese nummeriert und angehangen.

Folgende Situation:

Die TScrollBox ist von der Größe beschränkt und hat die Größe von 870x305.
Nun wurde das TImage mit einem Bitmap in die TScrollBox anbgelegt.
Die Ausrichtung von dem TImage ist NICHT alClient sondern auf AlNone.
Das Bitmap an sich ist 1920x1200 groß und das TImage hat die Länge und Breite
von TScrollBox übernommen. Es wurde kein Stretch eingstellt.
Das führt dazu dass wir nur einen kleinen Teil des Bitmaps sehen,
das ist auch so gewollt.

Nun wird noch eine TPaintBox abgelegt und ich berechne die Höhe von TPaintBox und diese ist höher
als die vom Bitmap. (Siehe 3 und 2)

Wenn ich nun über das TImage hinausscrolle, ist danach Schluss mit dem
Bitmap.

deswegen möchte ich nur einen Teil bis zum Maximum der ScrollBar immer Konstant anzeigen,
sodass immer der gleiche Teil des Bitmaps mitläuft und nie endet.(siehe 1)

Also soll das TImage als unveränderbares BG fungieren.

[DeddyH]

Sollen die Wolken nun mitscrollen oder nicht? Ich dachte ja, ich hätte verstanden, was Du willst, bin mir jetzt aber auch nicht mehr sicher.

[BLin4ik]

Zitat:

Zitat von DeddyH (Beitrag 1248571)

Sollen die Wolken nun mitscrollen oder nicht? Ich dachte ja, ich hätte verstanden, was Du willst, bin mir jetzt aber auch nicht mehr sicher.

Nein sollen sie nicht :stupid:

[DeddyH]

Dann nimm doch mal das gepostete Beispiel und lass die gesamte Positionsberechnung einfach weg, dann sollte es nach kurzem Überfliegen eigentlich klappen.

[BLin4ik]

Naja ganz weglassen kann ich sie an der Stelle nicht, dann würde
es ja gar nicht gezeichnet werden.

Krieg das leider auch nicht so gewünscht hin.

Delphi-Quellcode:

procedure TMyScrollBox.Painting;
var
  FDrawHeight, FDrawWidth: Integer;
  Row, Column, xl, xt, xw, xh: Integer;
  xdl, xdt: Integer;
  xRect: TRect;
  i: integer;
  xhdl: Word;
begin
  if (FNHBitmap.width <> 0) and (FNHBitmap.Height <> 0) then
  begin
    xRect := ClientRect;
    FDrawHeight := xRect.Bottom - xRect.Top;
    FDrawWidth := xRect.Right - xRect.Left;
    xdl := (HorzScrollBar.Position mod FNHBitmap.Width);
    xdt := (VertScrollBar.Position mod FNHBitmap.Height);
    for Row := 0 to (FDrawHeight div FNHBitmap.Height) + 1 do
    begin
      for Column := 0 to (FDrawWidth div FNHBitmap.Width) + 1 do
      begin
        xl := Column * FNHBitmap.Width + xRect.Left - xdl;
        xt := Row * FNHBitmap.Height + xRect.Top - xdt;
        xw := FNHBitmap.Width;
        if (FDrawWidth - xl + xRect.Left) < xw then
          xw := (FDrawWidth - xl + xRect.Top);
        xh := FNHBitmap.Height;
        if (FDrawHeight - xt + xRect.Top) < xh then
          xh := (FDrawHeight - xt + xRect.Top);
      
        (*  FNHCanvas.CopyRect(
          Rect(xl, xt, xl + xw, xt + xh),
          FNHBitmap.Canvas,
          Rect(0, 0, xw, xh)*)
          

          // Kopiert immer gleichen Bereich und fügt ein
          FNHCanvas.CopyRect(
          Rect(0, 0, xw, xh),
          FNHBitmap.Canvas,
          Rect(0, 0, xw, xh)         

        );
      end;
    end;
  end;
end;

[DeddyH]

Ich habe etwas herumprobiert (mit Delphi 5 unter Win 8.1), und hier ist zumindest mal ein Ansatz.

[BLin4ik]

Das ist schon eine sehr gute Lösung!

Habe es eben mal ausprobiert ohne weiteres läuft es sehr gut,
nur leider sieht es mit den weiteren Inhalten in der Scrollbox einwenig schlecht aus.
Ich habe ja zusätzlich noch eine Paintbox mit liegen, die auch ihre Sachen zeichnet.
Und nach jedem Scrollen wird ja immer neugezeichnet, dann wirkt sich auf die
Anzeige der Paintbox aus -> Flakkern nach jedem Scrollvorgang.
Da hilft ein Doublebuffered auch nicht mehr.

[DeddyH]

Da hab ich jetzt spontan auch keine rechte Idee dazu.

[BLin4ik]

Naja ist weiter auch nicht schlimm,
habe auch eine andere Idee wie ich das nach meine Vorstellungen realisieren könnte.

Trotzdem danke! :thumb:

[TiGü]

Zitat:

Zitat von BLin4ik (Beitrag 1248735)

...nur leider sieht es mit den weiteren Inhalten in der Scrollbox einwenig schlecht aus.

Liegt die Scrollbox direkt auf dem Formular oder noch in weiteren Containern (TabSheets, Panels, GroupBoxs)?

[BLin4ik]

Die ScrollBox befindet sich in einem TPageControl