Text auf Bitmap

[Andreas Horlaender]

Hallo <br>
ich möchte auf einem TImage (type TBitmap) Text plazieren ähnlich einer
Funktion in PhotoShop. Der Text wird zuvor in einem Memo erzeugt, nach der einbindung als Image soll der Text mit der Mouse verschoben werden können bis zum entgültigen speichern. Das ganze dient der Dokumentation von Bildern. <br> Hat jemand so etwas schon mal gemacht ?

[Hagen Reddmann]

Lege über das TImage ein TLabel mit dem entsprechenden Text und verschiebe es. Wenn es dann passt einfach den Text in Bitmap.Canvas zeichnen und das Label unsichtbar machen. Oder nutze ein TStaticText dann kannste mit .Perfrom(wm_SysCommand, sc_Move or 1, 0); das sogar in der Laufzeit verschieben

[Andreas Horlaender]

Danke Hagen :-