Willkommen, Gast

THEMA:

Element verschieben 28 Jan 2023 09:27 #1

daywalker
Autor
Offline
Platinum Boarder
Beiträge: 985
Dank erhalten: 672

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 .

 cX4Web Code

Was ist das?
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. 

...
cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen
			
**cx5AR-LC AAAAAAABAC 9Vt1OGkEUv m_SdzidJlX TFsVe9ELWR kADbVAjVjC NIQN72J24M 0NmZwF9sL5 AX6xn9kdQI wtt0xuYM3t -v_PNmal1R 0ZM7OHrVwC 1RhLZxOChj 7XdYp190FJ y5ceptJAh_ 7-8m6DHnID KMrjEufVYE 6VWsTXcCq3 Axxiu0MSjU OAQVQxT2jx S9ygC_Hgco bNEBVJYUjX Q4UnMYHdlv G6oZz2hfD1 j0PY95lPAM bm2aIocCsc wXYR-w6Ajl JDiHut67rE 9kvn8kbw6b j2xVisGR4n VXbLyWDVLo F4t4jYiMbq FhCwXNVNto 5CCn3NDKZ1 oI58l3XC5G ucvT4BSONH KLhLazTNZm WCPC1tWxLG c2LsypScdP eWjEFAolGl _btMiZ8L44 AuE7sQkKpD c3CJsDXGGA Q4ww38LeDI O0CRUaaUs6 NdETjrkhcE plyTnJBnkv dyuV3cGLrz lBNogcbQpZ QraK24EH0b IoFh5LC2AU NfOB9X3I92 4eU9tbPBol ETcZs3dCKU eKpUCUgSC3 C8RW0EPjYV 9h2KAKjWEk NsPOYw8BiG hJRwNAuP4Q w64g81H-O5 2J0YHhkv5D OJ3b-fNA_o 5OpgJdEdoi M7KluLdtdz Y9jjFwRfus Gb71aWdKx4 l-ACQt5_VS m4mROZnqsJ fAzXXZgZFs 7NWPy6JQU_ Y8FLI7Egsp LYDYsqjNc7 qmp0v9XOs_ FKVKEYH42q tpuE0rrL1Z xoGOk5R6xO 4o34l53ql4 PqXLzuV_s1 C7fpltWtSO 8WApu0Uz77 lgPk2fNmib lBYJLMWfQr ty4qtXz9DX Mqi_8lj-0t JZWI2itvNJ zPtAn0q-Ux dYFzMyoaOt GspoX4ioui cW9JUfz32_ gmjqnuy9OI hMpQ3eh3G_ MEMbgk62iG OLVqI6UJJZ 0beLOAqnTF uOqZdNBsP2 6d4bXC6OvR gELRDPKosz Wrir7dErO0 lcuxUXKb9m 8Xoemx5XWL pKP9_mrDZn aSH5VfSUmY P7HbPq9pu_ iD7DdgYenK ZCQAA=*
  (26 Zeilen, cX 5.0.10.0, Lizenz: Premium)

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

Folgende Benutzer bedankten sich: Soko, Meiky

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

Letzte Änderung: von daywalker. Grund: Was vergessen ;-)

Forum

click.EXE 5.0

Allgemeines

Beispielskripte

Element verschieben

THEMA:

Element verschieben 28 Jan 2023 09:27 #1

Community

Anmelden