Templates by BIGtheme NET
Willkommen, Gast
Benutzername: Passwort: Angemeldet bleiben:
  • Seite:
  • 1

THEMA:

Element verschieben 28 Jan 2023 09:27 #1

  • daywalker
  • daywalkers Avatar Autor
  • Offline
  • Platinum Boarder
  • Platinum Boarder
  • Beiträge: 764
  • Dank erhalten: 581
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 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


 (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

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

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

Community

Wir benutzen Cookies

Wir nutzen Cookies auf unserer Website. Diese Cookies sind essenziell für den Betrieb dieser Website. Sie können selbst entscheiden, ob Sie die Cookies zulassen möchten. Bitte beachten Sie, dass bei einer Ablehnung womöglich nicht mehr alle Funktionalitäten der Seite zur Verfügung stehen.

Sie sind noch nicht Mitglied unserer Community? Melden Sie sich jetzt an!

Anmelden