Statisches BG in ScrollBox

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

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

[TiGü]

Zitat von BLin4ik:

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