Registriert seit: 8. Okt 2004
Ort: Bernau
108 Beiträge
Delphi 10.4 Sydney
|
Re: Zieh- oder Anfasspunkte um markierte Objekte
31. Okt 2007, 11:23
Hallo,
Danke für die Tipps. Ich hatte es dann zwischenzeitlich bereits so ähnlich wie im Tipp von Matze realisiert. Hab allerdings keine Panele verwendet, sondern um das vorhandene TShape, das zu stretchen ist, weitere acht Shapes gelegt.
Jedem Shape habe ich einen entsprechenden Cursor zugeordnet (crSizeNS, crSizeWE, crSizeNWSE, crSizeNESW) sowie eine entsprechendes OnMouseOver - Ereignis, mit dem ich das zu stretchende Shape in die entsprechende Richtung vergrößern oder verkleinern kann sowie die betreffenden Markierungs-Shapes verschiebe.
Ist vielleicht nicht die eleganteste Lösung, weil ich keine eigene Klasse entwickelt hab, aber für mein Projekt ausreichend.
Steffen
Steffen
|