Einzelnen Beitrag anzeigen

Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.054 Beiträge
 
Delphi 2009 Professional
 
#4

AW: Sticky x-Achse programmieren

  Alt 22. Jul 2019, 19:56
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.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat