AutoIt/FotoSort2017
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
master
FotoSort2017/FotoSort2017.au3
Bernhard c4e8d2440e First
2017-09-09 21:15:08 +02:00

3476 lines
199 KiB
AutoIt
Raw Permalink Blame History

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=FotoSortNeu.ico
#AutoIt3Wrapper_Res_Comment=2017 BLinz
#AutoIt3Wrapper_Res_Description=FotoSort2017.exe
#AutoIt3Wrapper_Res_Fileversion=1.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=n
#AutoIt3Wrapper_Res_LegalCopyright=Public Domain
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
#include <AutoItConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Crypt.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <GDIPlus.au3>
#include <GDIPlusConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiMenu.au3>
#include <GuiStatusBar.au3>
#include <Misc.au3>
#include <SendMessage.au3>
#include <StaticConstants.au3>
#include <StructureConstants.au3>
#include <WinAPI.au3>
#include <WinAPIConstants.au3>
#include <WinAPISys.au3>
#include <WinAPIGdi.au3>
#include <WindowsConstants.au3>
; lokale UDF
#include "GIFAnimation.au3"
#include "xResources.au3"
AutoItSetOption("MustDeclareVars", 1)
AutoItSetOption("GUIOnEventMode", 1)
; Dieses Programm ist eine alternative Version von Oscars FotoSort.au3
; https://autoit.de/index.php/Thread/39572-FotoSort/
; So ein Programm fehlte mir. Die neue Version habe ich geschrieben um es an meine HD-Monitore anzupassen (und ein paar andere Dinge die mir fehlten
#Region Variablen
; #####################################################################################
; ## ## ### ######## #### ### ######## ## ######## ## ##
; ## ## ## ## ## ## ## ## ## ## ## ## ## ### ##
; ## ## ## ## ## ## ## ## ## ## ## ## ## #### ##
; ## ## ## ## ######## ## ## ## ######## ## ###### ## ## ##
; ## ## ######### ## ## ## ######### ## ## ## ## ## ####
; ## ## ## ## ## ## ## ## ## ## ## ## ## ## ###
; ### ## ## ## ## #### ## ## ######## ######## ######## ## ##
;~ ####################################################################################
; Variablen für globale Voreinstellungen
Global Const $s_ProgramTitle = "FotoSort2017"
Global Const $s_ProgramVersion = "v1.1"
;~ Global Const $s_ProgramVersion = "v" & FileGetVersion(@ScriptFullPath)
Global Const $s_FontNameForm = "Calibri"
Global Const $s_FontSizeForm = 12
Global Const $s_FontNameInputs = "Consolas"
Global Const $s_FontSizeInputs = 12
; Variablen für die GUI
Global $h_FormFotoSort2017
Global $id_GroupTargetDirectories
Global $id_GroupFileFormats
Global $id_GroupFileExists, $id_RadioOverwrite, $id_RadioAddSuffix, $id_InputSuffix, $id_RadioAskOverwrite, $id_CheckboxDoubleFiles, $id_LabelCountingNumber
Global $id_GroupTools
Global $id_GroupQuellverzeichnis, $id_InputSourceDirectory, $id_ButtonSelectSourceDirectory, $id_CheckboxScanFolderRecursive
Global $id_Picture, $id_ButtonPicBack100, $id_ButtonPicBack10, $id_ButtonPicBack1, $id_ButtonPicForward1, $id_ButtonPicForward10, $id_ButtonPicForward100, $id_ButtonPicGoToFirst, $id_ButtonPicGoToLast, $id_InputPicNumber, $id_CheckboxPictureFitSize
Global $id_StatusBar
Global $id_ButtonSelected1, $id_ButtonSelected2, $hex_SignalColor = 0xE10096
Global $id_ToolSelected1, $id_ToolSelected2, $id_ProfilesDummy
Global $id_ButtonAddTargetDirectory, $id_ButtonRemoveTargetDirectory
Global $id_LabelBehindPicture1, $id_LabelBehindPicture2, $id_LabelBehindPicture3, $id_Background = 0
; Die Zielverzeichnisse - die Anzahl ist variabel, also als Array
Global $a_id_TargetDirectories[2][5] ; [0][0] = Anzahl
; [x][1] = Button kopieren
; [x][2] = Butten verschieben
; [x][3] = Input
; [x][4] = Pfadauswahl
Global $i_Distance = 44 ; Abstand zwischen den Zeilen der Verzeichnisse
Global $i_ButtonPicYfromTop = 650 ; Beginn der Zeile mit den Bild vor/zurück Buttons
Global $id_LabelPictureName ; Label unter dem Bild in dem der Bildname steht
; Control das Markierung nach einer Aktion zeigt (Farbiger Rahmen um den Button)
Global $id_ThisOne1, $id_ThisOne2, $i_Timeout = 1000, $i_TimerThisOne = 0, $i_TimerSelectCurrentPicture = 0
Global $_a_ButtonCopy ; Hier wird regelmäßig die Position des untersten "Kopieren" Buttons der Zeilverzeichnisse abgelegt (=Button ganz links)
Global $_a_ButtonSelectFolder ; ; dito nur der Button für die Verzechnisauswahl (= ganz rechts). Beides wird benötigt für den Rahmen der bei einer Aktion aufblitzt
; Tasten zu Buttonzuweisungen - fast alles lässt sich per Tastendruck steuern
Global $a_AcceleratorKeys[1][2]
; Werkzeugeleite. Auch als Array. Wenn hier die Namen vrtauscht werden, vertauscht sich auch die Reihenfolge
Global $a_id_Tools[8][2] = [ [ "DEL", 0 ], [ "Rename", 0 ], [ "RELOAD", 0 ], [ "Filenames", 0 ], [ "Profiles", 0 ], [ "BKG", 0 ], [ "RESET", 0 ], [ "Hilfe", 0 ] ]
; DEL : Bild löschen
; Rename : Bild umbennnen
; RELOAD : Bild neu laden
; Filenames : Erstellt eine Textdatei mit allen Bildnamen
; BKG : Hintergrundfarbe ändern
; Hilfe : Blendet eine zusätzliches Fenster mit Informationen ein
; RESET : Alle Ordner leeren
; Icons die auf den Werkzeug-Buttons angezeigt werden
Global $_Resources_FotoSort2017ico, $_Resources_Burnpng, $_Resources_Colorpng, $_Resources_CopyDocpng, $_Resources_Editpng, $_Resources_Refreshpng
Global $_Resources_TrashFullpng, $_Resources_Helppng, $_Resources_Cancelico, $_Resources_Overwriteico, $_Resources_CheckOffico2, $_Resources_Profilespng
; Fenstergröße sichern / Variablen für erlaubte Größen. Wir geben später eine minimale und Maximale Fenstergröße vor
Global $a_FormFotoSortNew_Size
Global $i_FormFotoSortNew_SizeMinWidth, $i_FormFotoSortNew_SizeMinHeight, $i_FormFotoSortNew_SizeMaxWidth, $i_FormFotoSortNew_SizeMaxHeight
Global $b_FormIsMaximized = False
Global Const $WIN_STATE_MAXIMIZED = 32
Global $b_GIF = False
; Für DPI-Anpassungen gemäß https://autoit.de/index.php/Thread/85260-Kleines-Desktop-Spiel-ChipHunter/?postID=682546#post682546
Global $i_AppliedDPI = Int(RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics", "AppliedDPI")) / 96
; Auf Eis geleget, Windows 10 zoomte die GUI einfach so groß
$i_AppliedDPI = 1
; Für die aktuell angezeigte Vorschau
Global $d_CurrentPicture, $h_Resources_PicTestBildpngGlobal, $d_Resources_PicTestBildpngGlobal
Global $a_CurrentPictureFilename[2] = [ "", "" ] ; aktueller Bildname (ohne Pfad), getrennt nach Name und Erweiterung
Global $b_Upscale = True ; Ob kleine Bilder vergrößert werden sollen
Global $b_Use_GuiCtrlSetImageEx = False ; Wenn True sorgt die :GUICtrlSetImageEx Funktion für die Vorschaudarstellung
Global $d_BackgroundColor_ARGB = 0xFF000000
Global $b_FirstPicture = True ; Wenn dieser Wert True ist wird das Pic-Control vor der Darstellung einmal gelöscht und neu erstellt
Global $i_CurrentPictureSavedFromregistry ; Hier speichern wir das letzte Bild das dargestellt wurde zwischen. Wird nur für Startup benötigt
; Array für Bildmaße, wird jeweils von _GUICtrlSetImageEx_Modified() zurück gegeben
Global $a_CurrentPictureMetrics[5] ; 0 = X / 1 = Y / 2 = Farbtiefe / 3 = Darstellungsgröße in % / 4 = Dateigröße
; Array mit den Dateinamen der Bilder, wird von ReadFileList() gefüllt
Global $a_s_PictureFilenames[1] = [ 0 ]
Global $i_CurrentFilename = 0
; Array für doppelte Dateien (wird auf den Zielordner ausgeführt
Global $a_s_FilesInTarget[1] = [ 0 ]
Global $a_i_FileSizesInTarget[1] = [ 0 ]
; Für Doppelklick-Erkennung
Global $i_DoubleClickTimer = 0
; Speicherung der Einstellungen in der Registry unter diesem Pfad
Global $s_RegistryKeyname = "HKEY_CURRENT_USER\Software\znil.net\FotoSort2017"
; Array für die Profile:
Global $a_Profiles[1] ; [0] = Anzahl
; [x] = Name
Global $i_ProfileActive = 1
Global $s_ProfileActive = "Standart"
; Die Icons in der Statusbar
Global $_Resources_Warningico, $h_IconWarning, $_Resources_Pictureico, $h_IconPicture, $_Resources_CheckOffico, $h_IconCheckOff, $_Resources_Infoico, $h_IconInfo, $h_IconOverwrite, $h_IconCancel, $_Resources_Profilesico, $h_IconProfiles
; GDIPlus
Global $aGDIPlusDecoders, $a_id_CheckboxFileformat[1] ; Die möglichen Dateifromate sind in GDIPlus eingebaut. Wir fragen was geht und das bieten wir dann an. Deshalb Array da ja dynamisch
Global $s_SearchPattern ; Hier steht der Suchstring drin für die Dateisuche
#EndRegion Variablen
#Region Funktionen
; ###############################################################################################################################################################################################
; ######## ## ## ## ## ## ## ######## #### ####### ## ## ######## ## ##
; ## ## ## ### ## ## ## ## ## ## ## ### ## ## ### ##
; ## ## ## #### ## ## ## ## ## ## ## #### ## ## #### ##
; ###### ## ## ## ## ## ##### ## ## ## ## ## ## ## ###### ## ## ##
; ## ## ## ## #### ## ## ## ## ## ## ## #### ## ## ####
; ## ## ## ## ### ## ## ## ## ## ## ## ### ## ## ###
; ## ####### ## ## ## ## ## #### ####### ## ## ######## ## ##
; ###############################################################################################################################################################################################
;~ _ _ _ _ __ _ _ _
;~ / \ ___ ___ ___| | ___ _ __ __ _| |_ ___ _ __| |/ /___ _ _ / \ __| | __| |
;~ / _ \ / __/ __/ _ \ |/ _ \ '__/ _` | __/ _ \| '__| ' // _ \ | | | / _ \ / _` |/ _` |
;~ / ___ \ (_| (_| __/ | __/ | | (_| | || (_) | | | . \ __/ |_| |/ ___ \ (_| | (_| |
;~ ____/_/ \_\___\___\___|_|\___|_| \__,_|\__\___/|_| |_|\_\___|\__, /_/ \_\__,_|\__,_|
;~ |_____| |___/
; Um beim Programmieren flexibler zu sein kann man jederzeit eine Tastenkombination hinzufügen
; $_s_Key = Taste im Send() Format
; $_id_OfControl = ID des Controls deren Funktion aufgerufen werden soll
Func _AcceleratorKeyAdd($_s_Key, $_id_OfControl)
_ArrayAdd($a_AcceleratorKeys, $_s_Key) ; Array erweitern (und gleichzeitig Taste in den neuen Wert schreiben)
$a_AcceleratorKeys[ UBound($a_AcceleratorKeys) - 1 ][1] = $_id_OfControl ; und noch die Control-Id hinzufügen
GUISetAccelerators($a_AcceleratorKeys, $h_FormFotoSort2017) ; Änderungen übermitteln
EndFunc
; ###############################################################################################################################################################################################
;~ _ _ _ _ __ ____ _ _
;~ / \ ___ ___ ___| | ___ _ __ __ _| |_ ___ _ __| |/ /___ _ _| _ \ ___| | ___| |_ ___
;~ / _ \ / __/ __/ _ \ |/ _ \ '__/ _` | __/ _ \| '__| ' // _ \ | | | | | |/ _ \ |/ _ \ __/ _ \
;~ / ___ \ (_| (_| __/ | __/ | | (_| | || (_) | | | . \ __/ |_| | |_| | __/ | __/ || __/
;~ ____/_/ \_\___\___\___|_|\___|_| \__,_|\__\___/|_| |_|\_\___|\__, |____/ \___|_|\___|\__\___|
;~ |_____| |___/
; Gegenstück zur Add Funktion, sucht anhand der Control-Id alle Einträge und löscht diese aus dem Array
; Funktion ruft sich so lange selbst auf bis alle Id's gefunden sind. Da wir ständig Einträge mittendrin löschen kommt $a nämlich aus dem Tritt
Func _AcceleratorKeyDelete($_id_OfControl)
For $a = 0 To (UBound($a_AcceleratorKeys) - 1) Step 1
If $_id_OfControl = $a_AcceleratorKeys[$a][1] Then
_ArrayDelete($a_AcceleratorKeys, $a) ; Eintrag löschen
_AcceleratorKeyDelete($_id_OfControl) ; und selbst noch einmal aufrufen (Einmal!!)
ExitLoop ; Und damit sind wir nach dem ersten Treffer raus
EndIf
Next
GUISetAccelerators($a_AcceleratorKeys, $h_FormFotoSort2017)
EndFunc
; ###############################################################################################################################################################################################
;~ _ ____ ____ ____ ____ ____ ____ ____
;~ / \ | _ \ / ___| __ ) |___ \ | _ \ / ___| __ )
;~ / _ \ | |_) | | _| _ \ __) | | |_) | | _| _ \
;~ / ___ \| _ <| |_| | |_) | / __/ | _ <| |_| | |_) |
;~ ____/_/ \_\_| \_\\____|____/___|_____|___|_| \_\\____|____/
;~ |_____| |_____| |_____|
; Wandelt einen ARGB Farbwert wieder in einen RGB Wert um
; https://autoit.de/index.php/Thread/85339-AutoIt-Heise-Newsticker/?postID=683482#post683482
Func _ARGB_2_RGB($_hex_color)
Return BitAnd($_hex_color,0xFFFFFF)
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _ ____ _
;~ | __ ) _ _| |_| |_ ___ _ __ | _ \(_) ___ ___
;~ | _ \| | | | __| __/ _ \| '_ \| |_) | |/ __/ __|
;~ | |_) | |_| | |_| || (_) | | | | __/| | (__\__ \
;~ ____|____/ \__,_|\__|\__\___/|_| |_|_| |_|\___|___/
;~ |_____|
; Wird aufgerufen wenn auf einer der Buttons unterhalb der Vorschau geklickt wird (oder das Input genutzt wird)
Func _ButtonPics()
Local $_a_ButtonPos
; na wenn wir gar keine Bilder haben gleich wieder raus
If $a_s_PictureFilenames[0] = 0 Then
Return 1
EndIf
; Den farbigen Rahmen positionieren der anzeigt was wir ausgelöst haben
If @GUI_CtrlId <> $id_InputPicNumber And @GUI_CtrlId <> $id_CheckboxPictureFitSize Then
$_a_ButtonPos = ControlGetPos($h_FormFotoSort2017, "", @GUI_CtrlId)
GUICtrlSetPos($id_ButtonSelected1, $_a_ButtonPos[0] - 1, $_a_ButtonPos[1] - 1)
GUICtrlSetPos($id_ButtonSelected2, $_a_ButtonPos[0] - 2, $_a_ButtonPos[1] - 2)
GUICtrlSetColor($id_ButtonSelected1, $hex_SignalColor)
GUICtrlSetColor($id_ButtonSelected2, $hex_SignalColor)
$i_Timeout = 250
_ThisOne() ; wird den Rahmen nach 250ms wieder auf die Hintergrundfarbe setzen = unsichtbar
EndIf
; Na, welcher Button war es denn?
Switch @GUI_CtrlId
Case $id_ButtonPicGoToFirst
_SelectCurrentPicture(1)
Case $id_ButtonPicBack100
_SelectCurrentPicture(GUICtrlRead($id_InputPicNumber) - 100)
Case $id_ButtonPicBack10
_SelectCurrentPicture(GUICtrlRead($id_InputPicNumber) - 10)
Case $id_ButtonPicBack1
_SelectCurrentPicture(GUICtrlRead($id_InputPicNumber) - 1)
Case $id_ButtonPicForward1
_SelectCurrentPicture(GUICtrlRead($id_InputPicNumber) + 1)
Case $id_ButtonPicForward10
_SelectCurrentPicture(GUICtrlRead($id_InputPicNumber) + 10)
Case $id_ButtonPicForward100
_SelectCurrentPicture(GUICtrlRead($id_InputPicNumber) + 100)
Case $id_ButtonPicGoToLast
_SelectCurrentPicture($a_s_PictureFilenames[0])
Case $id_CheckboxPictureFitSize
_SettingsWrite("$id_CheckboxPictureFitSize", GUICtrlRead($id_CheckboxPictureFitSize))
_SelectCurrentPicture(GUICtrlRead($id_InputPicNumber))
Case $id_InputPicNumber
GUICtrlSetData($id_InputPicNumber, Int(GUICtrlRead($id_InputPicNumber))) ; Da wir schlau sind wandeln wir alles aus dem Feld per Int() in eine Zahl. Bei Müll kommt da 0 raus
; Die Zahlentasten sind mit kopieren belegt. Die Funktion WM_COMMAND schaltet das ab solange der Cursor im Input ist
; Um das wieder einzuschalten wechseln wir den Focus auf ein anderes Control
ControlFocus($h_FormFotoSort2017, "", $id_Picture)
_SelectCurrentPicture(GUICtrlRead($id_InputPicNumber))
Case Else
; Diese Meldung sollte nie jemand lesen ...
MsgBox(16, "Fehler", "_ButtonPics(): War kein $id_ButtonPic!")
EndSwitch
; Wenn wir nicht gerade im PicNumber Input waren den Focus auf die letzte Auswahl legen. Bei Mausklick ist er da sowieso, bei Tastendruck ist er es dann
If @GUI_CtrlId <> $id_InputPicNumber Then
ControlFocus($h_FormFotoSort2017, "", @GUI_CtrlId)
EndIf
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _ ____ _ ____ _ _ _____ _ _ ____ _ _ _
;~ | __ ) _ _| |_| |_ ___ _ __ | _ \(_) ___ ___ / ___| |__ ___ ___| | _| ____|_ __ __ _| |__ | | ___| _ \(_)___ __ _| |__ | | ___
;~ | _ \| | | | __| __/ _ \| '_ \| |_) | |/ __/ __| | | '_ \ / _ \/ __| |/ / _| | '_ \ / _` | '_ \| |/ _ \ | | | / __|/ _` | '_ \| |/ _ \
;~ | |_) | |_| | |_| || (_) | | | | __/| | (__\__ \ |___| | | | __/ (__| <| |___| | | | (_| | |_) | | __/ |_| | \__ \ (_| | |_) | | __/
;~ ____|____/ \__,_|\__|\__\___/|_| |_|_| |_|\___|___/\____|_| |_|\___|\___|_|\_\_____|_| |_|\__,_|_.__/|_|\___|____/|_|___/\__,_|_.__/|_|\___|
;~ |_____|
; Aktiviert oder desktiviert die Schaltflächen für die Bildauswahl je nach Anzahl der Bilder
Func _ButtonPicsCheckEnableDisable()
Local $_i_PicNumber = GUICtrlRead($id_InputPicNumber) ; Zwischenspeichern damit wir das nur einmal für die Vergleiche abrufen
; Wenn die Liste leer ist - alles aus!
If $a_s_PictureFilenames[0] = 0 Then
GUICtrlSetState($id_ButtonPicGoToFirst, $GUI_DISABLE)
GUICtrlSetState($id_ButtonPicBack100, $GUI_DISABLE)
GUICtrlSetState($id_ButtonPicBack10, $GUI_DISABLE)
GUICtrlSetState($id_ButtonPicBack1, $GUI_DISABLE)
GUICtrlSetState($id_ButtonPicForward1, $GUI_DISABLE)
GUICtrlSetState($id_ButtonPicForward10, $GUI_DISABLE)
GUICtrlSetState($id_ButtonPicForward100, $GUI_DISABLE)
GUICtrlSetState($id_ButtonPicGoToLast, $GUI_DISABLE)
Return 0 ; und raus aus der Funktion
EndIf
; Ab hier Button für Button prüfen :-)
If $_i_PicNumber = 1 Then
GUICtrlSetState($id_ButtonPicGoToFirst, $GUI_DISABLE)
Else
GUICtrlSetState($id_ButtonPicGoToFirst, $GUI_ENABLE)
EndIf
If $_i_PicNumber > 100 Then
GUICtrlSetState($id_ButtonPicBack100, $GUI_ENABLE)
Else
GUICtrlSetState($id_ButtonPicBack100, $GUI_DISABLE)
EndIf
If $_i_PicNumber > 10 Then
GUICtrlSetState($id_ButtonPicBack10, $GUI_ENABLE)
Else
GUICtrlSetState($id_ButtonPicBack10, $GUI_DISABLE)
EndIf
If $_i_PicNumber > 1 Then
GUICtrlSetState($id_ButtonPicBack1, $GUI_ENABLE)
Else
GUICtrlSetState($id_ButtonPicBack1, $GUI_DISABLE)
EndIf
If ($a_s_PictureFilenames[0] - $_i_PicNumber) > 0 Then
GUICtrlSetState($id_ButtonPicForward1, $GUI_ENABLE)
Else
GUICtrlSetState($id_ButtonPicForward1, $GUI_DISABLE)
EndIf
If ($a_s_PictureFilenames[0] - $_i_PicNumber) > 9 Then
GUICtrlSetState($id_ButtonPicForward10, $GUI_ENABLE)
Else
GUICtrlSetState($id_ButtonPicForward10, $GUI_DISABLE)
EndIf
If ($a_s_PictureFilenames[0] - $_i_PicNumber) > 99 Then
GUICtrlSetState($id_ButtonPicForward100, $GUI_ENABLE)
Else
GUICtrlSetState($id_ButtonPicForward100, $GUI_DISABLE)
EndIf
If $a_s_PictureFilenames[0] = $_i_PicNumber Then
GUICtrlSetState($id_ButtonPicGoToLast, $GUI_DISABLE)
Else
GUICtrlSetState($id_ButtonPicGoToLast, $GUI_ENABLE)
EndIf
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ ____ __ __ _
;~ | __ ) _ _| |_ ___/ ___| _ _ / _|/ _(_)_ __
;~ | _ \| | | | __/ _ \___ \| | | | |_| |_| \ \/ /
;~ | |_) | |_| | || __/___) | |_| | _| _| |> <
;~ ____|____/ \__, |\__\___|____/ \__,_|_| |_| |_/_/\_\
;~ |_____| |___/
; Stammt 1:1 aus der Hilfe zu FileGetSize()
; Damit überstetzen wir die Rückgaben der Bildgrößen in "für Menschen lesbar" Angaben
Func _ByteSuffix($iBytes)
Local $iIndex = 0, $aArray = [' bytes', ' KB', ' MB', ' GB', ' TB', ' PB', ' EB', ' ZB', ' YB']
While $iBytes > 1023
$iIndex += 1
$iBytes /= 1024
WEnd
Return Round($iBytes) & $aArray[$iIndex]
EndFunc ;==>ByteSuffix
; ###############################################################################################################################################################################################
;~ ____ _ _ _ _____ _ _ __ _
;~ / ___| |__ ___ ___| | _| |__ _____ _| ___(_) | ___ / _| ___ _ __ _ __ ___ __ _| |_
;~ | | | '_ \ / _ \/ __| |/ / '_ \ / _ \ \/ / |_ | | |/ _ \ |_ / _ \| '__| '_ ` _ \ / _` | __|
;~ | |___| | | | __/ (__| <| |_) | (_) > <| _| | | | __/ _| (_) | | | | | | | | (_| | |_
;~ ____\____|_| |_|\___|\___|_|\_\_.__/ \___/_/\_\_| |_|_|\___|_| \___/|_| |_| |_| |_|\__,_|\__|
;~ |_____|
; Springt an sobald irgendeine der Checkboxen für die Bildformate angeklickt wurde
Func _CheckboxFileformat()
; Prüfen ob der Haken bei "Alle" gesetzt oder entfernt wurde
If @GUI_CtrlId = $a_id_CheckboxFileformat[0] Then
; laut Hilfe darf man den Wert von GUICtrlRead() bei Checkboxen direkt nutzen!
Local $i_CheckedOrNot = GUICtrlRead($a_id_CheckboxFileformat[0])
For $i = 1 To (UBound($a_id_CheckboxFileformat) - 1) Step 1
GUICtrlSetState($a_id_CheckboxFileformat[$i], $i_CheckedOrNot)
Next
; Was wurde da gemacht? Wir setzen einfach alle Checkboxen auf den gleichen Wert wie den von $a_id_CheckboxFileformat[0]
; Ist die angehakt so wird der Haken überall gesetzt, wird er entfernt wird er wieder überall gelöscht
Else
; Ok, es war eine der anderen Checkboxen. Wenn auch nur eine von denen nicht aktiviert ist muss der haken bei alle wieder raus
; sind alle gesetzt soll der Haken aber rein. Wir setzen ihn erst rein und schauen dann ob er raus muss
GUICtrlSetState($a_id_CheckboxFileformat[0], $GUI_CHECKED)
For $i = 1 To (UBound($a_id_CheckboxFileformat) - 1) Step 1
If GUICtrlRead($a_id_CheckboxFileformat[$i]) = $GUI_UNCHECKED Then
GUICtrlSetState($a_id_CheckboxFileformat[0], $GUI_UNCHECKED)
ExitLoop
EndIf
Next
EndIf
_CheckboxFileformatCreatePattern() ; Erzeugt das für die _RecursiveFileListToArray() Funktion notwendige Pattern
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _ _ _____ _ _ __ _ ____ _ ____ _ _
;~ / ___| |__ ___ ___| | _| |__ _____ _| ___(_) | ___ / _| ___ _ __ _ __ ___ __ _| |_ / ___|_ __ ___ __ _| |_ ___| _ \ __ _| |_| |_ ___ _ __ _ __
;~ | | | '_ \ / _ \/ __| |/ / '_ \ / _ \ \/ / |_ | | |/ _ \ |_ / _ \| '__| '_ ` _ \ / _` | __| | | '__/ _ \/ _` | __/ _ \ |_) / _` | __| __/ _ \ '__| '_ \
;~ | |___| | | | __/ (__| <| |_) | (_) > <| _| | | | __/ _| (_) | | | | | | | | (_| | |_| |___| | | __/ (_| | || __/ __/ (_| | |_| || __/ | | | | |
;~ ____\____|_| |_|\___|\___|_|\_\_.__/ \___/_/\_\_| |_|_|\___|_| \___/|_| |_| |_| |_|\__,_|\__|\____|_| \___|\__,_|\__\___|_| \__,_|\__|\__\___|_| |_| |_|
;~ |_____|
; Erzeugt das für die _RecursiveFileListToArray() Funktion notwendige Pattern
Func _CheckboxFileformatCreatePattern()
; Und wieder bei Oscor aus der FotoSort.au3 abgeschaut - bereitet das Suchpattern passend für seine _RecursiveFileListToArray() Funktion auf
Local $s_SaveFileFormat = ""
$s_SearchPattern = ""
For $i = 1 To $aGDIPlusDecoders[0][0] Step 1
If GUICtrlRead($a_id_CheckboxFileformat[$i]) = $GUI_CHECKED Then
$s_SaveFileFormat = $s_SaveFileFormat & $aGDIPlusDecoders[$i][5] & "|"
$s_SearchPattern = $s_SearchPattern & StringRegExpReplace(StringReplace($aGDIPlusDecoders[$i][6], "*.", ""), ";", "|") & "|"
EndIf
Next
$s_SearchPattern = StringTrimRight($s_SearchPattern, 1)
_ReadFileList()
; Und die Einstellungen noch sichern
For $i = 0 To (UBound($a_id_CheckboxFileformat) - 1) Step 1
_SettingsWrite("$a_id_CheckboxFileformat[" & $i & "]", GUICtrlRead($a_id_CheckboxFileformat[$i]))
Next
EndFunc
; ###############################################################################################################################################################################################
;~ _____ _ _ _ _ _
;~ | ___|__ | | __| | ___ _ __ / \ __| | __| |
;~ | |_ / _ \| |/ _` |/ _ \ '__| / _ \ / _` |/ _` |
;~ | _| (_) | | (_| | __/ | / ___ \ (_| | (_| |
;~ ____|_| \___/|_|\__,_|\___|_|___/_/ \_\__,_|\__,_|
;~ |_____| |_____|
Func _Folder_Add()
; Es wurde auf das + geklickt und der Anwender will eine Zeile mehr bekommen
; Der Abstand zwischen den Zeilen wurde oben bei den Variablen festgelegt: $i_Distance
; Wie groß ist die Group im Moment überhaupt ?
Local $a_GroupSize = ControlGetPos($h_FormFotoSort2017, "", $id_GroupTargetDirectories)
; Platzbedarf: Pro Zeile $i_Distance Abstand mal die Anzahl der Zeilen
If (($a_id_TargetDirectories[0][0] + 1) * $i_Distance) >= ($a_GroupSize[3] - $i_Distance) Then
; Da ist kein Platz mehr! Also nichts zu tun und raus hier
GUICtrlSetState($id_ButtonAddTargetDirectory, $GUI_DISABLE)
Return 1
EndIf
; Array mit den Controls um 1 vergrößern
$a_id_TargetDirectories[0][0] = $a_id_TargetDirectories[0][0] + 1
ReDim $a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] + 1 ][5]
; Platz schaffen, die Buttons mit + und - eine Zeile tiefer setzen
Local $a_ControlPos = ControlGetPos($h_FormFotoSort2017, "", $a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] - 1][1])
GUICtrlSetPos($id_ButtonAddTargetDirectory, $a_ControlPos[0], 232 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance))
GUICtrlSetPos($id_ButtonRemoveTargetDirectory, $a_ControlPos[0] + 32, 232 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance))
; Und die neuen Buttons und Input bauen:
; Die Position der Zeile darüber holen
$a_ControlPos = ControlGetPos($h_FormFotoSort2017, "", $a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] - 1 ][1])
; Den Button für kopieren
$a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][1] = GUICtrlCreateButton($a_id_TargetDirectories[0][0], $a_ControlPos[0], 200 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance), 33, 25)
GUICtrlSetOnEvent($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][1], "_Picture_Copy")
; Diesen und die nachfolgenden Buttons heften wir Rechts und oben an, Größe ist fix
GUICtrlSetResizing($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][1], $GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlSetTip($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][1], "Taste: [" & $a_id_TargetDirectories[0][0] & "]" & @CRLF & "Datei kopieren")
; Tasten zuweisen, jeweils die Zahlen über den Buchstaben + Nummernblock
If $a_id_TargetDirectories[0][0] < 10 Then ; 2 bis 9
_AcceleratorKeyAdd($a_id_TargetDirectories[0][0], $a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][1])
_AcceleratorKeyAdd("{NUMPAD" & $a_id_TargetDirectories[0][0] & "}", $a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][1])
EndIf
If $a_id_TargetDirectories[0][0] = 10 Then ; und die 10 bekommt die 0
_AcceleratorKeyAdd("0", $a_id_TargetDirectories[10][1])
_AcceleratorKeyAdd("{NUMPAD0}", $a_id_TargetDirectories[10][1])
EndIf
; Den Button für verschieben
$a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][2] = GUICtrlCreateButton("»", $a_ControlPos[0] + 32, 200 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance), 33, 25)
GUICtrlSetOnEvent($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][2], "_Picture_Move")
GUICtrlSetResizing($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][2], $GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlSetTip($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][2], "Taste: [Alt] + [" & $a_id_TargetDirectories[0][0] & "]" & @CRLF & "Datei verschieben")
; gleiche Zahlen, nur in Kombination mit [ALT]
If $a_id_TargetDirectories[0][0] < 10 Then
_AcceleratorKeyAdd("!" & $a_id_TargetDirectories[0][0], $a_id_TargetDirectories[1][2])
_AcceleratorKeyAdd("!{NUMPAD" & $a_id_TargetDirectories[0][0] & "}", $a_id_TargetDirectories[1][2])
EndIf
If $a_id_TargetDirectories[0][0] = 10 Then
_AcceleratorKeyAdd("!0", $a_id_TargetDirectories[10][2])
_AcceleratorKeyAdd("!{NUMPAD0}", $a_id_TargetDirectories[10][2])
EndIf
; Das Input mit dem Pfad
$a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][3] = GUICtrlCreateInput("", $a_ControlPos[0] + 67, 200 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance), 354, 25, BitOR($ES_READONLY,$ES_LEFT, $ES_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE, $WS_EX_ACCEPTFILES))
GUICtrlSetFont($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][3], $s_FontSizeInputs * $i_AppliedDPI, 400, 0, $s_FontNameInputs)
GUICtrlSetBkColor($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][3], 0xFFFFE1)
GUICtrlSetResizing($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][3], $GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
; Damit das Feld Drag'n Drop annimmt (muss zusätzlich zum Extended-Style gesetzt werden)
GUICtrlSetState($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][3], $GUI_DROPACCEPTED)
; Und noch der Button für die Pfadauswahl
$a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][4] = GUICtrlCreateButton("...", $a_ControlPos[0] + 424, 200 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance), 33, 25)
GUICtrlSetOnEvent($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][4], "_Folder_Select")
GUICtrlSetResizing($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][4], $GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlSetTip($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][4], "Pfad wählen")
; Ggf den + Button deaktivieren:
Local $a_GroupSize = ControlGetPos($h_FormFotoSort2017, "", $id_GroupTargetDirectories)
If (($a_id_TargetDirectories[0][0] + 1) * $i_Distance) >= ($a_GroupSize[3] - $i_Distance) Then
GUICtrlSetState($id_ButtonAddTargetDirectory, $GUI_DISABLE)
Else
GUICtrlSetState($id_ButtonAddTargetDirectory, $GUI_ENABLE)
EndIf
; Den - Button aktivieren (wir sind bei mindestens 2 Zeilen)
GUICtrlSetState($id_ButtonRemoveTargetDirectory, $GUI_ENABLE)
; Titel der Group anpassen
GUICtrlSetData($id_GroupTargetDirectories, " Zielverzeichnisse (1.." & $a_id_TargetDirectories[0][0] & "): ")
_GUICtrlStatusBar_SetText($id_StatusBar, $s_ProfileActive , 2)
; Anzahl der Ordner sichern
_SettingsWrite("$a_id_TargetDirectories[0][0]" & "-" & $s_ProfileActive, $a_id_TargetDirectories[0][0])
_SettingsWrite("$i_ProfileActive", $i_ProfileActive)
_SettingsWrite("$s_ProfileActive", $s_ProfileActive)
EndFunc
; ###############################################################################################################################################################################################
;~ _____ _ _ ____
;~ | ___|__ | | __| | ___ _ __ | _ \ ___ _ __ ___ _____ _____
;~ | |_ / _ \| |/ _` |/ _ \ '__|| |_) / _ \ '_ ` _ \ / _ \ \ / / _ \
;~ | _| (_) | | (_| | __/ | | _ < __/ | | | | | (_) \ V / __/
;~ ____|_| \___/|_|\__,_|\___|_|___|_| \_\___|_| |_| |_|\___/ \_/ \___|
;~ |_____| |_____|
Func _Folder_Remove()
; Und wieder weg mit der letzten Zeile
; Falls es die letzte Zeile = Zeile 1 ist gleich wieder raus
If $a_id_TargetDirectories[0][0] = 1 Then
GUICtrlSetState($id_ButtonRemoveTargetDirectory, $GUI_DISABLE)
Return 1
EndIf
; Und löschen - erst die Tastenzuweisungen
_AcceleratorKeyDelete($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][1])
_AcceleratorKeyDelete($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][2])
; Registry-Schlüssel mit Pfad dazu (also was gesichert wurde)
;~ RegDelete($s_RegistryKeyname, "$a_id_TargetDirectories[" & $a_id_TargetDirectories[0][0] & "][3]" & "-" & $s_ProfileActive)
; Die 4 Controls
For $i = 1 To 4 Step 1
GUICtrlDelete($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][$i])
$a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][$i] = ""
Next
; Array wieder verkleinern
$a_id_TargetDirectories[0][0] = $a_id_TargetDirectories[0][0] - 1
ReDim $a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] + 1 ][5]
; Die + und - Schaltfläche wieder hochrücken:
Local $a_ControlPos = ControlGetPos($h_FormFotoSort2017, "", $a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][1])
GUICtrlSetPos($id_ButtonAddTargetDirectory, $a_ControlPos[0], 232 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance))
GUICtrlSetPos($id_ButtonRemoveTargetDirectory, $a_ControlPos[0] + 32, 232 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance))
; Sind wir nun die letzte Zeile?
If $a_id_TargetDirectories[0][0] = 1 Then
GUICtrlSetState($id_ButtonRemoveTargetDirectory, $GUI_DISABLE)
Return 1
EndIf
; Ggf den + Button wieder aktivieren:
Local $a_GroupSize = ControlGetPos($h_FormFotoSort2017, "", $id_GroupTargetDirectories)
If (($a_id_TargetDirectories[0][0] + 1) * $i_Distance) >= ($a_GroupSize[3] - $i_Distance) Then
GUICtrlSetState($id_ButtonAddTargetDirectory, $GUI_DISABLE)
Else
GUICtrlSetState($id_ButtonAddTargetDirectory, $GUI_ENABLE)
EndIf
; Titel der Group anpassen
GUICtrlSetData($id_GroupTargetDirectories, " Zielverzeichnisse (1.." & $a_id_TargetDirectories[0][0] & "): ")
; Anzahl der Ordner sichern (jetzt einer weniger)
_SettingsWrite("$a_id_TargetDirectories[0][0]" & "-" & $s_ProfileActive, $a_id_TargetDirectories[0][0])
EndFunc
; ###############################################################################################################################################################################################
;~ _____ _ _ ____ _ _
;~ | ___|__ | | __| | ___ _ __ / ___| ___| | ___ ___| |_
;~ | |_ / _ \| |/ _` |/ _ \ '__|\___ \ / _ \ |/ _ \/ __| __|
;~ | _| (_) | | (_| | __/ | ___) | __/ | __/ (__| |_
;~ ____|_| \___/|_|\__,_|\___|_|___|____/ \___|_|\___|\___|\__|
;~ |_____| |_____|
; Wird aktiv wenn der ... Button neben den Quellordner oder einer der Zielordner geklickt wurde
Func _Folder_Select()
Local $_s_Folder ; Da kommt die Rückgabe aus dem FileSelectFolder() Dialog rein
If @GUI_CtrlId = $id_ButtonSelectSourceDirectory Then ; Ist für den Quellpfad
$_s_Folder = FileSelectFolder("Quellordner auswählen", GUICtrlRead($id_InputSourceDirectory), 0, "", $h_FormFotoSort2017)
If $_s_Folder <> "" Then
GUICtrlSetData($id_InputSourceDirectory, $_s_Folder)
_SettingsWrite("$id_InputSourceDirectory", $_s_Folder)
_ReadFileList()
;~ Else
; Es wurde abgebrochen
; Standard vom Anfang wiederherstellen. Also so lassen. Also Nix tun
EndIf
Return 0
EndIf
; Und hier die Auswahl der anderen Ordner...
For $i = 1 To $a_id_TargetDirectories[0][0] Step 1
If @GUI_CtrlId = $a_id_TargetDirectories[$i][4] Then
$_s_Folder = FileSelectFolder("Zielordner " & $i & " auswählen", GUICtrlRead($a_id_TargetDirectories[$i][3]), 1, "", $h_FormFotoSort2017)
If $_s_Folder <> "" Then
GUICtrlSetData($a_id_TargetDirectories[$i][3], $_s_Folder)
_SettingsWrite("$a_id_TargetDirectories[0][0]" & "-" & $s_ProfileActive, $a_id_TargetDirectories[0][0])
_SettingsWrite("$a_id_TargetDirectories[" & $i & "][3]" & "-" & $s_ProfileActive, $_s_Folder)
_SettingsWrite("$i_ProfileActive", $i_ProfileActive)
_SettingsWrite("$s_ProfileActive", $s_ProfileActive)
;~ Else
; Abbruch ... nix machen oder löschen?
;GUICtrlSetData($a_id_TargetDirectories[$i][3], "")
EndIf
ExitLoop
EndIf
Next
EndFunc
; ###############################################################################################################################################################################################
Func _GDIPlus_ScaleImage2($hImage, $iNewWidth, $iNewHeight, $iBGColor = 0xFFF0F0F0, $bBGClear = True, $iInterpolationMode = 7) ;coded by UEZ 2012
Local $iWidth = _GDIPlus_ImageGetWidth($hImage)
Local $iHeight = _GDIPlus_ImageGetHeight($hImage)
Local $iW, $iH, $f, $fRatio
If $iWidth > $iHeight Then
$f = $iWidth / $iNewWidth
Else
$f = $iHeight / $iNewHeight
EndIf
$iW = Int($iWidth / $f)
$iH = Int($iHeight / $f)
If $iW > $iNewWidth Then
$fRatio = $iNewWidth / $iW
$iW = Int($iW * $fRatio)
$iH = Int($iH * $fRatio)
ElseIf $iH > $iNewHeight Then
$fRatio = $iNewHeight / $iH
$iW = Int($iW * $fRatio)
$iH = Int($iH * $fRatio)
EndIf
Local $hBitmap = DllCall($__g_hGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iW, "int", $iH, "int", 0, "int", 0x0026200A, "ptr", 0, "int*", 0)
If @error Then Return SetError(3, 0, 0)
$hBitmap = $hBitmap[6]
Local $hBmpCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap)
If $bBGClear Then _GDIPlus_GraphicsClear($hBmpCtxt, $iBGColor)
DllCall($__g_hGDIPDll, "uint", "GdipSetInterpolationMode", "handle", $hBmpCtxt, "int", $iInterpolationMode)
_GDIPlus_GraphicsDrawImageRect($hBmpCtxt, $hImage, 0, 0, $iW, $iH)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_GraphicsDispose($hBmpCtxt)
Return $hBitmap
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _ _ _ _____ _ _ _ _
;~ / ___| ___| |_| | | |_ __ (_) __ _ _ _ ___| ___(_) | ___| \ | | __ _ _ __ ___ ___
;~ | | _ / _ \ __| | | | '_ \| |/ _` | | | |/ _ \ |_ | | |/ _ \ \| |/ _` | '_ ` _ \ / _ \
;~ | |_| | __/ |_| |_| | | | | | (_| | |_| | __/ _| | | | __/ |\ | (_| | | | | | | __/
;~ ____\____|\___|\__|\___/|_| |_|_|\__, |\__,_|\___|_| |_|_|\___|_| \_|\__,_|_| |_| |_|\___|
;~ |_____| |_|
; Wir benötigt falls ein Suffix für das Umbenennen angehängt werden soll
; Oscar hat einfach ein (Zahl) angehängt. Das finde ich beim Windows Explorer schon doof
; Man kan im Input hierzu etwas beliebiges angeben, jedes # daraus wird durch die Zahl ersetzt.
; bei mehreren #### wird mit führenden Nullen aufgefüllt
; sind es zu wenig # wird trotzdem die nächst höhere Zahl gesetzt => ### steht und 1000 wäre dran - kein Problem!
Func _GetUniqueFileName($_s_Filename, $_s_Extension)
Local $_s_NewFilename ; Da kommt der neuen Name rein
Local $_s_NumberString = GUICtrlRead($id_InputSuffix) ; Was für ein Suffix darf es denn sein
Local $_i_NumberOfHash = StringReplace($_s_NumberString, "#", "") ; Zählen wir mal die #m steht dann in @extended
$_i_NumberOfHash = @extended
If $_i_NumberOfHash < 1 Then ; ein # muss schon sein. Fällt erste bei der 2. Datei auf
MsgBox(16, "FEHLER:", "Das anzuhängende Suffic muss mindestens einmal das # enthalten!")
Return -1
EndIf
Local $_s_ResultStringFormat ; falls wir mit 0 auffüllen müssen kommt hier die passende Zahl rein
Local $_s_Replacement = "" ; oben haben wir die Anzahl der # gezählt. diese werden wir durch die # ersetzten. Wer _#__##_# schreibt hat Pech gehabt
For $y = 1 To $_i_NumberOfHash Step 1
$_s_Replacement = $_s_Replacement & "#"
Next
Local $_i_Counter = 0 ; ist die Zahl die angehängt wird
While 1
$_i_Counter = $_i_Counter + 1
If $_i_NumberOfHash < StringLen(String($_i_Counter)) Then
; zu wenig # ! Also ignorieren und nur die Zahl nehmen
$_s_ResultStringFormat = $_i_Counter
Else
; Zahl mit führenden 0en erstellen
$_s_ResultStringFormat = StringFormat("%0" & $_i_NumberOfHash & "d", $_i_Counter)
EndIf
; Und den neuen Dateinamen zusammenbauen
$_s_NewFilename = $_s_Filename & StringReplace($_s_NumberString, $_s_Replacement, $_s_ResultStringFormat) & $_s_Extension
; So, neuen namen zusammengebaut, Testen ob es die Datei schon gibt
If FileExists($_s_NewFilename) = 0 Then
; Gibt es noch nicht! $_s_NewFilename enthält einen passenden Dateinamen! Raus hier!
ExitLoop
EndIf
; Den Namen gab es wohl auch schon - also noch einmal von vorne!
WEnd
Return $_s_NewFilename ; und den Dateinamen zurück geben
EndFunc
; ###############################################################################################################################################################################################
; Modifizierte Version der original _GUICtrlSetGIF() aus der GIFAnimation.au3 von trancexx, angepasst an das was in diesem Programm benötigt wird
Func _GUICtrlSetGIF_Mod($iControld, $vGIF, $fUpscale = True, $vAdditionalData = Default, $iRenderingStyle = Default, $iForcedARGB = Default)
Local $iScalefactor = 1
Local $iImgWidth, $iImgHeight, $fDebugInfo = False, $iFactorW, $iFactorH, $iScaleWidth, $iScaleHeight
; Erst einmal die Größe des GIF ermitteln:
Local $_a_PictureMetrics[5] ; 0 = X / 1 = Y / 2 = Farbtiefe / 3 = Darstellungsgröße in % / 4 = Dateigröße
Local $_a_GIF_Size = _GIF_GetDimension($vGIF)
$_a_PictureMetrics[0] = $_a_GIF_Size[0]
$_a_PictureMetrics[1] = $_a_GIF_Size[1]
$_a_PictureMetrics[2] = "8 Bit"
$_a_PictureMetrics[4] = _ByteSuffix(FileGetSize($vGIF))
Local $_a_LabelBehindPicture1 = ControlGetPos($h_FormFotoSort2017, "", $id_LabelBehindPicture1)
Local $_a_LabelBehindPicture2 = ControlGetPos($h_FormFotoSort2017, "", $id_LabelBehindPicture2)
; Die eigentliche Funktion
;~ Local $aCtrlPos = WinGetPos(GUICtrlGetHandle($iControld))
Local $aCtrlPos = ControlGetPos($h_FormFotoSort2017, "", $iControld)
If @error Then Return SetError(6, 0, False)
If $vAdditionalData = Default Then $vAdditionalData = ""
If $aCtrlPos[2] = 0 Then $aCtrlPos[2] = Default
If $aCtrlPos[3] = 0 Then $aCtrlPos[3] = Default
; So, es wurde sich die Größe des PicControls geholt - und im normalfall wird das Gif einfach in der Größe erstellt.
; Anpassung: Wir holen uns die Größe von dem schwarzen Rahmen umzu. Der skaliert nämlich sauber mit
$aCtrlPos[0] = $_a_LabelBehindPicture1[0] + 2
$aCtrlPos[1] = $_a_LabelBehindPicture1[1] + 2
$aCtrlPos[2] = $_a_LabelBehindPicture1[2] - 4
$aCtrlPos[3] = $_a_LabelBehindPicture2[3] - 4
If $id_Background = 0 Then
$id_Background = GUICtrlCreateGraphic($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3])
GUICtrlSetGraphic($id_Background, $GUI_GR_COLOR, "0x" & Hex(_RGB_2_ARGB($d_BackgroundColor_ARGB), 6), "0x" & Hex(_RGB_2_ARGB($d_BackgroundColor_ARGB),6))
GUICtrlSetGraphic($id_Background, $GUI_GR_RECT, 0, 0, $aCtrlPos[2], $aCtrlPos[3])
GUICtrlSetState($id_Background, $GUI_DROPACCEPTED)
EndIf
; Wir passen es mit den richtigen Seitenverhältnissen an:
$iImgWidth = $_a_PictureMetrics[0] ; die Breite der Grafikdatei holen
$iImgHeight = $_a_PictureMetrics[1] ; die Höhe der Grafikdatei holen
; Testen ob wir größer sind:
$iFactorW = $aCtrlPos[2] / $iImgWidth
$iFactorH = $aCtrlPos[3] / $iImgHeight
If $iImgWidth > $aCtrlPos[2] Or $iImgHeight > $aCtrlPos[3] Then
; Ok, wir müssen verkleinern! Was ist denn zu groß? X, Y oder beides?
If $iFactorW > $iFactorH Then
$iScalefactor = $iFactorH
Else
$iScalefactor = $iFactorW
EndIf
Else
; Testen ob wir kleiner sind
If $iImgWidth < $aCtrlPos[2] Or $iImgHeight < $aCtrlPos[3] Then
; Vergrößern!
If $b_Upscale = True Then
If $iFactorW > $iFactorH Then
$iScalefactor = $iFactorH
Else
$iScalefactor = $iFactorW
EndIf
Else
$iScalefactor = 1
EndIf
EndIf
EndIf
Local $iScaleWidth = Int($iImgWidth * $iScalefactor) ; die Breite der skalierten Grafikdatei berechnen
Local $iScaleHeight = Int($iImgHeight * $iScalefactor) ; die Höhe der skalierten Grafikdatei berechnen
$_a_PictureMetrics[3] = Int($iScalefactor * 100) & "%"
_GIF_ExitAnimation($iControld)
_GIF_DeleteGIF($iControld, True)
; V1: oben links und entsprechend kleiner nach rechts und unten
;~ _GUICtrlCreateGIF($vGIF, $vAdditionalData, $aCtrlPos[0], $aCtrlPos[1], $iScaleWidth, $iScaleHeight, $iRenderingStyle, $iForcedARGB, $iControld)
; V2: Zentrieren. Also tiefer bzw. nach rechts versetzt
$iFactorW = Int(($aCtrlPos[2] - $iScaleWidth) / 2)
$iFactorH = Int(($aCtrlPos[3] - $iScaleHeight) / 2)
$iControld = _GUICtrlCreateGIF($vGIF, $vAdditionalData, $aCtrlPos[0] + $iFactorW, $aCtrlPos[1] + $iFactorH, $iScaleWidth, $iScaleHeight)
;~ _GUICtrlCreateGIF($vGIF, $vAdditionalData, $aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], $iRenderingStyle, $iForcedARGB, $iControld)
SetError(@error, @extended, Not @error)
Return $_a_PictureMetrics
EndFunc ;==>_GUICtrlSetGIF_Mod
; ###############################################################################################################################################################################################
;~ ____ _ ____ _ _ ____ _ ___ _____
;~ / ___|_ _(_)/ ___| |_ _ __| / ___| ___| |_|_ _|_ __ ___ __ _ __ _ ___| ____|_ __
;~ | | _| | | | | | | __| '__| \___ \ / _ \ __|| || '_ ` _ \ / _` |/ _` |/ _ \ _| \ \/ /
;~ | |_| | |_| | | |___| |_| | | |___) | __/ |_ | || | | | | | (_| | (_| | __/ |___ > <
;~ ____\____|\__,_|_|\____|\__|_| |_|____/ \___|\__|___|_| |_| |_|\__,_|\__, |\___|_____/_/\_\
;~ |_____| |___/
;===============================================================================
; Name: : _GuiCtrlSetImageEx
; Description: : Funktion zum laden von Grafikdateien (alle die GDI+ unterstützt) in ein Pic-Control
; Dabei werden die Grafikdateien proportional in das Pic-Control eingepasst (skaliert)
; Die Grafikdatei darf auch als Variable mit Binärdaten übergeben werden.
; Syntax: : _GuiCtrlSetImageEx([$idPic][, $sImgFile][, $fUpscale][, $iBkColor][, $fDebugInfo])
; Parameter(s): : $idPic = ID des Pic-Control (kann auch "Default" oder "-1" sein)
; $sImgFile = der Pfad und Dateiname der Grafikdatei oder die Grafikdatei als Variable mit Binärdaten
; $fUpscale = falls TRUE, wird die Grafikdatei auf die Maße des Pic-Control hochscaliert
; $iBkColor = Hintergrundfarbe (Format: ARGB) für das Pic-Control
; $fDebugInfo = falls TRUE, werden ein paar Debugdaten in der Console angezeigt
; Requirement: : oben stehende Includes und AutoIt-Version >= v3.3.12.0
; Return Value(s): : Im Erfolgsfall wird TRUE zurückgegeben (@error = 0). Ansonsten:
; @error = 1 wenn das Pic-Control nicht existiert
; @error = 2 wenn die Abmessungen des Pic-Control nicht gelesen werden konnten
; @error = 3 wenn die Grafikdatei nicht geladen werden konnte
; Author(s): : Oscar (www.autoit.de)
; Version / Date: : 1.1.0.0 / 14.07.2015
;===============================================================================
; Das original von Oscar. Macht die ganze Arbeit im Skript. Hat er als Antwort auf die Frage geschickt wie man die Vorschau dynamisch an die GUI-Größe anpassen kann
; https://autoit.de/index.php/Thread/85338-GUI-Fenster-Gr%C3%B6%C3%9Fen%C3%A4nderung-wie-geht-das-mit-GDIPlus-Elementen/?postID=683416#post683416
; Funktioniert 1a - Nutze ich abgewandelt (siehe nächste Funktion)
Func _GuiCtrlSetImageEx($idPic = Default, $sImgFile = '', $fUpscale = False, $iBkColor = 0x00000000, $fDebugInfo = False)
Local $hPic, $hParent, $aPos, $hGfx, $hImage, $hBitmap, $hGfxCtxt, $iImgWidth, $iImgHeight, $hBitmapScaled, $hBMP
Local $iScalefactor = 1, $iFactorW, $iFactorH, $iScaleWidth, $iScaleHeight, $iError = 0
If $idPic = Default Or $idPic <= 0 Then $idPic = _WinAPI_GetDlgCtrlID(GUICtrlGetHandle($idPic))
$hPic = GUICtrlGetHandle($idPic) ; das Handle vom Pic-Control holen
If Not IsHWnd($hPic) Then Return SetError(1, 0, 0) ; wenn kein Handle, dann Funktion mit Fehlermeldung verlassen
$hParent = _WinAPI_GetParent($hPic) ; das Fenster des Pic-Controls ermitteln
$aPos = ControlGetPos($hParent, '', $idPic) ; die Koordinaten und Abmessungen des Pic-Control ermitteln
_GDIPlus_Startup() ; GDI-Plus starten
$hBitmap = _GDIPlus_BitmapCreateFromScan0($aPos[2], $aPos[3]) ; Eine Bitmap erstellen
$hGfxCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap) ; Graphic-Context der Bitmap holen
_GDIPlus_GraphicsSetInterpolationMode($hGfxCtxt, $GDIP_INTERPOLATIONMODE_HIGHQUALITYBICUBIC)
_GDIPlus_GraphicsClear($hGfxCtxt, $iBkColor) ; Die Bitmap mit der Hintergrundfarbe füllen
If IsBinary($sImgFile) Then ; wenn die Grafikdatei als Binärdaten übergeben wurde, dann...
$hImage = _GDIPlus_BitmapCreateFromMemory($sImgFile) ; die Grafikdatei aus den Binärdaten laden
If @error Then $iError = 3 ; wenn das laden der Binärdaten fehlgeschlagen ist, dann Errorcode speichern
Else ; sonst (Grafikdatei befindet sich auf Datenträger)...
$hImage = _GDIPlus_BitmapCreateFromFile($sImgFile) ; die Grafikdatei laden
If @error Then $iError = 3 ; wenn das laden der Datei fehlgeschlagen ist, dann Errorcode speichern
EndIf
If Not $iError Then ; wenn kein Fehler aufgetreten ist, dann...
$iImgWidth = _GDIPlus_ImageGetWidth($hImage) ; die Breite der Grafikdatei holen
$iImgHeight = _GDIPlus_ImageGetHeight($hImage) ; die Höhe der Grafikdatei holen
; wenn die Größe des Pic-Controls kleiner als die Grafikdatei ist oder $fUpscale = True,
; dann muss die Grafikdatei skaliert werden (Scalefactor berechnen):
If ($aPos[2] < $iImgWidth Or $aPos[3] < $iImgHeight) Or ($fUpscale = True) Then
$iFactorW = $aPos[2] / $iImgWidth
$iFactorH = $aPos[3] / $iImgHeight
$iScalefactor = ($iFactorW > $iFactorH ? $iFactorH : $iFactorW)
EndIf
$iScaleWidth = Int($iImgWidth * $iScalefactor) ; die Breite der skalierten Grafikdatei berechnen
$iScaleHeight = Int($iImgHeight * $iScalefactor) ; die Höhe der skalierten Grafikdatei berechnen
If $fDebugInfo Then ; Debuginformationen ausgeben, wenn gewünscht:
ConsoleWrite(StringFormat('Ctrl-Size: %i x %i\n', $aPos[2], $aPos[3]))
ConsoleWrite(StringFormat('Img-Size: %i x %i\n', $iImgWidth, $iImgHeight))
ConsoleWrite(StringFormat('Scale-Factor: %f\n', $iScalefactor))
ConsoleWrite(StringFormat('Scale-Size: %i x %i\n\n', $iScaleWidth, $iScaleHeight))
EndIf
$hBitmapScaled = _GDIPlus_ImageResize($hImage, $iScaleWidth, $iScaleHeight) ; die Grafikdatei skalieren
; und zentriert in die Bitmap zeichnen:
_GDIPlus_GraphicsDrawImageRect($hGfxCtxt, $hBitmapScaled, ($aPos[2] - $iScaleWidth) / 2, ($aPos[3] - $iScaleHeight) / 2, $iScaleWidth, $iScaleHeight)
EndIf
_WinAPI_LockWindowUpdate($hParent)
$hBMP = _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap) ; HBitmap von der Bitmap erstellen
_WinAPI_DeleteObject(GUICtrlSendMsg($idPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hBMP)) ; und an das Pic-Control senden
_WinAPI_LockWindowUpdate(0)
; zum Schluss noch aufräumen...
_WinAPI_DeleteObject($hBMP)
_GDIPlus_BitmapDispose($hBitmapScaled)
_GDIPlus_GraphicsDispose($hGfxCtxt)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hGfx)
_GDIPlus_BitmapDispose($hImage)
_GDIPlus_Shutdown()
Return SetError($iError, 0, $iError = 0)
EndFunc ;==>_GuiCtrlSetImageEx
; ###############################################################################################################################################################################################
;~ ____ _ ____ _ _ ____ _ ___ _____ __ __ _ _ __ _ _
;~ / ___|_ _(_)/ ___| |_ _ __| / ___| ___| |_|_ _|_ __ ___ __ _ __ _ ___| ____|_ __ | \/ | ___ __| (_)/ _(_) ___ __| |
;~ | | _| | | | | | | __| '__| \___ \ / _ \ __|| || '_ ` _ \ / _` |/ _` |/ _ \ _| \ \/ / | |\/| |/ _ \ / _` | | |_| |/ _ \/ _` |
;~ | |_| | |_| | | |___| |_| | | |___) | __/ |_ | || | | | | | (_| | (_| | __/ |___ > < | | | | (_) | (_| | | _| | __/ (_| |
;~ ____\____|\__,_|_|\____|\__|_| |_|____/ \___|\__|___|_| |_| |_|\__,_|\__, |\___|_____/_/\_\___|_| |_|\___/ \__,_|_|_| |_|\___|\__,_|
;~ |_____| |___/ |_____|
; Die Funktion wie zuvor, jedoch abgeändert für dieses Programm
; Änderung 1: Gibt die Bildmaße als Array zurück: $_a_PictureMetrics[5] ; 0 = X / 1 = Y / 2 = Farbtiefe / 3 = Darstellungsgröße in % / 4 = Dateigröße
; also alle Zeilen welche dieses Array enthalten sind neu
Func _GuiCtrlSetImageEx_Modified($idPic = Default, $sImgFile = '', $fUpscale = False, $iBkColor = 0x00000000, $fDebugInfo = False)
Local $_a_PictureMetrics[5] ; 0 = X / 1 = Y / 2 = Farbtiefe / 3 = Darstellungsgröße in % / 4 = Dateigröße
Local $hPic, $hParent, $aPos, $hGfx, $hImage, $hBitmap, $hGfxCtxt, $iImgWidth, $iImgHeight, $hBitmapScaled, $hBMP, $aPixelFormat
Local $iScalefactor = 1, $iFactorW, $iFactorH, $iScaleWidth, $iScaleHeight, $iError = 0
If $idPic = Default Or $idPic <= 0 Then $idPic = _WinAPI_GetDlgCtrlID(GUICtrlGetHandle($idPic))
$hPic = GUICtrlGetHandle($idPic) ; das Handle vom Pic-Control holen
If Not IsHWnd($hPic) Then
SetError(1, 0, 0) ; wenn kein Handle, dann Funktion mit Fehlermeldung verlassen
Return $_a_PictureMetrics
EndIf
$hParent = _WinAPI_GetParent($hPic) ; das Fenster des Pic-Controls ermitteln
$aPos = ControlGetPos($hParent, '', $idPic) ; die Koordinaten und Abmessungen des Pic-Control ermitteln
_GDIPlus_Startup() ; GDI-Plus starten
$hBitmap = _GDIPlus_BitmapCreateFromScan0($aPos[2], $aPos[3]) ; Eine Bitmap erstellen
$hGfxCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap) ; Graphic-Context der Bitmap holen
_GDIPlus_GraphicsSetInterpolationMode($hGfxCtxt, $GDIP_INTERPOLATIONMODE_HIGHQUALITYBICUBIC)
_GDIPlus_GraphicsClear($hGfxCtxt, $iBkColor) ; Die Bitmap mit der Hintergrundfarbe füllen
If IsBinary($sImgFile) Then ; wenn die Grafikdatei als Binärdaten übergeben wurde, dann...
$hImage = _GDIPlus_BitmapCreateFromMemory($sImgFile) ; die Grafikdatei aus den Binärdaten laden
If @error Then $iError = 3 ; wenn das laden der Binärdaten fehlgeschlagen ist, dann Errorcode speichern
Else ; sonst (Grafikdatei befindet sich auf Datenträger)...
$hImage = _GDIPlus_BitmapCreateFromFile($sImgFile) ; die Grafikdatei laden
If @error Then
$iError = 3 ; wenn das laden der Datei fehlgeschlagen ist, dann Errorcode speichern
Else
; Dateigröße holen
$_a_PictureMetrics[4] = _ByteSuffix(FileGetSize($sImgFile))
EndIf
EndIf
If Not $iError Then ; wenn kein Fehler aufgetreten ist, dann...
$iImgWidth = _GDIPlus_ImageGetWidth($hImage) ; die Breite der Grafikdatei holen
$iImgHeight = _GDIPlus_ImageGetHeight($hImage) ; die Höhe der Grafikdatei holen
$_a_PictureMetrics[0] = $iImgWidth
$_a_PictureMetrics[1] = $iImgHeight
$aPixelFormat = _GDIPlus_ImageGetPixelFormat($hImage) ; Daten zu Farbtiefe, dpi etc holen
$_a_PictureMetrics[2] = StringFormat("%i Bit", $aPixelFormat[1])
;~ MsgBox(0, "$aPixelFormat", "$aPixelFormat[0]: " & $aPixelFormat[0] & @CRLF & "$aPixelFormat[1]: " & $_a_PictureMetrics[2])
; wenn die Größe des Pic-Controls kleiner als die Grafikdatei ist oder $fUpscale = True,
; dann muss die Grafikdatei skaliert werden (Scalefactor berechnen):
If ($aPos[2] < $iImgWidth Or $aPos[3] < $iImgHeight) Or ($fUpscale = True) Then
$iFactorW = $aPos[2] / $iImgWidth
$iFactorH = $aPos[3] / $iImgHeight
$iScalefactor = ($iFactorW > $iFactorH ? $iFactorH : $iFactorW)
EndIf
$iScaleWidth = Int($iImgWidth * $iScalefactor) ; die Breite der skalierten Grafikdatei berechnen
$iScaleHeight = Int($iImgHeight * $iScalefactor) ; die Höhe der skalierten Grafikdatei berechnen
;~ $fDebugInfo = True
If $fDebugInfo Then ; Debuginformationen ausgeben, wenn gewünscht:
ConsoleWrite(StringFormat('Ctrl-Size: %i x %i\n', $aPos[2], $aPos[3]))
ConsoleWrite(StringFormat('Img-Size: %i x %i\n', $iImgWidth, $iImgHeight))
ConsoleWrite(StringFormat('Scale-Factor: %f\n', $iScalefactor))
ConsoleWrite(StringFormat('Scale-Size: %i x %i\n\n', $iScaleWidth, $iScaleHeight))
EndIf
$_a_PictureMetrics[3] = Int($iScalefactor * 100) & "%"
$hBitmapScaled = _GDIPlus_ImageResize($hImage, $iScaleWidth, $iScaleHeight) ; die Grafikdatei skalieren
; und zentriert in die Bitmap zeichnen:
_GDIPlus_GraphicsDrawImageRect($hGfxCtxt, $hBitmapScaled, ($aPos[2] - $iScaleWidth) / 2, ($aPos[3] - $iScaleHeight) / 2, $iScaleWidth, $iScaleHeight)
EndIf
_WinAPI_LockWindowUpdate($hParent)
$hBMP = _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap) ; HBitmap von der Bitmap erstellen
_WinAPI_DeleteObject(GUICtrlSendMsg($idPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hBMP)) ; und an das Pic-Control senden
_WinAPI_LockWindowUpdate(0)
; zum Schluss noch aufräumen...
_WinAPI_DeleteObject($hBMP)
_GDIPlus_BitmapDispose($hBitmapScaled)
_GDIPlus_GraphicsDispose($hGfxCtxt)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hGfx)
_GDIPlus_BitmapDispose($hImage)
_GDIPlus_Shutdown()
SetError($iError, 0, $iError = 0)
Return $_a_PictureMetrics
EndFunc ;==>_GuiCtrlSetImageEx
; ###############################################################################################################################################################################################
;~ _ _ _
;~ | | | | ___| |_ __
;~ | |_| |/ _ \ | '_ \
;~ | _ | __/ | |_) |
;~ ____|_| |_|\___|_| .__/
;~ |_____| |_|
Func _Help()
; Transparentes Overlay als Hilfe über dem Fenster - Schritt für Schritt die Bedienelemente
Local $_a_MousePos
; Drag'n Drop auf die Vorschau und den Quellpfad
Local $_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_DragNDrop1png())
Local $_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
Local $_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
Local $_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
Local $_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $id_InputSourceDirectory)
Local $_i_TargetX = $_a_ControlPos[0] + Int($_i_Width1 / 2) - 100
Local $_i_TargetY = $_a_ControlPos[1]
Local $_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
Local $_help_ButtonOK = _GDIPlus_BitmapCreateFromMemory(_Help_ButtonOK())
Local $_help_h_ButtonOK = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_ButtonOK)
Local $_i_Width2 = _GDIPlus_ImageGetWidth($_help_ButtonOK)
Local $_i_Height2 = _GDIPlus_ImageGetHeight($_help_ButtonOK)
Local $_help_h_FormOK = GUICreate("FotoSort2017 Hilfe OK", $_i_Width2, $_i_Height2, $_i_TargetX + $_i_Width1, $_i_TargetY + Int($_i_Height1 / 2 - $_i_Height2 / 2), $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormOK)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_ButtonOK, $_help_h_FormOK, $_i_Width2, $_i_Height2)
AutoItSetOption("GUIOnEventMode", 0)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
Local $_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Navigieren
$_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_Navigationpng())
$_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
$_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
$_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
$_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $id_InputPicNumber)
$_i_TargetX = $_a_ControlPos[0] - 115
$_i_TargetY = $_a_ControlPos[1] - 358
$_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
WinMove($_help_h_FormOK, "", $_i_TargetX , $_i_TargetY - 200)
GUISetState(@SW_SHOW, $_help_h_FormOK)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
$_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Kopieren oder verschieben
$_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_CopyMovepng())
$_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
$_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
$_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
$_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $a_id_TargetDirectories[1][1])
$_i_TargetX = $_a_ControlPos[0] - 205
$_i_TargetY = $_a_ControlPos[1] - $_i_Height1 + 15
$_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
WinMove($_help_h_FormOK, "", $_i_TargetX + 100, $_i_TargetY + 300)
GUISetState(@SW_SHOW, $_help_h_FormOK)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
$_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Zielverzeichnis hinzufügen
$_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_AddTargetDirectoriespng())
$_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
$_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
$_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
$_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $id_ButtonAddTargetDirectory)
$_i_TargetX = $_a_ControlPos[0] - $_i_Width1 + 10
$_i_TargetY = $_a_ControlPos[1] - Int($_i_Height1 / 2) + Int($_a_ControlPos[3] / 2)
$_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
WinMove($_help_h_FormOK, "", $_i_TargetX + 50, $_i_TargetY + 200)
GUISetState(@SW_SHOW, $_help_h_FormOK)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
$_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Kopieren oder verschieben
$_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_CopyMovepng())
$_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
$_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
$_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
$_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $a_id_TargetDirectories[1][1])
$_i_TargetX = $_a_ControlPos[0] - 205
$_i_TargetY = $_a_ControlPos[1] - $_i_Height1 + 15
$_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
WinMove($_help_h_FormOK, "", $_i_TargetX + 100, $_i_TargetY + 300)
GUISetState(@SW_SHOW, $_help_h_FormOK)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
$_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Zielverzeichnis wählen
$_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_DragNDrop2png())
$_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
$_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
$_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
$_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $a_id_TargetDirectories[1][3])
$_i_TargetX = $_a_ControlPos[0] - 50
$_i_TargetY = $_a_ControlPos[1]
$_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
WinMove($_help_h_FormOK, "", $_i_TargetX + 75, $_i_TargetY + 240)
GUISetState(@SW_SHOW, $_help_h_FormOK)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
$_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Button Löschen
$_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_BildLoeschenpng())
$_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
$_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
$_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
For $i = 0 To (UBound($a_id_Tools) - 1) Step 1
If $a_id_Tools[$i][0] = "DEL" Then
$_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $a_id_Tools[$i][1])
ExitLoop
EndIf
Next
$_i_TargetX = $_a_ControlPos[0] - 50
$_i_TargetY = $_a_ControlPos[1] - $_i_Height1 + 6
$_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
WinMove($_help_h_FormOK, "", $_i_TargetX - $_i_Width2 - 20 , $_i_TargetY)
GUISetState(@SW_SHOW, $_help_h_FormOK)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
$_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Button Umbennen
$_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_Umbennenpng())
$_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
$_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
$_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
For $i = 0 To (UBound($a_id_Tools) - 1) Step 1
If $a_id_Tools[$i][0] = "Rename" Then
$_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $a_id_Tools[$i][1])
ExitLoop
EndIf
Next
$_i_TargetX = $_a_ControlPos[0] - 50
$_i_TargetY = $_a_ControlPos[1] - $_i_Height1 + 6
$_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
WinMove($_help_h_FormOK, "", $_i_TargetX - $_i_Width2 - 20 , $_i_TargetY)
GUISetState(@SW_SHOW, $_help_h_FormOK)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
$_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Button Reload
$_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_Reloadpng())
$_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
$_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
$_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
For $i = 0 To (UBound($a_id_Tools) - 1) Step 1
If $a_id_Tools[$i][0] = "RELOAD" Then
$_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $a_id_Tools[$i][1])
ExitLoop
EndIf
Next
$_i_TargetX = $_a_ControlPos[0] - 55
$_i_TargetY = $_a_ControlPos[1] - $_i_Height1 + 6
$_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
WinMove($_help_h_FormOK, "", $_i_TargetX - $_i_Width2 - 20 , $_i_TargetY)
GUISetState(@SW_SHOW, $_help_h_FormOK)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
$_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Button Dateiliste
$_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_FileListpng())
$_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
$_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
$_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
For $i = 0 To (UBound($a_id_Tools) - 1) Step 1
If $a_id_Tools[$i][0] = "Filenames" Then
$_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $a_id_Tools[$i][1])
ExitLoop
EndIf
Next
$_i_TargetX = $_a_ControlPos[0] - 55
$_i_TargetY = $_a_ControlPos[1] - $_i_Height1 + 6
$_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
WinMove($_help_h_FormOK, "", $_i_TargetX - $_i_Width2 - 20 , $_i_TargetY)
GUISetState(@SW_SHOW, $_help_h_FormOK)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
$_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Button Hintergrundfarbe
$_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_Backgroundpng())
$_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
$_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
$_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
For $i = 0 To (UBound($a_id_Tools) - 1) Step 1
If $a_id_Tools[$i][0] = "BKG" Then
$_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $a_id_Tools[$i][1])
ExitLoop
EndIf
Next
$_i_TargetX = $_a_ControlPos[0] - 55
$_i_TargetY = $_a_ControlPos[1] - $_i_Height1 + 6
$_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
WinMove($_help_h_FormOK, "", $_i_TargetX - $_i_Width2 - 20 , $_i_TargetY)
GUISetState(@SW_SHOW, $_help_h_FormOK)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
$_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Reset
$_help_Bitmap = _GDIPlus_BitmapCreateFromMemory(_Help_Resetpng())
$_help_h_Bitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($_help_Bitmap)
$_i_Width1 = _GDIPlus_ImageGetWidth($_help_Bitmap)
$_i_Height1 = _GDIPlus_ImageGetHeight($_help_Bitmap)
For $i = 0 To (UBound($a_id_Tools) - 1) Step 1
If $a_id_Tools[$i][0] = "RESET" Then
$_a_ControlPos = _WinAPI_ControlGetPosEx($h_FormFotoSort2017, $a_id_Tools[$i][1])
ExitLoop
EndIf
Next
$_i_TargetX = $_a_ControlPos[0] - 55
$_i_TargetY = $_a_ControlPos[1] - $_i_Height1 + 6
$_help_h_FormHint = GUICreate("FotoSort2017 Hilfe Pfeile", $_i_Width1, $_i_Height1, $_i_TargetX, $_i_TargetY, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW, $_help_h_FormHint)
_WinAPI_DisplayTransparentBitmapInGUI($_help_h_Bitmap, $_help_h_FormHint, $_i_Width1, $_i_Height1)
WinMove($_help_h_FormOK, "", $_i_TargetX - $_i_Width2 - 20 , $_i_TargetY)
GUISetState(@SW_SHOW, $_help_h_FormOK)
While 1
$_a_MousePos = MouseGetPos()
ToolTip("Abbruch der Hilfe mit rechter Maustaste!", $_a_MousePos[0] + 15, $_a_MousePos[1], "Hinweis:")
Sleep(100)
$_n_Msg = GUIGetMsg(1)
Switch $_n_Msg[0]
Case $GUI_EVENT_PRIMARYDOWN
If $_n_Msg[1] = $_help_h_FormOK Then
GUISetState(@SW_HIDE, $_help_h_FormOK)
Sleep(250)
ExitLoop
EndIf
Case $GUI_EVENT_SECONDARYDOWN
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
Return 1
EndSwitch
WEnd
_GDIPlus_BitmapDispose($_help_Bitmap)
GUIDelete($_help_h_FormHint)
; Hilfe ist Fertig!
_GDIPlus_BitmapDispose($_help_ButtonOK)
GUIDelete($_help_h_FormOK)
AutoItSetOption("GUIOnEventMode", 1)
ToolTip("")
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _ _ _ ___ _ _ ____ ____ _ _
;~ | _ \(_) ___| |_ _ _ _ __ ___ / \ ___| | __/ _ \__ _____ _ ____ ___ __(_) |_ ___| _ \ ___ _ __ __ _ _ __ ___ ___| _ \(_) __ _| | ___ __ _
;~ | |_) | |/ __| __| | | | '__/ _ \ / _ \ / __| |/ / | | \ \ / / _ \ '__\ \ /\ / / '__| | __/ _ \ |_) / _ \ '_ \ / _` | '_ ` _ \ / _ \ | | | |/ _` | |/ _ \ / _` |
;~ | __/| | (__| |_| |_| | | | __// ___ \\__ \ <| |_| |\ V / __/ | \ V V /| | | | || __/ _ < __/ | | | (_| | | | | | | __/ |_| | | (_| | | (_) | (_| |
;~ ____|_| |_|\___|\__|\__,_|_| \___/_/ \_\___/_|\_\\___/ \_/ \___|_| \_/\_/ |_| |_|\__\___|_| \_\___|_| |_|\__,_|_| |_| |_|\___|____/|_|\__,_|_|\___/ \__, |
;~ |_____| |___/
; Falls es die Zieldatei schon gibt kann man neben Überschreiben und Suffix auch "Nachfragen" auswählen.
; Da kommt jetzt ein neues Fenster welches Quelle und Ziel nebeneinander zeigt und man zwischen 3 Optionen wählen kann
Func _PictureAskOverwriteRenameDialog($_s_PicSourceFile, $_s_PicTargetFile, $_s_Headline = "Bild ist schon im Zielordner vorhanden:", $_b_Overwrite = True, $_b_Rename = True, $_b_Cancel = True)
GUISetState(@SW_DISABLE, $h_FormFotoSort2017) ; Das Hauptfenster reagiert ab jetzt auf nichts mehr
Local $_s_empty = ""
Local $_a_SourceFile = _PathSplit($_s_PicSourceFile, $_s_empty, $_s_empty, $_s_empty, $_s_empty)
Local $_a_TargetFile = _PathSplit($_s_PicTargetFile, $_s_empty, $_s_empty, $_s_empty, $_s_empty)
Local $_Sub1_h_FormAskOverwriteRename = GUICreate("Überschreiben oder Umbenennen", 1072, 733, -1, -1, $WS_POPUP, $WS_EX_TOPMOST, $h_FormFotoSort2017)
GUISetFont($s_FontSizeForm * $i_AppliedDPI, 400, 0, "$s_FontNameForm")
GUISetBkColor(0x000000)
Local $_Sub1_id_Label1 = GUICtrlCreateLabel($_s_Headline, 0, 4, 1072, 28, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont($_Sub1_id_Label1, 20 * $i_AppliedDPI, 400, 0, "$s_FontNameForm")
GUICtrlSetColor($_Sub1_id_Label1, 0xC0C0C0)
Local $_Sub1_id_PictureSource = GUICtrlCreatePic("", 5, 40, 514, 530)
Local $_Sub1_id_PictureTarget = GUICtrlCreatePic("", 549, 40, 514, 530)
Local $_Sub1_id_LabelSource = GUICtrlCreateLabel("", 5, 576, 514, 25, BitOR($SS_CENTER,$SS_CENTERIMAGE))
Local $_Sub1_id_LabelSourceName = GUICtrlCreateLabel($_a_SourceFile[3] & $_a_SourceFile[4], 5, 606, 514, 25, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetColor($_Sub1_id_LabelSource, 0xC0C0C0)
GUICtrlSetColor($_Sub1_id_LabelSourceName, 0xC0C0C0)
Local $_Sub1_id_LabelTarget = GUICtrlCreateLabel("", 549, 576, 514, 25, BitOR($SS_CENTER,$SS_CENTERIMAGE))
Local $_Sub1_id_LabelTargetName = GUICtrlCreateLabel($_a_TargetFile[3] & $_a_TargetFile[4], 549, 606, 514, 25, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetColor($_Sub1_id_LabelTarget, 0xC0C0C0)
GUICtrlSetColor($_Sub1_id_LabelTargetName, 0xC0C0C0)
Local $_Sub1_id_ButtonOverwrite = GUICtrlCreateButton(" A Überschreiben", 406, 638, 234, 30, $BS_LEFT)
_WinAPI_DeleteObject(_SendMessage(GUICtrlGetHandle($_Sub1_id_ButtonOverwrite), $BM_SETIMAGE, $IMAGE_BITMAP, $_Resources_Overwriteico))
If $_b_Overwrite = False Then
GUICtrlSetState($_Sub1_id_ButtonOverwrite, $GUI_DISABLE)
EndIf
Local $_Sub1_id_ButtonRename = GUICtrlCreateButton(" B Umbenennen", 406, 670, 234, 30, $BS_LEFT)
_WinAPI_DeleteObject(_SendMessage(GUICtrlGetHandle($_Sub1_id_ButtonRename), $BM_SETIMAGE, $IMAGE_BITMAP, $_Resources_CheckOffico2))
If $_b_Rename = False Then
GUICtrlSetState($_Sub1_id_ButtonRename, $GUI_DISABLE)
EndIf
Local $_Sub1_id_ButtonCancel = GUICtrlCreateButton(" C Abbrechen", 406, 702, 234, 30, $BS_LEFT)
_WinAPI_DeleteObject(_SendMessage(GUICtrlGetHandle($_Sub1_id_ButtonCancel), $BM_SETIMAGE, $IMAGE_BITMAP, $_Resources_Cancelico))
If $_b_Cancel = False Then
GUICtrlSetState($_Sub1_id_ButtonCancel, $GUI_DISABLE)
EndIf
; Auch hier natürlich mit Tastendruck möglich. Da es nur 4 sind legen wir die eben händisch an
Local $_a_AccKeys[4][2] = [ [ "a", $_Sub1_id_ButtonOverwrite ], [ "b", $_Sub1_id_ButtonRename ], [ "c", $_Sub1_id_ButtonCancel ], [ "{ESC}", $_Sub1_id_ButtonCancel ] ]
GUISetState(@SW_SHOW, $_Sub1_h_FormAskOverwriteRename)
GUISetAccelerators($_a_AccKeys, $_Sub1_h_FormAskOverwriteRename)
; $_Sub1_a_PicMetrics1: 0 = X / 1 = Y / 2 = Farbtiefe / 3 = Darstellungsgröße in % / 4 = Dateigröße
Local $_Sub1_a_PicMetrics1 = _GuiCtrlSetImageEx_Modified($_Sub1_id_PictureSource, $_s_PicSourceFile, $b_Upscale, 0xFF00AA00, False)
Local $_Sub1_a_PicMetrics2 = _GuiCtrlSetImageEx_Modified($_Sub1_id_PictureTarget, $_s_PicTargetFile, $b_Upscale, 0xFFAA0000, False)
GUICtrlSetData($_Sub1_id_LabelSource, $_Sub1_a_PicMetrics1[0] & " x " & $_Sub1_a_PicMetrics1[1] & " px - " & $_Sub1_a_PicMetrics1[2] & " - " & $_Sub1_a_PicMetrics1[4])
GUICtrlSetData($_Sub1_id_LabelTarget, $_Sub1_a_PicMetrics2[0] & " x " & $_Sub1_a_PicMetrics2[1] & " px - " & $_Sub1_a_PicMetrics2[2] & " - " & $_Sub1_a_PicMetrics2[4])
; Ich wollte das jetzt nicht in das Hauptprogramm einbauen. Der Benutzer darf jetzt schon so lange in dieser Funktion bleiben bis er sich entschieden hat
; Also klassisch mit einer endlos While 1 Schleife bis ein Button gewählt wurde, Der GUIOnEventMode kommt solange aus (sonst funktioniert GUIGetMsg() nicht)
AutoItSetOption("GUIOnEventMode", 0)
While 1
Local $_n_Msg = GUIGetMsg()
Switch $_n_Msg
Case $_Sub1_id_ButtonCancel
GUIDelete($_Sub1_h_FormAskOverwriteRename) ; Dialog löschen
AutoItSetOption("GUIOnEventMode", 1) ; GUIOnEventMode wieder an
GUISetState(@SW_ENABLE, $h_FormFotoSort2017) ; Hauptprogramm wieder bedienbar
WinActivate($h_FormFotoSort2017)
If @Compiled = 0 Then
WinSetOnTop($h_FormFotoSort2017, "", $WINDOWS_ONTOP)
Sleep(250)
WinSetOnTop($h_FormFotoSort2017, "", $WINDOWS_NOONTOP)
EndIf
Return "Cancel" ; Ergebnis der Frag zurück geben
Case $_Sub1_id_ButtonOverwrite
GUIDelete($_Sub1_h_FormAskOverwriteRename)
AutoItSetOption("GUIOnEventMode", 1)
GUISetState(@SW_ENABLE, $h_FormFotoSort2017)
WinActivate($h_FormFotoSort2017)
If @Compiled = 0 Then
WinSetOnTop($h_FormFotoSort2017, "", $WINDOWS_ONTOP)
Sleep(250)
WinSetOnTop($h_FormFotoSort2017, "", $WINDOWS_NOONTOP)
EndIf
Return "Overwrite"
Case $_Sub1_id_ButtonRename
GUIDelete($_Sub1_h_FormAskOverwriteRename)
AutoItSetOption("GUIOnEventMode", 1)
GUISetState(@SW_ENABLE, $h_FormFotoSort2017)
WinActivate($h_FormFotoSort2017)
If @Compiled = 0 Then
WinSetOnTop($h_FormFotoSort2017, "", $WINDOWS_ONTOP)
Sleep(250)
WinSetOnTop($h_FormFotoSort2017, "", $WINDOWS_NOONTOP)
EndIf
Return "Rename"
EndSwitch
WEnd
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _ ____
;~ | _ \(_) ___| |_ _ _ _ __ ___ / ___|___ _ __ _ _
;~ | |_) | |/ __| __| | | | '__/ _ \ | | / _ \| '_ \| | | |
;~ | __/| | (__| |_| |_| | | | __/ | |__| (_) | |_) | |_| |
;~ ____|_| |_|\___|\__|\__,_|_| \___|___\____\___/| .__/ \__, |
;~ |_____| |_____| |_| |___/
; Kopiert das Bild in den Zielordner
Func _Picture_Copy()
For $i = 1 to $a_id_TargetDirectories[0][0] Step 1
If @GUI_CtrlId = $a_id_TargetDirectories[$i][1] Then
; Den eigentlichen Vorgang habe ich ausgelagert da sonst in _Picture_Copy() und _Picture_Move() ganz viel doppelt stehen würde
_Picture_WorkerModule($i, False) ; False = kopieren
ExitLoop
EndIf
Next
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _ ____ _ _
;~ | _ \(_) ___| |_ _ _ _ __ ___ | _ \ ___| | ___| |_ ___
;~ | |_) | |/ __| __| | | | '__/ _ \ | | | |/ _ \ |/ _ \ __/ _ \
;~ | __/| | (__| |_| |_| | | | __/ | |_| | __/ | __/ || __/
;~ ____|_| |_|\___|\__|\__,_|_| \___|___|____/ \___|_|\___|\__\___|
;~ |_____| |_____|
; Löscht das aktuelle Bild. Wenn es nicht klappt bekommt der Benutzer es "wieder" angezeigt
Func _Picture_Delete()
Local $_i_PicNumber = GUICtrlRead($id_InputPicNumber)
If FileRecycle($a_s_PictureFilenames[ $_i_PicNumber ]) = 1 Then
_GUICtrlStatusBar_SetText($id_StatusBar, "Datei gelöscht: " & $a_s_PictureFilenames[ $_i_PicNumber ], 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconCheckOff)
Else
_GUICtrlStatusBar_SetText($id_StatusBar, "Konnte nicht gelöscht werden: " & $a_s_PictureFilenames[ $_i_PicNumber ], 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
Return 1
EndIf
_ArrayDelete($a_s_PictureFilenames, $_i_PicNumber)
$a_s_PictureFilenames[0] = $a_s_PictureFilenames[0] - 1
;~ _ReadFileList()
_SelectCurrentPicture($_i_PicNumber)
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _ __ __
;~ | _ \(_) ___| |_ _ _ _ __ ___ | \/ | _____ _____
;~ | |_) | |/ __| __| | | | '__/ _ \ | |\/| |/ _ \ \ / / _ \
;~ | __/| | (__| |_| |_| | | | __/ | | | | (_) \ V / __/
;~ ____|_| |_|\___|\__|\__,_|_| \___|___|_| |_|\___/ \_/ \___|
;~ |_____| |_____|
; Verschiebt das Bild. Nein macht es nicht. Bild wird kopiert - und wenn das geklappt hat wird das Original gelöscht
Func _Picture_Move()
For $i = 1 to $a_id_TargetDirectories[0][0] Step 1
If @GUI_CtrlId = $a_id_TargetDirectories[$i][2] Then
; Den eigentlichen Vorgang habe ich ausgelagert da sonst in _Picture_Copy() und _Picture_Move() ganz viel doppelt stehen würde
_Picture_WorkerModule($i, True) ; True = "verschieben"
ExitLoop
EndIf
Next
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _ __ __ _ __ __ _ _
;~ | _ \(_) ___| |_ _ _ _ __ ___ \ \ / /__ _ __| | _____ _ __| \/ | ___ __| |_ _| | ___
;~ | |_) | |/ __| __| | | | '__/ _ \ \ \ /\ / / _ \| '__| |/ / _ \ '__| |\/| |/ _ \ / _` | | | | |/ _ \
;~ | __/| | (__| |_| |_| | | | __/ \ V V / (_) | | | < __/ | | | | | (_) | (_| | |_| | | __/
;~ ____|_| |_|\___|\__|\__,_|_| \___|___\_/\_/ \___/|_| |_|\_\___|_| |_| |_|\___/ \__,_|\__,_|_|\___|
;~ |_____| |_____|
Func _Picture_WorkerModule($_i_NumberTargetDirectory, $_b_Move = False)
Local $_b_Error = False ; Zum auswerten ob es Fehler gab. In dem Fall löschen wir nix
Local $_b_FindDoubleFiles = False
If BitAND(GUICtrlRead($id_CheckboxDoubleFiles), $GUI_CHECKED) = $GUI_CHECKED Then
$_b_FindDoubleFiles = True
EndIf
If $_b_Move = False Then
ControlFocus($h_FormFotoSort2017, "", $a_id_TargetDirectories[$_i_NumberTargetDirectory][1]) ; Focus auf den Button Kopieren der Zeile
Else
ControlFocus($h_FormFotoSort2017, "", $a_id_TargetDirectories[$_i_NumberTargetDirectory][2]) ; Focus auf den Button verschieben der Zeile
EndIf
; Positon vorne / hinten der Zeile holen um unseren Rahmen zu plazieren
$_a_ButtonCopy = ControlGetPos($h_FormFotoSort2017, "", $a_id_TargetDirectories[$_i_NumberTargetDirectory][1])
$_a_ButtonSelectFolder = ControlGetPos($h_FormFotoSort2017, "", $a_id_TargetDirectories[$_i_NumberTargetDirectory][4])
; Und den Rahmen verschieben
ControlMove($h_FormFotoSort2017, "", $id_ThisOne1, $_a_ButtonCopy[0] - 2, $_a_ButtonCopy[1] - 2)
ControlMove($h_FormFotoSort2017, "", $id_ThisOne2, $_a_ButtonCopy[0] - 3, $_a_ButtonCopy[1] - 3)
; Und einfärben - erst einmal rot
GUICtrlSetColor($id_ThisOne1, 0xFF0000) ; rot
GUICtrlSetColor($id_ThisOne2, 0xFF0000) ; rot
If GUICtrlRead($a_id_TargetDirectories[$_i_NumberTargetDirectory][3]) <> "" And Int(GUICtrlRead($id_InputPicNumber)) > 0 Then
; Der Check mit den doppelten Dateien
If $_b_FindDoubleFiles = True Then
Local $_i_SizeSourceFile = FileGetSize($a_s_PictureFilenames[ Int(GUICtrlRead($id_InputPicNumber)) ])
_Crypt_Startup()
Local $_md5_SourceFile = _Crypt_HashFile($a_s_PictureFilenames[ Int(GUICtrlRead($id_InputPicNumber)) ], $CALG_MD5)
$a_s_FilesInTarget = _RecursiveFileListToArray(GUICtrlRead($a_id_TargetDirectories[$_i_NumberTargetDirectory][3]), '(?m)(?i).+\.(' & $s_SearchPattern & ')$', 1, 1, False)
If IsArray($a_s_FilesInTarget) Then
ReDim $a_i_FileSizesInTarget[ $a_s_FilesInTarget[0] + 1 ]
$a_i_FileSizesInTarget[0] = $a_s_FilesInTarget[0]
_GUICtrlStatusBar_SetText($id_StatusBar, "Prüfe " & $a_s_FilesInTarget[0] & " Dateien ...", 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconInfo)
For $z = 1 To $a_s_FilesInTarget[0] Step 1
$a_i_FileSizesInTarget[$z] = FileGetSize($a_s_FilesInTarget[$z])
If $a_i_FileSizesInTarget[$z] = $_i_SizeSourceFile Then
If _Crypt_HashFile($a_s_FilesInTarget[$z], $CALG_MD5) = $_md5_SourceFile Then
_PictureAskOverwriteRenameDialog($a_s_PictureFilenames[ GUICtrlRead($id_InputPicNumber) ], $a_s_FilesInTarget[$z], "Identische Datei (gleiche Prüfsumme)", False, False, True)
$i_Timeout = 1000
_ThisOne() ; setzt den Rahmen von alleine wieder auf unsichtbar
Return
EndIf
EndIf
Next
EndIf
_Crypt_Shutdown()
EndIf
; Es gibt schon mal einen Zielordner
; Wir bauen uns den Zielnahmen zusammen
Local $_s_TargetFilename = GUICtrlRead($a_id_TargetDirectories[$_i_NumberTargetDirectory][3]) & "\" & $a_CurrentPictureFilename[0] & $a_CurrentPictureFilename[1]
If FileExists($_s_TargetFilename) = 0 Then ; Zieldatei gibt es nicht, weiter!
If FileCopy($a_s_PictureFilenames[ GUICtrlRead($id_InputPicNumber) ], $_s_TargetFilename, $FC_NOOVERWRITE ) = 1 Then
_GUICtrlStatusBar_SetText($id_StatusBar, "Kopiert nach: " & $_s_TargetFilename, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconCheckOff)
Else
_GUICtrlStatusBar_SetText($id_StatusBar, "FEHLER beim Kopieren nach: " & $_s_TargetFilename, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
$_b_Error = True ; Es gab einen Fehler - den merken wir uns falls noch gelöscht werden soll
EndIf
Else
; Einfach kopieren ging nicht, die Zieldatei gibt es schon
If BitAND(GUICtrlRead($id_RadioOverwrite), $GUI_CHECKED) = $GUI_CHECKED Then
; Aber wir wollen einfach überschreiben!
If FileCopy($a_s_PictureFilenames[ GUICtrlRead($id_InputPicNumber) ], $_s_TargetFilename, $FC_OVERWRITE) = 1 Then
_GUICtrlStatusBar_SetText($id_StatusBar, "Überschrieben: " & $_s_TargetFilename, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconCheckOff)
Else
_GUICtrlStatusBar_SetText($id_StatusBar, "FEHLER beim Überschreiben von: " & $_s_TargetFilename, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
$_b_Error = True
EndIf
EndIf
If BitAND(GUICtrlRead($id_RadioAddSuffix), $GUI_CHECKED) = $GUI_CHECKED Then
; Wir wollen ein Suffix anhängen!
$_s_TargetFilename = _GetUniqueFileName(GUICtrlRead($a_id_TargetDirectories[$_i_NumberTargetDirectory][3]) & "\" & $a_CurrentPictureFilename[0], $a_CurrentPictureFilename[1])
If $_s_TargetFilename = -1 Then
;Es gab einen eindeutigen neuen Dateinamen zurück. Passiert wenn im Suffix-Feld keine # stehen
Return 1
EndIf
If FileCopy($a_s_PictureFilenames[ GUICtrlRead($id_InputPicNumber) ], $_s_TargetFilename, $FC_NOOVERWRITE) = 1 Then
_GUICtrlStatusBar_SetText($id_StatusBar, "Kopiert nach: " & $_s_TargetFilename, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconCheckOff)
Else
_GUICtrlStatusBar_SetText($id_StatusBar, "FEHLER beim Kopieren nach: " & $_s_TargetFilename, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
$_b_Error = True
EndIf
EndIf
If BitAND(GUICtrlRead($id_RadioAskOverwrite), $GUI_CHECKED) = $GUI_CHECKED Then
; Wir wollen gefragt werden! Also den Dialog mit den beiden Bildern nebeneinander einblenden und das Ergebnis auswerten
Local $_s_Answer = _PictureAskOverwriteRenameDialog($a_s_PictureFilenames[ GUICtrlRead($id_InputPicNumber) ], $_s_TargetFilename)
Switch $_s_Answer
Case "Overwrite"
If FileCopy($a_s_PictureFilenames[ GUICtrlRead($id_InputPicNumber) ], $_s_TargetFilename, $FC_OVERWRITE) = 1 Then
_GUICtrlStatusBar_SetText($id_StatusBar, "Überschrieben: " & $_s_TargetFilename, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconCheckOff)
Else
_GUICtrlStatusBar_SetText($id_StatusBar, "FEHLER beim Überschreiben von: " & $_s_TargetFilename, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
$_b_Error = True
EndIf
Case "Rename"
$_s_TargetFilename = _GetUniqueFileName(GUICtrlRead($a_id_TargetDirectories[$_i_NumberTargetDirectory][3]) & "\" & $a_CurrentPictureFilename[0], $a_CurrentPictureFilename[1])
If $_s_TargetFilename = -1 Then
Return 1
EndIf
If FileCopy($a_s_PictureFilenames[ GUICtrlRead($id_InputPicNumber) ], $_s_TargetFilename, $FC_NOOVERWRITE) = 1 Then
_GUICtrlStatusBar_SetText($id_StatusBar, "Kopiert nach: " & $_s_TargetFilename, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconCheckOff)
Else
_GUICtrlStatusBar_SetText($id_StatusBar, "FEHLER beim Kopieren nach: " & $_s_TargetFilename, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
$_b_Error = True
EndIf
EndSwitch
EndIf
EndIf
Else
If Int(GUICtrlRead($id_InputPicNumber)) < 1 Then
; Der Zähler ist auf 0
_GUICtrlStatusBar_SetText($id_StatusBar, "Fehler: Kein Bild vorhanden!", 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
Else
; Das Feld mit dem Zielordner ist leer
_GUICtrlStatusBar_SetText($id_StatusBar, "Fehler: Zielverzeichnis " & $_i_NumberTargetDirectory & " ist nicht gesetzt", 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
EndIf
$_b_Error = True
EndIf
If $_b_Error = False And $_b_Move = True Then
; Es gab keine Fehler und es soll "verschoben" werden - na dann löschen wir das Original
_Picture_Delete()
EndIf
; Rahmen auf grün setzen
Sleep(250)
GUICtrlSetColor($id_ThisOne1, 0x00FF00) ; grün
GUICtrlSetColor($id_ThisOne2, 0x00FF00) ; grün
$i_Timeout = 1000
_ThisOne() ; setzt den Rahmen von alleine wieder auf unsichtbar
EndFunc
; ###############################################################################################################################################################################################
Func _PrimaryDown()
Local $_a_MouseCursorInfo = GUIGetCursorInfo($h_FormFotoSort2017)
If $_a_MouseCursorInfo[4] = $id_Picture Then
Local $_i_DoubleClickSpeed = RegRead('HKCU\Control Panel\Mouse', 'DoubleClickSpeed')
If TimerDiff($i_DoubleClickTimer) < $_i_DoubleClickSpeed Then
ShellExecute($a_s_PictureFilenames[Int(GUICtrlRead($id_InputPicNumber))])
;~ MsgBox(64, "", $a_s_PictureFilenames[$i_CurrentFilename])
$i_DoubleClickTimer = TimerInit()
EndIf
EndIf
$i_DoubleClickTimer = TimerInit()
EndFunc
; ###############################################################################################################################################################################################
;~ ____ __ _ _ _____ _ _ _
;~ | _ \ _ __ ___ / _(_) | ___ ___ | ____|_ ____ _| |_ _ __ _| |_(_) ___ _ __
;~ | |_) | '__/ _ \| |_| | |/ _ \/ __| | _| \ \ / / _` | | | | |/ _` | __| |/ _ \| '_ \
;~ | __/| | | (_) | _| | | __/\__ \ | |___ \ V / (_| | | |_| | (_| | |_| | (_) | | | |
;~ ____|_| |_| \___/|_| |_|_|\___||___/___|_____| \_/ \__,_|_|\__,_|\__,_|\__|_|\___/|_| |_|
;~ |_____| |_____|
Func _Profiles_Evaluation($hWnd, $iMsg, $wParam, $lParam)
#forceref $hWnd, $iMsg, $lParam
Local $_i_Selection = Dec(StringTrimLeft($wParam,2)) - 1000
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUIRegisterMsg($WM_CONTEXTMENU, "")
Switch $_i_Selection
Case 101
; Speichern
;~ MsgBox(0,"","Speichern unter neuen Namen!")
_Profiles_SaveNew()
Case 102
; Umbennen
;~ MsgBox(0,"","Umbennen!")
_Profiles_Rename()
Case 103
; Umbennen
;~ MsgBox(0,"","Löschen!")
_Profiles_Delete()
Case 104
; Leeren
_Profiles_Empty()
Case 1 To 100
Local $i_Folders = $a_id_TargetDirectories[0][0] ; Anzahl des gerade noch aktiven Profiles sichern - denn _Folder_Remove() zählt runter
; Alle Ordner löschen
For $z = 2 To $a_id_TargetDirectories[0][0] Step 1
_Folder_Remove()
Next
_SettingsWrite("$a_id_TargetDirectories[0][0]" & "-" & $s_ProfileActive, $i_Folders) ; Gesicherte Anzahl wieder setzen - und jetzt wechseln wir zum neuen Profil
$i_ProfileActive = $_i_Selection
$s_ProfileActive = $a_Profiles[$_i_Selection]
_SettingsWrite("$i_ProfileActive", $i_ProfileActive)
_SettingsWrite("$s_ProfileActive", $s_ProfileActive)
GUICtrlSetData($a_id_TargetDirectories[1][3], _SettingsRead("$a_id_TargetDirectories[1][3]" & "-" & $s_ProfileActive))
For $i = 2 To Int(_SettingsRead("$a_id_TargetDirectories[0][0]" & "-" & $s_ProfileActive)) Step 1 ; gibt es den Wert nicht so ist er 0 - und die Schleife wird nie gestartet
_Folder_Add()
GUICtrlSetData($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][3], _SettingsRead("$a_id_TargetDirectories[" & $a_id_TargetDirectories[0][0] & "][3]" & "-" & $s_ProfileActive))
Next
; Manchmal - warum auch immer - sitzen nach einem Programmstart und einem WinMove die + und - Schaltflächen nicht richtig. Also Sicherheitshalber noch mal die Korrektur laufen lassen
Local $a_ControlPos = ControlGetPos($h_FormFotoSort2017, "", $a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][1])
GUICtrlSetPos($id_ButtonAddTargetDirectory, $a_ControlPos[0], 232 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance))
GUICtrlSetPos($id_ButtonRemoveTargetDirectory, $a_ControlPos[0] + 32, 232 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance))
_GUICtrlStatusBar_SetText($id_StatusBar, 'zu Profil "' & $s_ProfileActive & '" gewechselt!', 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconInfo)
_GUICtrlStatusBar_SetText($id_StatusBar, $s_ProfileActive, 2)
EndSwitch
EndFunc ;==>WM_COMMAND
; ###############################################################################################################################################################################################
;~ ____ __ _ _ ____ __ __
;~ | _ \ _ __ ___ / _(_) | ___ ___ | _ \ ___ _ __ _ _ _ __ | \/ | ___ _ __ _ _
;~ | |_) | '__/ _ \| |_| | |/ _ \/ __| | |_) / _ \| '_ \| | | | '_ \| |\/| |/ _ \ '_ \| | | |
;~ | __/| | | (_) | _| | | __/\__ \ | __/ (_) | |_) | |_| | |_) | | | | __/ | | | |_| |
;~ ____|_| |_| \___/|_| |_|_|\___||___/___|_| \___/| .__/ \__,_| .__/|_| |_|\___|_| |_|\__,_|
;~ |_____| |_____| |_| |_|
Func _Profiles_PopupMenu($hWnd, $iMsg, $wParam, $lParam)
; Wird beim Klick auf die Profile-Schaltfläche geöffnet
; Handle WM_CONTEXTMENU messages
#forceref $hWnd, $iMsg, $lParam
Local $_h_Menu, $_i_Index
$_h_Menu = _GUICtrlMenu_CreatePopup()
;~ $hMenu = _GUICtrlMenu_CreatePopup($MNS_NOCHECK )
For $i = 1 To $a_Profiles[0] Step 1
_GUICtrlMenu_InsertMenuItem($_h_Menu, $i - 1, $a_Profiles[$i], (1000 + $i))
If $a_Profiles[$i] = $s_ProfileActive Then
_GUICtrlMenu_CheckMenuItem($_h_Menu, $i - 1, True)
EndIf
$_i_Index = $i - 1
Next
$_i_Index = $_i_Index + 1
_GUICtrlMenu_InsertMenuItem($_h_Menu, $_i_Index, "")
$_i_Index = $_i_Index + 1
_GUICtrlMenu_InsertMenuItem($_h_Menu, $_i_Index, "Speichern unter neuen Namen", (1101))
$_i_Index = $_i_Index + 1
_GUICtrlMenu_InsertMenuItem($_h_Menu, $_i_Index, "Umbennen", (1102))
$_i_Index = $_i_Index + 1
_GUICtrlMenu_InsertMenuItem($_h_Menu, $_i_Index, "Leeren", (1104))
$_i_Index = $_i_Index + 1
_GUICtrlMenu_InsertMenuItem($_h_Menu, $_i_Index, "Löschen", (1103))
_GUICtrlMenu_TrackPopupMenu($_h_Menu, $wParam)
_GUICtrlMenu_DestroyMenu($_h_Menu)
Return True
EndFunc ;==>_Profiles_PopupMenu
; ###############################################################################################################################################################################################
Func _Profiles_Delete()
Local $_s_ProfileToDelete = $s_ProfileActive
If $a_Profiles[0] > 1 Then
For $i = 1 To $a_Profiles[0]
If $a_Profiles[$i] = $s_ProfileActive Then
_ArrayDelete($a_Profiles, $i)
ExitLoop
EndIf
Next
$a_Profiles[0] = $a_Profiles[0] - 1
For $i = 1 To 50 Step 1
RegDelete($s_RegistryKeyname, "$a_Profiles[" & $i & "]")
Next
For $i = 1 To $a_Profiles[0] Step 1
_SettingsWrite("$a_Profiles[" & $i & "]", $a_Profiles[$i])
Next
_SettingsWrite("$a_Profiles[0]", $a_Profiles[0])
; Und Zielordner neu aufbauen
; Alle Ordner löschen
For $z = 2 To $a_id_TargetDirectories[0][0] Step 1
_Folder_Remove()
Next
For $i = 1 To 30 Step 1
RegDelete($s_RegistryKeyname, "$a_id_TargetDirectories[" & $i & "][3]" & "-" & $s_ProfileActive)
Next
RegDelete($s_RegistryKeyname, "$a_id_TargetDirectories[0][0]" & "-" & $s_ProfileActive)
$i_ProfileActive = 1
$s_ProfileActive = $a_Profiles[1]
_SettingsWrite("$i_ProfileActive", $i_ProfileActive)
_SettingsWrite("$s_ProfileActive", $s_ProfileActive)
;~ _SettingsWrite("$a_id_TargetDirectories[0][0]" & "-" & $s_ProfileActive, $a_id_TargetDirectories[0][0])
GUICtrlSetData($a_id_TargetDirectories[1][3], _SettingsRead("$a_id_TargetDirectories[1][3]" & "-" & $s_ProfileActive))
For $i = 2 To Int(_SettingsRead("$a_id_TargetDirectories[0][0]" & "-" & $s_ProfileActive)) Step 1 ; gibt es den Wert nicht so ist er 0 - und die Schleife wird nie gestartet
_Folder_Add()
GUICtrlSetData($a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][3], _SettingsRead("$a_id_TargetDirectories[" & $a_id_TargetDirectories[0][0] & "][3]" & "-" & $s_ProfileActive))
Next
; Manchmal - warum auch immer - sitzen nach einem Programmstart und einem WinMove die + und - Schaltflächen nicht richtig. Also Sicherheitshalber noch mal die Korrektur laufen lassen
;~ Local $a_ControlPos = ControlGetPos($h_FormFotoSort2017, "", $a_id_TargetDirectories[ $a_id_TargetDirectories[0][0] ][1])
;~ GUICtrlSetPos($id_ButtonAddTargetDirectory, $a_ControlPos[0], 232 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance))
;~ GUICtrlSetPos($id_ButtonRemoveTargetDirectory, $a_ControlPos[0] + 32, 232 + (($a_id_TargetDirectories[0][0] - 1) * $i_Distance))
_GUICtrlStatusBar_SetText($id_StatusBar, "Profil gelöscht: " & $_s_ProfileToDelete, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconInfo)
_GUICtrlStatusBar_SetText($id_StatusBar, $s_ProfileActive, 2)
EndIf
EndFunc
; ###############################################################################################################################################################################################
Func _Profiles_Empty()
For $z = 1 To $a_id_TargetDirectories[0][0] Step 1
GUICtrlSetData($a_id_TargetDirectories[$z][3], "")
_SettingsWrite("$a_id_TargetDirectories[" & $z & "][3]" & "-" & $s_ProfileActive, "")
Next
_GUICtrlStatusBar_SetText($id_StatusBar, "Zielpfade geleert!", 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconInfo)
EndFunc
; ###############################################################################################################################################################################################
Func _Profiles_Rename()
Local $_s_InputBoxAnswer = InputBox("Profil umbennen","Neuer Name des Profiles:", $a_Profiles[$i_ProfileActive] ," ","-1 ","-1", Default, Default,"300", $h_FormFotoSort2017)
If $_s_InputBoxAnswer <> "" Then
For $i = 1 To $a_id_TargetDirectories[0][0] Step 1 ; Pfade unter altem Profilnamen löschen
RegDelete($s_RegistryKeyname, "$a_id_TargetDirectories[" & $i & "][3]" & "-" & $s_ProfileActive)
Next
$a_Profiles[$i_ProfileActive] = $_s_InputBoxAnswer
_ArraySort($a_Profiles, 0, 1)
For $i = 1 To $a_Profiles[0] Step 1
_SettingsWrite("$a_Profiles[" & $i & "]", $a_Profiles[$i])
If $a_Profiles[$i] = $_s_InputBoxAnswer Then
$i_ProfileActive = $i
EndIf
Next
$s_ProfileActive = $_s_InputBoxAnswer
_SettingsWrite("$a_Profiles[0]", $a_Profiles[0])
_SettingsWrite("$i_ProfileActive", $i_ProfileActive)
_SettingsWrite("$s_ProfileActive", $s_ProfileActive)
_SettingsWrite("$a_id_TargetDirectories[0][0]" & "-" & $s_ProfileActive, $a_id_TargetDirectories[0][0])
For $i = 1 To $a_id_TargetDirectories[0][0] Step 1 ; Pfade unter neuen Profilnamen wieder schreiben
_SettingsWrite("$a_id_TargetDirectories[" & $i & "][3]" & "-" & $s_ProfileActive, GUICtrlRead($a_id_TargetDirectories[$i][3]))
Next
_GUICtrlStatusBar_SetText($id_StatusBar, "Profil umbenannt: " & $s_ProfileActive, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconInfo)
_GUICtrlStatusBar_SetText($id_StatusBar, $s_ProfileActive, 2)
Else
_GUICtrlStatusBar_SetText($id_StatusBar, "Fehler: Kein neuer Profilname angegeben", 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
EndIf
EndFunc
; ###############################################################################################################################################################################################
Func _Profiles_SaveNew()
Local $_s_InputBoxAnswer = InputBox("Profil speichern","Name des neuen Profiles:", "" ," ","-1 ","-1", Default, Default,"300", $h_FormFotoSort2017)
If $_s_InputBoxAnswer <> "" Then
$i_ProfileActive = 1
$a_Profiles[0] = $a_Profiles[0] + 1
ReDim $a_Profiles[ $a_Profiles[0] + 1]
$a_Profiles[ $a_Profiles[0] ] = $_s_InputBoxAnswer
_ArraySort($a_Profiles, 0, 1)
For $i = 1 To $a_Profiles[0] Step 1
_SettingsWrite("$a_Profiles[" & $i & "]", $a_Profiles[$i])
If $a_Profiles[$i] = $_s_InputBoxAnswer Then
$i_ProfileActive = $i
EndIf
Next
$s_ProfileActive = $_s_InputBoxAnswer
For $i = 1 To $a_id_TargetDirectories[0][0]
_SettingsWrite("$a_id_TargetDirectories[" & $i & "][3]" & "-" & $s_ProfileActive, GUICtrlRead($a_id_TargetDirectories[$i][3]))
Next
_SettingsWrite("$a_Profiles[0]", $a_Profiles[0])
_SettingsWrite("$i_ProfileActive", $i_ProfileActive)
_SettingsWrite("$s_ProfileActive", $s_ProfileActive)
_SettingsWrite("$a_id_TargetDirectories[0][0]" & "-" & $s_ProfileActive, $a_id_TargetDirectories[0][0])
_GUICtrlStatusBar_SetText($id_StatusBar, "Profil gespeichert: " & $s_ProfileActive, 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconInfo)
_GUICtrlStatusBar_SetText($id_StatusBar, $s_ProfileActive, 2)
Else
_GUICtrlStatusBar_SetText($id_StatusBar, "Fehler: Kein Profilname angegeben", 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
EndIf
EndFunc
; ###############################################################################################################################################################################################
Func _Profiles_Switch2Next()
; Überarbeitet: Nicht alle Ordner löschen und wieder neu einrichten sondern Unterschiede in der Anzahl ermitteln und nur die neuen Namen eintragen
Local $_s_ProfileOld, $_i_ProfileOld, $_s_ProfileNew, $_i_ProfileNew
$_s_ProfileOld = $s_ProfileActive
$i_ProfileActive = $i_ProfileActive + 1
If $i_ProfileActive > $a_Profiles[0] Then
$i_ProfileActive = 1
EndIf
$s_ProfileActive = $a_Profiles[$i_ProfileActive]
$_s_ProfileNew = $a_Profiles[$i_ProfileActive]
$_i_ProfileOld = Int(_SettingsRead("$a_id_TargetDirectories[0][0]" & "-" & $_s_ProfileOld))
$_i_ProfileNew = Int(_SettingsRead("$a_id_TargetDirectories[0][0]" & "-" & $_s_ProfileNew))
;~ MsgBox(0, "$i_ProfileActive", "$i_ProfileActive: " & $i_ProfileActive)
If $_i_ProfileOld > $_i_ProfileNew Then
For $z = 1 To ($_i_ProfileOld - $_i_ProfileNew) Step 1
_Folder_Remove()
Next
EndIf
If $_i_ProfileOld < $_i_ProfileNew Then
For $z = 1 To ($_i_ProfileNew - $_i_ProfileOld) Step 1
_Folder_Add()
Next
EndIf
_SettingsWrite("$a_id_TargetDirectories[0][0]" & "-" & $_s_ProfileOld, $_i_ProfileOld) ; Gesicherte Anzahl wieder setzen (_Folder_Remove() setzt den Zähler herunter, löscht aber nicht)
_SettingsWrite("$i_ProfileActive", $i_ProfileActive)
_SettingsWrite("$s_ProfileActive", $s_ProfileActive)
For $i = 1 To $_i_ProfileNew
GUICtrlSetData($a_id_TargetDirectories[$i][3], _SettingsRead("$a_id_TargetDirectories[" & $i & "][3]" & "-" & $_s_ProfileNew))
Next
_GUICtrlStatusBar_SetText($id_StatusBar, 'zu Profil "' & $s_ProfileActive & '" gewechselt!', 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconInfo)
_GUICtrlStatusBar_SetText($id_StatusBar, $s_ProfileActive, 2)
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _ _____ _ _ _____ _ _
;~ | _ \ __ _ __| (_) ___ | ___(_) | ___| ____|_ _(_)___| |_ ___
;~ | |_) / _` |/ _` | |/ _ \| |_ | | |/ _ \ _| \ \/ / / __| __/ __|
;~ | _ < (_| | (_| | | (_) | _| | | | __/ |___ > <| \__ \ |_\__ \
;~ ____|_| \_\__,_|\__,_|_|\___/|_| |_|_|\___|_____/_/\_\_|___/\__|___/
;~ |_____|
; Die Optione was bei doppelten Dateien passieren soll. Wenn da was geklickt wird in der Registry abspeichern
Func _RadioFileExists()
_SettingsWrite("$id_RadioOverwrite", GUICtrlRead($id_RadioOverwrite))
_SettingsWrite("$id_RadioAddSuffix", GUICtrlRead($id_RadioAddSuffix))
_SettingsWrite("$id_RadioAskOverwrite", GUICtrlRead($id_RadioAskOverwrite))
_SettingsWrite("$id_InputSuffix", GUICtrlRead($id_InputSuffix))
_SettingsWrite("$id_CheckboxDoubleFiles", GUICtrlRead($id_CheckboxDoubleFiles))
If @GUI_CtrlId = $id_InputSuffix Then
; Das gleiche wie beim Input für die Bildnummer. Sobald der Cursor in einem Input steht sind alle Tastenbedienungen aus.
; Damit die wieder angehen müssen wir den Focus verschieben
ControlFocus($h_FormFotoSort2017, "", $id_Picture)
EndIf
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _____ _ _ _ _ _
;~ | _ \ ___ __ _ __| | ___(_) | ___| | (_)___| |_
;~ | |_) / _ \/ _` |/ _` | |_ | | |/ _ \ | | / __| __|
;~ | _ < __/ (_| | (_| | _| | | | __/ |___| \__ \ |_
;~ ____|_| \_\___|\__,_|\__,_|_| |_|_|\___|_____|_|___/\__|
;~ |_____|
; Sorgt dafür das die aktuelle Liste der Dateien erstellt wird
Func _ReadFileList()
Local $_a_dummy[1] = [ 0 ], $_a_LabelBehindPicture1, $_a_LabelBehindPicture2, $_a_PicControlPos
If $s_SearchPattern = "" Then
_GUICtrlStatusBar_SetText($id_StatusBar, "Fehler: Kein Grafikformat ausgewählt" , 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
$a_s_PictureFilenames = $_a_dummy
Return 1
EndIf
If GUICtrlRead($id_InputSourceDirectory) = "" Then
_GUICtrlStatusBar_SetText($id_StatusBar, "Fehler: Kein Quellpfad ausgewählt" , 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
$a_s_PictureFilenames = $_a_dummy
Return 1
EndIf
If FileExists(GUICtrlRead($id_InputSourceDirectory)) = 0 then
GUICtrlSetData($id_InputSourceDirectory, "")
_SettingsWrite("$id_InputSourceDirectory", "")
_GUICtrlStatusBar_SetText($id_StatusBar, "Fehler: Quellpfad existiert nicht" , 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
$a_s_PictureFilenames = $_a_dummy
Return 1
Else
_GUICtrlStatusBar_SetText($id_StatusBar, "Lese Bilderliste ein ..." , 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconInfo)
EndIf
If BitAND(GUICtrlRead($id_CheckboxScanFolderRecursive), $GUI_CHECKED) = $GUI_CHECKED Then
Local $_b_ScanFolderRecursive = True
Else
Local $_b_ScanFolderRecursive = False
EndIf
_SettingsWrite("$_b_ScanFolderRecursive", $_b_ScanFolderRecursive) ; an dieser Stelle speichern wir ob wir rekurisv suchen oder nicht
$a_s_PictureFilenames = _RecursiveFileListToArray(GUICtrlRead($id_InputSourceDirectory), '(?m)(?i).+\.(' & $s_SearchPattern & ')$', 1, 1, $_b_ScanFolderRecursive)
If IsArray($a_s_PictureFilenames) = 0 Then
$a_s_PictureFilenames = $_a_dummy
EndIf
;~ $a_s_PictureFilenames = _RecursiveFileListToArray(GUICtrlRead($id_InputSourceDirectory), '(?i).+\.(' & $s_SearchPattern & ')', 1, 1, $_b_ScanFolderRecursive)
; Im gegensatz zu Oscar möchte ich meine Dateiliste alphabetisch sortiert
_ArraySort($a_s_PictureFilenames, 0, 1)
If $a_s_PictureFilenames[0] > 0 Then ; und wenn was in der Liste ist das erste Bild auswählen
_SelectCurrentPicture(1)
$i_CurrentFilename = 1
Else
$_a_LabelBehindPicture1 = ControlGetPos($h_FormFotoSort2017, "", $id_LabelBehindPicture1)
$_a_LabelBehindPicture2 = ControlGetPos($h_FormFotoSort2017, "", $id_LabelBehindPicture2)
$_a_PicControlPos = ControlGetPos($h_FormFotoSort2017, "", $id_Picture) ; aktuelle Position sichern
$_a_PicControlPos[0] = $_a_LabelBehindPicture1[0] + 2
$_a_PicControlPos[1] = $_a_LabelBehindPicture1[1] + 2
$_a_PicControlPos[2] = $_a_LabelBehindPicture1[2] - 4
$_a_PicControlPos[3] = $_a_LabelBehindPicture2[3] - 4
If $b_GIF = True Then
If $id_Background <> 0 Then
GUICtrlDelete($id_Background)
$id_Background = 0
EndIf
_GIF_DeleteGIF($id_Picture)
$id_Picture = GUICtrlCreatePic("", $_a_PicControlPos[0], $_a_PicControlPos[1], $_a_PicControlPos[2], $_a_PicControlPos[3])
GUICtrlSetResizing($id_Picture, $GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKBOTTOM)
GUICtrlSetStyle($id_Picture, "", $WS_EX_TOPMOST)
GUICtrlSetState($id_Picture, $GUI_DROPACCEPTED)
$b_GIF = False
EndIf
;~ -Global $h_test = _GDIPlus_ScaleImage2($d_Resources_PicTestBildpngGlobal, $_a_PicControlPos[2], $_a_PicControlPos[3], $d_BackgroundColor_ARGB, True, 7)
;~ _GDIPlus_ImageScale
_GuiCtrlSetImageEx($id_Picture, $d_Resources_PicTestBildpngGlobal, False, $d_BackgroundColor_ARGB, False)
;~ ControlMove($h_FormFotoSort2017, "", $id_Picture, 7, 90, 510, 526)
;~ Sleep(50)
;~ _WinAPI_DeleteObject(GUICtrlSendMsg($id_Picture, $STM_SETIMAGE, $IMAGE_BITMAP, $h_Resources_PicTestBildpngGlobal))
;~ Sleep(250)
;~ ControlMove($h_FormFotoSort2017, "", $id_Picture, $_a_PicControlPos[0], $_a_PicControlPos[1], $_a_PicControlPos[2], $_a_PicControlPos[3])
$b_Use_GuiCtrlSetImageEx = False
GUICtrlSetData($id_LabelPictureName, "")
_GUICtrlStatusBar_SetText($id_StatusBar, "Fehler: Keine Bilder gefunden" , 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconWarning)
EndIf
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _____ _ _ _ _ _ _____ _
;~ | _ \ ___ ___ _ _ _ __ ___(_)_ _____| ___(_) | ___| | (_)___| ||_ _|__ / \ _ __ _ __ __ _ _ _
;~ | |_) / _ \/ __| | | | '__/ __| \ \ / / _ \ |_ | | |/ _ \ | | / __| __|| |/ _ \ / _ \ | '__| '__/ _` | | | |
;~ | _ < __/ (__| |_| | | \__ \ |\ V / __/ _| | | | __/ |___| \__ \ |_ | | (_) / ___ \| | | | | (_| | |_| |
;~ ____|_| \_\___|\___|\__,_|_| |___/_| \_/ \___|_| |_|_|\___|_____|_|___/\__||_|\___/_/ \_\_| |_| \__,_|\__, |
;~ |_____| |___/
;===============================================================================
; Function Name: _RecursiveFileListToArray($sPath[, $sPattern][, $iFlag][, $iFormat][, $fRecursion][, $sDelim])
; Description:: gibt Verzeichnisse (rekursiv) und/oder Dateien zurück, die einem RegExp-Pattern entsprechen
; Parameter(s): $sPath = Startverzeichnis
; $sPattern = ein beliebiges RexExp-Pattern für die Auswahl
; $iFlag = Auswahl
; 0 = Dateien & Verzeichnisse
; 1 = nur Dateien
; 2 = nur Verzeichnisse
; $iFormat = Rückgabeformat
; 0 = String
; 1 = Array mit [0] = Anzahl
; 2 = Nullbasiertes Array
; $fRecursion = Verzeichnisse rekursiv durchsuchen
; False = Nein
; True = Ja
; $sDelim = Trennzeichen für die String-Rückgabe
; Requirement(s): AutoIt 3.3.0.0
; Return Value(s): Array/String mit den gefundenen Dateien/Verzeichnissen
; Author(s): Oscar (www.autoit.de)
; Anregungen von: bernd670 (www.autoit.de)
; und: AspirinJunkie (www.autoit.de)
;===============================================================================
; Oscars Funktion ist 4x schneller als das was ich sonst benutzt habe (bei 6000 Dateien statt 2 sec nur 0,05 sec)
Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $fRecursion = True, $sDelim = @CRLF, $fOpenDLL = True)
Local $hSearch, $sFile, $sReturn = '', $aD
Local Static $hDll
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$hSearch = FileFindFirstFile($sPath & '*')
If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
If $fOpenDLL Then $hDll = DllOpen('kernel32.dll')
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If @extended Then
$aD = DllCall($hDll, 'dword', 'GetFileAttributesW', 'wstr', $sPath & $sFile)
If @error Or BitAND($aD[0], 0x400) Then ContinueLoop
If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
If $fRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0, True, $sDelim, False)
ContinueLoop
EndIf
If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
WEnd
FileClose($hSearch)
If $fOpenDLL Then DllClose($hDll)
If $iFormat And $sReturn = '' Then Return SetError(0, 1, StringSplit($sReturn, '', $iFormat))
If $iFormat Then Return SetError(0, 2, StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat))
Return $sReturn
EndFunc ;==>_RecursiveFileListToArray
; ###############################################################################################################################################################################################
;~ ____ ____ ____ ____ _ ____ ____ ____
;~ | _ \ / ___| __ ) |___ \ / \ | _ \ / ___| __ )
;~ | |_) | | _| _ \ __) | / _ \ | |_) | | _| _ \
;~ | _ <| |_| | |_) | / __/ / ___ \| _ <| |_| | |_) |
;~ ____|_| \_\\____|____/___|_____|___/_/ \_\_| \_\\____|____/
;~ |_____| |_____| |_____|
Func _RGB_2_ARGB($d_RGB)
; Wandelt "normale" RGB-Werte im Format 0XRRGGBB in ARGB-Werte um
; https://www.autoitscript.com/forum/topic/167489-converting-hexcolor-to-argb/?do=findComment&comment=1225875
Local $_Blue = BitAND($d_RGB, 0xFF)
Local $_Green = BitAND(BitShift($d_RGB, 8), 0xFF)
Local $_Red = BitAND(BitShift($d_RGB, 16), 0xFF)
Return (0xFF000000 + $_Red * 0x10000 + $_Green * 0x100 + $_Blue)
EndFunc
; ###############################################################################################################################################################################################
;~ ____ _ _ ____ _ ____ _ _
;~ / ___| ___| | ___ ___| |_ / ___| _ _ __ _ __ ___ _ __ | |_| _ \(_) ___| |_ _ _ _ __ ___
;~ \___ \ / _ \ |/ _ \/ __| __| | | | | | '__| '__/ _ \ '_ \| __| |_) | |/ __| __| | | | '__/ _ \
;~ ___) | __/ | __/ (__| |_| |__| |_| | | | | | __/ | | | |_| __/| | (__| |_| |_| | | | __/
;~ ____|____/ \___|_|\___|\___|\__|\____\__,_|_| |_| \___|_| |_|\__|_| |_|\___|\__|\__,_|_| \___|
;~ |_____|
; Der Funktion übergibt man das gewünschte Bild - und diese sorgt dafür das es angezeigt wird
Func _SelectCurrentPicture($_i_PicNumber = 1)
Local $_a_PicControlPos, $_a_LabelBehindPicture1, $_a_LabelBehindPicture2
; Ersteinmal prüfen ob es ein gültiger Wert war, ggf. setzen wir auf das erste oder letzte Bild
If $a_s_PictureFilenames[0] > 0 Then
If $_i_PicNumber < 1 Then
$_i_PicNumber = 1
EndIf
If $_i_PicNumber > $a_s_PictureFilenames[0] Then
$_i_PicNumber = $a_s_PictureFilenames[0]
EndIf
_GUICtrlStatusBar_SetText($id_StatusBar, "Bild " & $_i_PicNumber & " von " & $a_s_PictureFilenames[0], 1)
GUICtrlSetData($id_InputPicNumber, $_i_PicNumber)
Else
; Keine gültige Nummer möglich, raus hier
_GUICtrlStatusBar_SetText($id_StatusBar, "", 1)
_GUICtrlStatusBar_SetText($id_StatusBar, "", 3)
GUICtrlSetData($id_InputPicNumber, 0)
WinSetTitle($h_FormFotoSort2017, "", $s_ProgramTitle & " " & $s_ProgramVersion)
Return 1
EndIf
$d_CurrentPicture = $a_s_PictureFilenames[$_i_PicNumber] ; Noch mal extra in eine Variable - weil wir das in der Funktion WM_SIZE etc. auch noch brauchen
Local $_s_empty = ""
; Wir dröseln den Pfad des Bildes auseinander
Local $_a_PathSplit = _PathSplit($a_s_PictureFilenames[$_i_PicNumber], $_s_empty, $_s_empty, $_s_empty, $_s_empty)
$a_CurrentPictureFilename[0] = $_a_PathSplit[3] ; Dateiname
$a_CurrentPictureFilename[1] = $_a_PathSplit[4] ; Endung
; Den Namen tragen wir in der Gui ein:
_GUICtrlStatusBar_SetText($id_StatusBar, $_a_PathSplit[3] & $_a_PathSplit[4], 0)
_GUICtrlStatusBar_SetIcon($id_StatusBar, 0, $h_IconPicture)
GUICtrlSetData($id_LabelPictureName, $_a_PathSplit[3] & $_a_PathSplit[4])
GUICtrlSetTip($id_LabelPictureName, $_a_PathSplit[3] & $_a_PathSplit[4])
$_a_LabelBehindPicture1 = ControlGetPos($h_FormFotoSort2017, "", $id_LabelBehindPicture1)
$_a_LabelBehindPicture2 = ControlGetPos($h_FormFotoSort2017, "", $id_LabelBehindPicture2)
If $b_FirstPicture = True Then
; Sonderlocke erstes Bild. Da wird das PicControl einmal gelöscht und neu erstellt
; Nutzen wir auch ggf. zur Fehlerbehebung beim Maximieren / Restore
$_a_PicControlPos = ControlGetPos($h_FormFotoSort2017, "", $id_Picture) ; aktuelle Position sichern
GUICtrlDelete($id_Picture) ; löschen
$_a_PicControlPos[0] = $_a_LabelBehindPicture1[0] + 2
$_a_PicControlPos[1] = $_a_LabelBehindPicture1[1] + 2
$_a_PicControlPos[2] = $_a_LabelBehindPicture1[2] - 4
$_a_PicControlPos[3] = $_a_LabelBehindPicture2[3] - 4
; Wieder neu erstellen
$id_Picture = GUICtrlCreatePic("", $_a_PicControlPos[0], $_a_PicControlPos[1], $_a_PicControlPos[2], $_a_PicControlPos[3])
GUICtrlSetResizing($id_Picture, $GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKBOTTOM)
GUICtrlSetStyle($id_Picture, "", $WS_EX_TOPMOST)
GUICtrlSetState($id_Picture, $GUI_DROPACCEPTED)
$b_FirstPicture = False
$b_Use_GuiCtrlSetImageEx = True
EndIf
; Auswerten ob kleinere Bilder gezoomt werden
If BitAND(GUICtrlRead($id_CheckboxPictureFitSize), $GUI_CHECKED) = $GUI_CHECKED Then
$b_Upscale = True
Else
$b_Upscale = False
EndIf
; $a_CurrentPictureMetrics; 0 = X / 1 = Y / 2 = Farbtiefe / 3 = Darstellungsgröße in % / 4 = Dateigröße
; Jetzt wird das Bild geladen / gezeichnet
If $a_CurrentPictureFilename[1] = ".gif" Then
$a_CurrentPictureMetrics = _GUICtrlSetGIF_Mod($id_Picture, $d_CurrentPicture, $b_Upscale)
$b_GIF = True
GUICtrlSetState($id_Picture, $GUI_DROPACCEPTED)
Else
If $b_GIF = True Then
If $id_Background <> 0 Then
GUICtrlDelete($id_Background)
$id_Background = 0
EndIf
$_a_PicControlPos = ControlGetPos($h_FormFotoSort2017, "", $id_Picture) ; aktuelle Position sichern
$_a_PicControlPos[0] = $_a_LabelBehindPicture1[0] + 2
$_a_PicControlPos[1] = $_a_LabelBehindPicture1[1] + 2
$_a_PicControlPos[2] = $_a_LabelBehindPicture1[2] - 4
$_a_PicControlPos[3] = $_a_LabelBehindPicture2[3] - 4
_GIF_DeleteGIF($id_Picture)
$id_Picture = GUICtrlCreatePic("", $_a_PicControlPos[0], $_a_PicControlPos[1], $_a_PicControlPos[2]