Templates by BIGtheme NET
|
Willkommen,
Gast
|
THEMA:
cx.smiley() Befehl 24 Mai 2021 12:17 #1
|
Hallo liebe Kollegen
Anbei ein funktionierendes Beispiel zum probieren oder weiter experimentieren und nachträglichem verändern der Schriftart. Wenn etwas nicht klappen sollte ev. den Volltestmodus nehmen..Smiley(Index)Liefert ein Smiley-Symbol, wobei als Index eine Zahl von 0-80 angegeben werden kann für verschiedene Smileys (z.B. ������).
1 *** Aufbau Fenster und Elemente 2 3 Anzeige-Fenster 'Smileys', ID='demofenster', Rahmen: einfach 4 Liste (ID='Liste_1', X='6,35', Y='3,44', Breite='68,26', Höhe='97,37', Zielfenster='demofenster', 'Microsoft YaHei', 10pt) 5 Button 'Schriftart' (ID='Button_1', X='76,2', Y='3,44', Breite='48,68', Zielfenster='demofenster') 6 Button 'Programmende' (ID='Button_2', X='76,2', Y='11,11', Breite='48,68', Zielfenster='demofenster') 7 8 *** Schleife generiert sog. Smileys in einer Liste 9 Schleife ab hier mit Variable von 0 bis 80 Schrittweite 1 10 Setze in [cX.Anzeige(demofenster).Liste(Liste_1).ListenText]: ' = [cX.Smiley()]' 11 Schleife bis hier 12 Warte Endlos (Warten auf zu behandelnde Ereignisse) 13 14 *** Standarddialog 'Schrift' zum ändern der Schriftart in der Liste 15 :: Anzeige(demofenster)_Element(Button_1)_Klick 16 Standard-Dialog 'Schrift' in [akt_schrift], kein Stopp, Ziel 'demofenster.Liste_1 17 Beende Unterprogramm (Zurück) 18 19 *** Programm beenden 20 :: Anzeige(demofenster)_Element(Button_2)_Klick ...
lg Christian |
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
cX4Web Code