Templates by BIGtheme NET
|
Willkommen,
Gast
|
THEMA:
Element verschieben 28 Jan 2023 09:27 #1
|
Hallo liebe Leute.
Habe mich am CX4 Skript 'Elemente verschieben' orientiert und versucht es ein wenig nachzubauen. Eine überhaupt höchst interessante Sache mit diesen beiden Programmierumgebungen zu experimentieren .
1 *** Demonstration des Verschiebens von Anzeige-Elementen mit der Maus 2 Anzeige-Fenster 'Elemente verschieben!', ID='demofenster' 3 Button 'Click und Verschiebe mich!', autom. Größe (ID='B1', Zielfenster='demofenster') 4 Warte Endlos (Warten auf zu behandelnde Ereignisse) 5 6 *** Nach einem Mausklick wird die Sprungmarke 'bewege_element' aufgerufen. 7 :: Anzeige_Element(B1)_Maustaste_unten 8 Setze in [klick]: '[klick]+1' , berechnen' 9 *** Wenn die Variable [klick] den Wert 2 eingenommen hat, wird das im Hintergrund ablaufende Unterprogramm 'bewege_element'¶wieder beendet. 10 Wenn (? '[klick]=2'), "" 11 Aufruf Marke 'bewege_element' im Hintergrund, Intervall 0 12 Setze in [klick]: '0' 13 Beende Unterprogramm (Zurück) 14 Sonst 15 Zeichne Raster, X=[cX.Anzeige.Element(??).X], Y=[cX.Anzeige.Element(??).Y], Breite=[cX.Anzeige.Element(??).Breite], Höhe=[cX.Anzeige.Element(??).Höhe], Ziel 'demofenster', Farbe 10, Auto, X3=2, Y3=2 16 Aufruf Marke 'bewege_element' im Hintergrund, Intervall 10ms 17 Ende Wenn 18 Beende Unterprogramm (Zurück) 19 20 *** Hier heftet sich das Element an den Mauszeiger. ...
Natürlich zur freien Verwendung, zum ausprobieren und nachschlagen. Und dem Hintergedanken dabei natürlich, daß jemandem eine elegantere Lösung einfällt.  Sollte eine besondere Lizenz erforderlich sein, bitte das Skript im Volltestmodus ausführen. lg Chrstian |
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
cX4Web Code