TImage - Ebene



  • 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:

    1. Wie kann ich beide Bilder bzw. Ebene zu einem ganzen Bild zusammenfügen ?
    2. 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 ?



  • 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.


Log in to reply