Templates by BIGtheme NET
|
Willkommen,
Gast
|
THEMA:
Systemicons auswählen 19 Dez 2023 14:19 #1
|
Hallo,
ein kleines Skript zum Auswählen / Anzeigen der Systemicons. Ciao, Joachim
1 Anzeige-Fenster 'Iconauswahl', ID='IconAuswahl', Breite=50, Höhe=30, Rahmen: veränderbar Werkzeugfenster, sichern: Position+Größe 2 Zahlenauswahl, Minimum 0, Maximum 180, Schrittweite 1 (ID='x', Bindung [x], Zielfenster='IconAuswahl', Docking: oben, gebunden an [x]) 3 Tabelle , 181 Zeilen, 3 Spalten (ID='Tabelle', Zielfenster='IconAuswahl', Docking: ausfüllen, Farbe '15') 4 Schleife ab hier mit Variable [y] von 1 bis 180 Schrittweite 1 5 Setze , MultiSet 'cX.Anzeige(IconAuswahl).Tabelle(Tabelle).Zelle(1;[y]).Text=[y]¶cX.Anzeige(IconAuswahl).Tabelle(Tabelle).Zelle(2;[y])...' 6 Schleife bis hier 7 Bild-Element, Bildanzeige automatische Größe (ID='Bild_1', X='-12', Y='8', Zielfenster='IconAuswahl', Anker: 9, Farbe '15') 8 Setze in [cX.Anzeige(IconAuswahl).Zeichenfläche(Bild_1).Bild]: '%Icon([x])%' 9 Warte Endlos (Warten auf zu behandelnde Ereignisse) 10 :: Anzeige_Element(x)_Verändert 11 Setze , MultiSet 'cX.Anzeige(IconAuswahl).BindungAktualisieren=1¶cX.Anzeige(IconAuswahl).Zeichenfläche(Bild_1).Bild=%Icon([x])%¶cX...' 12 Beende Unterprogramm (Zurück)
|
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
cX4Web Code