Statisches BG in ScrollBox

[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 von 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.

Nein sollen sie nicht

[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.