-
daywalker
-
-
Offline
-
Platinum Boarder
-
-
Beiträge: 1014
-
Dank erhalten: 681
-
-
|
Hallo mein Lieber ich habe Dein Skript ein bisserl verändert. Bitte Kommentar beachten, was mir auffiel. Ansonsten funktioniert es an sich...
lg Christian
cX4Web Code
Was ist das? 1
2 *** Ordner wählen
3 Standard-Dialog 'Ordner' in [Ordnerwahl], Titel='Bildordner wählen...', Vorgabe='*.jpg|*.png|*.bmp', kein Stopp
4 Setze in [cX.Stapel(Bilderstapel).Anhängen]: '[cX.Datei([Ordnerwahl]).Liste(*.jpg|*.png|*.bmp)]'
5
6 Anzeige-Fenster 'Bildbetrachter', ID='Programm', Breite=208,23, Höhe=146,58, Rahmen: einfach 3D, Bild='static.spektrum.de/fm/912/iStock-1194729678.jpg?f=2000x857'
7 Bild-Element, scrollbar, anordnen 1 (ID='BildContainer', X='3,18', Y='3,18', Breite='126,47', Höhe='124,35', Zielfenster='Programm', Farbe '-1')
8 Baum '[cX.Stapel(Bilderstapel).Liste]', Stil: 'Baumlinien, Plus, Bild, Text' (ID='Baum_1', X='131,23', Y='3,18', Breite='71,97', Höhe='124,35', Zielfenster='Programm', fett)
9
10 *** Nach jedem Schleifendurchlauf wird alles neu gezeichnet. Bei einem Ordner mit ¶vielen Bilddateien kann das dauern und Dateinamen wie ¶zum Beispiel wienerwaldsee2(2),jpg erzeugen einen Fehler...¶Die Taste F7 zeigt auch bei einem grossen Kommentar dann alles komfortabel an.
11 Schleife ab hier mit Variable [Zähler] von 1 bis [cX.Stapel(Bilderstapel).Anzahl] Schrittweite 1
12 Setze , MultiSet 'bilddat=[Ordnerwahl][cX.Stapel(Bilderstapel).Wert([Zähler])]¶cX.Anzeige(Programm).Titel=[Zähler]'
13 Bild-Element Bild '[bilddat]', Bild angepasst (ID='Bild_[Zähler]', Breite='20', Höhe='20', Zielfenster='Programm.BildContainer', deaktiviert 0)
14 Schleife bis hier
15
16 Setze in [cX.Anzeige(Programm).Transparenz]: '0'
17 Warte Endlos (Warten auf zu behandelnde Ereignisse)
18
19 :: Anzeige(Programm)_Element(Baum_1)_Klick
20 Meldung '[Ordnerwahl][.Element(Baum_1).Wert]', Titel 'Titel', Buttons 'Nur OK', Symbol 'Information'
...
cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen
(21 Zeilen, cX 5.0.8.5, Lizenz: Cmd_Table, ElementPlus, Premium)
Folgende Benutzer bedankten sich: Soko, Hideki, technicplace
|