Einzelnen Beitrag anzeigen

Benutzerbild von runningsoft
runningsoft

Registriert seit: 8. Okt 2004
Ort: Bernau
108 Beiträge
 
Delphi 10.4 Sydney
 
#6

Re: Zieh- oder Anfasspunkte um markierte Objekte

  Alt 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
  Mit Zitat antworten Zitat