|
Registriert seit: 30. Dez 2002
Ort: Brandshagen
1.819 Beiträge
Delphi 2007 Professional
|
14. Apr 2003, 09:22
Hi Schwanengel,
erst mal auf die Schnelle.
Wenn du dir eine Werkzeugleiste baust, also ein neues Formular mit der Eigenschaft FormStyle := stayontop und BorderStyle := bs ToolWindow, dann hast du schon mal was zum sammeln Deiner Strempel. Dort dann eine ToolBar rein und soviele Buttons wie Stempel anlegen. Eigenschaft Flat für Buttons macht sich bestimmt gut. Die Buttons-Bitmaps aus deiner ImageList auswählen. Button-Eigenschaft Style auf tbsChecked setzen. Jetzt kannst du deinen "Button-Stempel" durch auswählen (bleibt gedrückt) setzen.
Setze in die Ereignisbehandlungsroutine für OnMouseMove über deinem Zeichnungsobjekt das Zeichnen eines Rectangels in der Größe deines Stempels. Dann siehst du den Umriß deines Stempels beim Bewegen über der Zeichenfläche. Vergiß das Löschen des Rechtecks nicht!
Ich muß jetzt grad mal schluß machen. Den Rest später.
Gruß oki
|