Reply to TImage - Ebene on Mon, 14 Apr 2008 06:38:37 GMT

christianz — Mon, 14 Apr 2008 06:38:37 GMT

Hallo,

Folgendes Problem steht mir momentan gegenüber:

Ich habe window:

TForm* Window

darunter

TPanel* Panel

innerhalb dieses Panel ein

TImage *Picture

Das Picture ist sozusagen das Hauptbild,
nun kann ich ein weiteres Bild als quasi Ebene laden:

TImage *ebene;
ebene->Parent=Panel;

Funktioniert auch einwandfrei und ich habe 2 Bilder Übereinander und kann bereits per OnMouseDown,OnMouseUp,OnMouseMove die Ebene verschieben.
Nun macht mir Probleme:

Wie kann ich beide Bilder bzw. Ebene zu einem ganzen Bild zusammenfügen ?
Wenn ich eine 2te Ebene lade dann kann ich nur das "oberste" bild bewegen und die 1te Ebene nicht mehr (da sie dahinter liegt)

Kann mir hierbei wer helfen ?

Reply to TImage - Ebene on Mon, 14 Apr 2008 07:40:36 GMT

stein — Mon, 14 Apr 2008 07:40:36 GMT

1. Einfachste Möglichkeit wäre dir das Canvas des Form zu holen und das dann in ein TImage speichern.
Falls das nicht funktioniert (hab grad keinen Borland da um es zu testen) holst du dir das Canvas des Desktops und schneidest das entsprechend zu.

2. Zunächst ein mal fügst du irgendwo eine Liste ein in der der Benutzer auswählen kann welches Panel (warum eigentlich nicht gleich mehrere TImage-Objekte? ) er verschieben möchte.
Über alle anderen Ebenen legst du eine Überebene in der du auf deine Maussignale reagierst. Die gewünschten Änderungen setzt du dann am ausgewählten Panel um.