Hallo lukiono,
geändertes Skript
Spoiler anzeigen
#RequireAdmin
[/autoit] [autoit][/autoit] [autoit];SplashImageOn("Bla",@ProgramFilesDir&"/programm/images/preloader.jpg",800,600,"-1","-1",1)
;Sleep(5000)
;SplashOff()
;GUI Beginn -----------------------------------------------------------------------------------------------------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <array.au3>
#Region ### START Koda GUI section ### Form=C:\Users\lukiono\Documents\programm\GUI_Template.kxf
$GUI = GUICreate("Image Conversion Program", 802, 601, 193, 49)
$unwandeln = GUICtrlCreateButton("Umwandeln", 192, 540, 161, 33, $WS_GROUP)
$update = GUICtrlCreateButton("Update", 432, 540, 161, 33, $WS_GROUP)
$beenden = GUICtrlCreateButton("Beenden", 664, 560, 129, 33, $WS_GROUP)
$vorschau = GUICtrlCreatePic("", 8, 8, 385, 305, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$status = GUICtrlCreateProgress(24, 480, 769, 25)
$bildliste = GUICtrlCreateList("", 408, 8, 209, 253)
$format = GUICtrlCreateList("", 648, 56, 81, 201)
$text1 = GUICtrlCreateLabel("Format auswählen", 648, 24, 135, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$bildwahl = GUICtrlCreateButton("Bild(er) auswählen", 408, 280, 209, 33, $WS_GROUP)
$zielwahl = GUICtrlCreateButton("Zielverzeichnis auswählen", 624, 360, 169, 33, $WS_GROUP)
$zielpfad = GUICtrlCreateList("", 16, 360, 601, 32)
$fortschritt = GUICtrlCreateLabel("Fortschritt", 344, 440, 85, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
$vorschaubutton = GUICtrlCreateButton("Vorschau", 240, 320, 153, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;GUI Ende ---------------------------------------------------------------------------------------------------------------------------------------------------------------------
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $beenden
$msgb = MsgBox(4, "Beenden", "Wollen Sie wirklich beenden?")
If $msgb = 6 Then Exit
Case $update
$msgb = MsgBox(0 + 64, "Update", "Diese Funktion steht zur Zeit nicht zur Verfügung!")
Case $bildwahl ;<=========== war auf $bildliste
[/autoit] [autoit][/autoit] [autoit]$message = "Um mehrere Dateien auszuwählen, ist die Strg-Taste oder die Shift-Taste zu drücken."
[/autoit] [autoit][/autoit] [autoit]$var = FileOpenDialog($message, @MyDocumentsDir & "", "Bilder (*.jpg;*.bmp)", 1 + 4)
;<============= $var war $Bildwahl hätte also die Button-ID überschrieben
If @error Then
MsgBox(4096, "", "Keine Datei(en) ausgewählt")
Else
$aFiles = StringSplit($var, "|") ;< ================== $var war $Bildwahl
If $aFiles[0] > 1 Then ;trifft nur bei Mehrfachauwal zu
;$aFiles[0] enthält Anzahl der Strings
;$aFiles[1] enthält den Pfad für alle ausgewählten Bilder
;$aFiles[2] enthält 1. Bild
;$aFiles[n+1] enthält n. Bild
;Rückgabe des Fileopenialogs in einzzenlne Strings für Array splitten
_ArrayDisplay($aFiles) ;Array anzeigen nur zu Verständnisuwecken evtl. deaktivieren
For $i = 2 To $aFiles[0]
_GUICtrlListBox_AddString($bildliste, $aFiles[1] & "\" & $aFiles[$i])
Next
Else
ConsoleWrite($aFiles[1] & @CRLF)
_GUICtrlListBox_AddString($bildliste, $aFiles[1])
EndIf
EndIf
Case $vorschaubutton
$sItem = _GUICtrlListBox_GetText($bildliste, _GUICtrlListBox_GetCurSel($bildliste))
If $vorschau = 0 Then
$vorschau = GUICtrlCreatePic($sItem, 5, 180, 256, 256)
;es gibt noch kein Control das ein Bild aufnehmen kann, also erzeugen
;nur vorichtshalber (in füheren Versionen wurde ohne Filenamen kein Pic-Control angelegt)
Else
GUICtrlSetImage($vorschau, $sItem)
;es bereits ein Control das ein Bild aufnehmen kann, also anderes Bild anzeigen
EndIf
EndSwitch
WEnd
Änderunen mit ;<=========== geknnzeichnet
mfg (Auto)Bert
