Lineal zeichnen und Art Tabstops setzen

[Stephan Schneider]

Hallo,

Umg.: Delphi 6 Ent. UP2

Wie zeichne ich eine Art Lineal (wie in Word) und ermögliche das Setzen von Markern (wie Tabstops) an unterschiedlichen Positionen auf dem Lineal? Man sollte die Positionen dieser Marker auch ermitteln können, z.B. an 2, 7, 19 etc.

Danke<br>Stephan

[Bobo]

Hallo,

nicht ganz so einfach:

in der Regel erstellt man sich für so etwas eine eigene Komponente oder findet eine entsprechende im Netz (Google, www.torry.net).

Falls man dies selbst tut, empfiehlt sich ein TCustomControl als Basis mit entsprechend überschriebenen Methoden (Paint zum Zeichnen, MouseDown und MouseUp zum Setzen der Marker an bestimmten Positionen). Die Marker kann man als einfache Objektliste in der Klasse verwalten.

Gruß,
Sve