Sticky x-Achse programmieren

[hoika]

Hallo,
Align=alBottom benutzen?

[Redeemer]

Code:

+------+----------+
|      |TImage     |
+------+----------+
|TImage|TScrollBox|
+------+----------+

Die TImage sind links oder oben angeordnet, die Scrollbox auf dem Client. In der Scrollbox liegt eine TPaintBox. Deren OnPaint-Event beginnt so:

Delphi-Quellcode:

PaintRowHeaders.Top := -ScrollBox1.VertScrollBar.Position;
PaintColumnHeaders.Left := -ScrollBox1.HorzScrollBar.Position;

Statt TImage kann man auch oben und links TPaintBox nehmen, wenn das Bild zu groß würde.