ScrollBox mit Hintergrund

[thomas2009]

Hallo
ich weiß nicht ob es möglich ist, ein Bild als Hintergrund für ScrollBox zuzuweisen
Nicht unbedingt ein Bitmap. ich möchte damit einen Raster (Gitter) auf ScrollBox erstellen

hat jemand einen Vorschlag ?

[himitsu]

etwas im OnPaint, der ScrollBox, zeichnen

oder z.B. ein TImage in die ScrollBox einfügen



Ja und soll der Hintergrund eigentlich mitgescrollt werden, oder feststehend sein?

[thomas2009]

Aber leider die ScrollBox hat kein Canvas
sonst hätte ich folgendes gemacht:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
var
  i, j, k, n: Integer;
  ACanvas: TCanvas;
  R: TRect;
begin
  ACanvas := Form1.Canvas;
  R := Form1.ClientRect;
  ACanvas.Pen.Style := psSolid;
  ACanvas.Pen.width := 2;
  ACanvas.Pen.Color := clRed;
  //ACanvas.Brush.Color := clLtGray;
  ACanvas.Brush.Color := clBlue;

  for i := 0 to (R.Right - R.Left) div 32 do
    for j := 0 to (R.Bottom - R.Top) div 32 do
    begin
      n := Round(32 * i);
      k := R.Top + Round(32 * j);
      ACanvas.MoveTo(n, k);
      ACanvas.LineTo(n+1, k+1);
    end;
end;

[himitsu]

wie gesagt, du kannst immer noch TCanvas/TImage in die ScrollBox packen.

und soll das Muster nun fest stehen, oder mitscrollen?



Anhang:
hab da einfach nur 2 ScrollBoxen, darin ein paar Buttons (damit man des rumscrollen schön sieht) und im Hintergrund ein TCanvas

bei der linken TPaintBox wird (nachm Scrollen) .Left und .Top auf 0 gesetzt (OK, hab geschummelt, da läuft ein Timer, welcher das macht, aber irgendwie kann man bestimmt mitbekommen, ob gescrollt wurde? )

[Florian H]

@himitsu: Naja, die linke Scrollbox ist ja ziemlich verbuggt: scrolle mal nach ganz rechts - falls du es schaffst, bis ganz nach rechts zu kommen :P
(selbiges gilt für "nach unten" - das Bild wird immer größer)

[himitsu]

da müßte wohl noch etwas dran rumgebastelt werden, :stupid:
aber wenn man die Größe der PaintBox an die ScrollBox anpaßt, dann sollte sich dieses Problem beheben lassen.

ka klar erreicht man hier irgendwann z.B. das rechte ScrollBoxEnde ... bei mir so nach ca. 2000000 Bildschirmbreiten