Liebe Tester anbei wieder ein kleines Beispiel zum experimentieren und zur freien Verwendung.
Sollte ohne Volltestmodus funktionieren.
lg Christian
cX4Web Code
Was ist das?
1 *** Zusammengefasst aus DOKU
2 *** Platzhalter: Systemparameter
3
4 Anzeige-Fenster 'Platzhalter: Systemparameter', ID='hauptfenster', Rahmen: veränderbar
5 Button '&Beenden' (ID='Button_1', Zielfenster='hauptfenster', Docking: unten)
6 Listenansicht Typ 'Details', Spalten 'Platzhalter;spalte1;;1¶Ergebnis;spalte2;;2', Inhalt 'cx.AktFenster;befehl1;;Titel des im System aktuellen Fensters^T[cX.AktFenster]¶cx.AktFensterNummer;b...' (ID='Listenansicht_1', X='2', Y='2', Breite='[cX.Anzeige(hauptfenster).Breite]-4', Höhe='[cX.Anzeige(hauptfenster).Höhe]-20', Zielfenster='hauptfenster', Anker: 15)
7 Setze , MultiSet 'cX.Anzeige.Liste(Listenansicht_1).LVAutoSpaltenbreite=-1¶'
8
9 Warte Endlos (Warten auf zu behandelnde Ereignisse)
10
11
12 *** Skript beenden
13 :: Anzeige(hauptfenster)_Element(Button_1)_Klick
14 Beende Skript
15
16 *** Schließt das offene Ausgabefenster
17 :: Anzeige(Anzeigefenster)_Element(Button_1)_Klick
18 Setze in [cX.Anzeige(Anzeigefenster).Schließen]: ''
19 Beende Unterprogramm (Zurück)
20
...
cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen
(39 Zeilen, cX 5.0.8.2)