From 7559b7f4ad8e959addb0e53cca2dad4d6b6253ed Mon Sep 17 00:00:00 2001
From: Conrad Zelck <git@simpel.cc>
Date: Sat, 28 Mar 2020 17:20:05 +0100
Subject: [PATCH] Add 'Analyse' splash screen while starting
Signed-off-by: Conrad Zelck <git@simpel.cc>
---
pro_audio.au3 | 15 +++++++++++----
1 file changed, 11 insertions(+), 4 deletions(-)
diff --git a/pro_audio.au3 b/pro_audio.au3
index c24ecfb..a43e144 100644
--- a/pro_audio.au3
+++ b/pro_audio.au3
@@ -1,8 +1,9 @@
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
-#AutoIt3Wrapper_Icon=Icons\peakmeter.ico
+#AutoIt3Wrapper_Icon=..\..\Icons\wave.ico
+#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Converting to wav with 48kHz 24bit.
#AutoIt3Wrapper_Res_Description=Converting to wav with 48kHz 24bit.
-#AutoIt3Wrapper_Res_Fileversion=1.1.0.14
+#AutoIt3Wrapper_Res_Fileversion=1.1.0.18
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_CompanyName=Norddeutscher Rundfunk
#AutoIt3Wrapper_Res_LegalCopyright=Conrad Zelck
@@ -26,6 +27,12 @@
#include <Sound.au3>
#include <TrayCox.au3> ; source: https://github.com/SimpelMe/TrayCox - not needed for functionality
+Local $hGUI = GUICreate(StringTrimRight(@ScriptName, 4), 290, 70)
+GUISetFont(10)
+GUICtrlCreateLabel("Analyse...", 20, 20, 130, 30)
+GUICtrlSetFont(-1, 14, 400, 0, "Lucida Sans Typewriter")
+GUISetState()
+
Opt("GUICloseOnESC", 0)
FileInstall('K:\ffmpeg\bin\ffmpeg.exe', @TempDir & "\ffmpeg.exe", $FC_OVERWRITE)
Local $sPathFFmpeg = @TempDir & "\"
@@ -46,7 +53,6 @@ EndIf
Local $aOneFolderFileList
Local $aFileList[0]
Local $sChoosenMedia
-Local $hGUI
If $aCmdLineCopy[0] > 0 Then ; if already Files exist
For $i = 1 to $aCmdLineCopy[0]
$sAttrib = FileGetAttrib($aCmdLineCopy[$i])
@@ -60,6 +66,7 @@ If $aCmdLineCopy[0] > 0 Then ; if already Files exist
Next
_ArrayInsert($aFileList, 0, UBound($aFileList))
Else ; no file in $CmdLine
+ GUIDelete()
$hGUI = GUICreate(StringTrimRight(@ScriptName, 4) & " - Auswahl", 290, 70)
GUISetFont(10)
Local $idButtonFiles = GUICtrlCreateButton("Dateien auswählen", 10, 20, 130, 30, $BS_DEFPUSHBUTTON)
@@ -96,7 +103,7 @@ Else ; no file in $CmdLine
EndIf
EndSwitch
EndIf
-
+GUIDelete()
If $aFileList[0] <= 0 Then
MsgBox($MB_TOPMOST, @ScriptName, "Es ist keine zu wandelnde Datei zu finden.")
Exit
--
GitLab