[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien

**chip**

Zum einfachen verständiss und grob gesagt ja.

AnMa

Irgendwie hab ich was mit der Funktionalität der Buttons verpasst

Aber ich finde nicht den Fehler warum der Button nicht reagiert.

Spoiler anzeigen

[autoit]

#Region ### INCLUDES ###
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>
#include <GroupEx[0.5].au3>
#include <Winamp_Library.au3>
#EndRegion ### INCLUDES ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### INI-READ ###
;~ [Program-Info]
$Version = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Version", "default")
$build = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Build", "default")
$author = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Author", "default")
$copyright = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "copyright", "default")
$contact_mail = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "contact_mail", "default")

[/autoit] [autoit][/autoit] [autoit]

;~ [Options]
$zugang = IniRead(@ScriptDir & "\data\config.ini", "Options", "zugang", "default")
$ftp_server = IniRead(@ScriptDir & "\data\config.ini", "Basics", "ftp_server", "default")
$ftp_user = IniRead(@ScriptDir & "\data\config.ini", "Options", "ftp_user", "default")
$ftp_passwd = IniRead(@ScriptDir & "\data\config.ini", "Options", "ftp_passwd", "default")
$audiopath = IniRead(@ScriptDir & "\data\config.ini", "Options", "audiopath", "default")
$db = IniRead(@ScriptDir & "\data\config.ini", "Options", "db", "default")

[/autoit] [autoit][/autoit] [autoit]

;~ [Audios]
$news = IniRead(@ScriptDir & "\data\config.ini", "Audios", "news", "default")
$newsopener = IniRead(@ScriptDir & "\data\config.ini", "Audios", "newsopener", "default")
$newscloser = IniRead(@ScriptDir & "\data\config.ini", "Audios", "newscloser", "default")
$cine = IniRead(@ScriptDir & "\data\config.ini", "Audios", "cine", "default")
#EndRegion ### INI-READ ###

[/autoit] [autoit][/autoit] [autoit]

;~ MsgBox(0, "Testbox für Variablen", $Version)

[/autoit] [autoit][/autoit] [autoit]

#Region ### DCLARATION OF VARS ###
$sGuiMain = GUICreate("BeCast Downloader V. " & $Version & " - für Radio4Players", 800, 550, 20, 20)
#EndRegion ### DCLARATION OF VARS ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### GUI OPTIONS ###
GUISetState()
GUISetBkColor(0x000000)
GUISetIcon("becast_icon.ico")
GUICtrlCreatePic(@ScriptDir & "\images\BeCast_Hintergrund.jpg", 0, 0, 800, 530)
#EndRegion ### GUI OPTIONS ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### GUI FORM ###
_GUICtrlCreateLabelTrans ("Download auswählen:", 75, 48, 278, 24)
GUICtrlSetFont(-1, 12, 800, 4, "Arial Black")

[/autoit] [autoit][/autoit] [autoit]

$sGuiMainGroup_1 = _GUICtrlGroup_Create("Nachrichten:", 15, 80, 185, 120)
;~ _GuiCtrlGroup_Set($sGuiMain, $Group1, '', BitOR($_GROUPTEXT_DEFAULT,$_GROUPTEXT_TRANS))
_GuiCtrlGroup_Set($sGuiMain, $sGuiMainGroup_1, $GUI_BKCOLOR_TRANSPARENT, $_GROUPBACKGROUND)
_GUICtrlCreateLabelTrans("Montag - Freitag:", 25, 100, 101, 17)
_GUICtrlCreateLabelTrans("06:00 Uhr / 09:00 Uhr / 12:00 Uhr", 25, 130, 167, 17)
_GUICtrlCreateLabelTrans("jeweils ab ca. 10 Min vor", 25, 115, 121, 17)
_GUICtrlCreateLabelTrans("16:00 Uhr / 20:00 Uhr / 24:00 Uhr", 25, 145, 167, 17)
$sGuiMainButton_1 = GUICtrlCreateButton("Aktualisieren", 111, 168, 83, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### GUI FORM ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### MENU ###
$sMenuFile = GUICtrlCreateMenu("Datei")
$sMenuOpt = GUICtrlCreateMenu("Optionen")
$sMenuHelp = GUICtrlCreateMenu("?")

[/autoit] [autoit][/autoit] [autoit]

$sItemExit = GUICtrlCreateMenuItem("Beenden", $sMenuFile)

[/autoit] [autoit][/autoit] [autoit]

$sItemConnect = GUICtrlCreateMenuItem("Verbindung testen", $sMenuOpt)
$sItemTrenner_1 = GUICtrlCreateMenuItem("", $sMenuOpt)
$sItemState = GUICtrlCreateMenuItem("Statusanzeige", $sMenuOpt)
$sItemEinst = GUICtrlCreateMenuItem("Einstellungen", $sMenuOpt)

[/autoit] [autoit][/autoit] [autoit]

$sItemHelp = GUICtrlCreateMenuItem("Hilfe", $sMenuHelp)
$sItemAbout = GUICtrlCreateMenuItem("Info", $sMenuHelp)
#EndRegion ### MENU ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### WORKAROUND ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $sItemExit, $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
#EndRegion ### WORKAROUND ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

#Region ### FUNCTIONS ###
Func _GuiCtrlCreateLabelTrans($_text, $_left, $_top, $_width=Default, $_height=Default, $_style=-1, $_exStyle=0, $_iForeCol=-1)
Local $ID = GUICtrlCreateLabel($_text, $_left, $_top, $_width, $_height, $_style, $_exStyle)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
If $_iForeCol <> -1 Then GUICtrlSetColor(-1, $_iForeCol)
Return $ID
EndFunc
#EndRegion ### FUNCTIONS ###

[/autoit]

**BugFix**

Wenn du den Klick auf "$sGuiMainButton_1" auch auswerten möchtest, sollte der Button auch in der Schleife mit

[autoit]

;....
Case $sGuiMainButton_1
; Aktion bei Klick auf Button
;....

[/autoit]

abgefragt werden

AnMa

Ich habe jetzt zum Beispiel mal folgendes in die Schleife eingefügt....

[autoit]

Case $sGuiMainButton_1
MsgBox(0, 'Testing', 'Button 2 was pressed')

[/autoit]

Sieht also so aus

[autoit]

#Region ### WORKAROUND ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $sItemExit, $GUI_EVENT_CLOSE
Exit
Case $sGuiMainButton_1
MsgBox(0, 'Testing', 'Button 2 was pressed') ; Will demonstrate Button 2 being pressed
EndSwitch
WEnd
#EndRegion ### WORKAROUND ###

[/autoit]

Aber es passiert nix.

**BugFix**

Oh, sehe ich jetzt erst: Du solltest GuiSetState() nach dem Erstellen der GUI mit allen Inhalten, also direkt vor der Schleife, aufrufen.

AnMa

hmmm habs versetzt .. ändert aber nix daran ...

AnMa

Das ist nochmal mein komplettes Script und ich starte es mit F5 in AutoIt und es funktioniert kein Button ... Weder der Button, noch das Label

Spoiler anzeigen

[autoit]

#cs
######################################################
# BeCast Downloader #
# #
# Build 2013 #
# #
# BeCast V 2.0.1 #
# August 2013 #
# copyright by Anna Heiland #
######################################################
#ce

[/autoit] [autoit][/autoit] [autoit]

#Region ### INCLUDES ###
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>
#include <GroupEx[0.5].au3>
#include <Winamp_Library.au3>
#EndRegion ### INCLUDES ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### INI-READ ###
;~ [Program-Info]
$Version = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Version", "default")
$build = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Build", "default")
$author = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "Author", "default")
$copyright = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "copyright", "default")
$contact_mail = IniRead(@ScriptDir & "\data\config.ini", "Program-Info", "contact_mail", "default")

[/autoit] [autoit][/autoit] [autoit]

;~ [Options]
$zugang = IniRead(@ScriptDir & "\data\config.ini", "Options", "zugang", "default")
$ftp_server = IniRead(@ScriptDir & "\data\config.ini", "Basics", "ftp_server", "default")
$ftp_user = IniRead(@ScriptDir & "\data\config.ini", "Options", "ftp_user", "default")
$ftp_passwd = IniRead(@ScriptDir & "\data\config.ini", "Options", "ftp_passwd", "default")
$audiopath = IniRead(@ScriptDir & "\data\config.ini", "Options", "audiopath", "default")
$db = IniRead(@ScriptDir & "\data\config.ini", "Options", "db", "default")

[/autoit] [autoit][/autoit] [autoit]

;~ [Audios]
$news = IniRead(@ScriptDir & "\data\config.ini", "Audios", "news", "default")
$newsopener = IniRead(@ScriptDir & "\data\config.ini", "Audios", "newsopener", "default")
$newscloser = IniRead(@ScriptDir & "\data\config.ini", "Audios", "newscloser", "default")
$cine = IniRead(@ScriptDir & "\data\config.ini", "Audios", "cine", "default")
#EndRegion ### INI-READ ###

[/autoit] [autoit][/autoit] [autoit]

;~ MsgBox(0, "Testbox für Variablen", $Version)

[/autoit] [autoit][/autoit] [autoit]

#Region ### DCLARATION OF VARS ###
$sGuiMain = GUICreate("BeCast Downloader V. " & $Version & " - für Radio4Players", 800, 550, 20, 20)
#EndRegion ### DCLARATION OF VARS ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### GUI OPTIONS ###
GUISetBkColor(0x000000)
GUISetIcon("becast_icon.ico")
GUICtrlCreatePic(@ScriptDir & "\images\BeCast_Hintergrund.jpg", 0, 0, 800, 530)
#EndRegion ### GUI OPTIONS ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### GUI FORM ###
_GUICtrlCreateLabelTrans ("Download auswählen:", 75, 48, 278, 24)
GUICtrlSetFont(-1, 12, 800, 4, "Arial Black")

[/autoit] [autoit][/autoit] [autoit]

$sGuiMainGroup_1 = _GUICtrlGroup_Create("Nachrichten:", 15, 80, 185, 120)
;~ _GuiCtrlGroup_Set($sGuiMain, $Group1, '', BitOR($_GROUPTEXT_DEFAULT,$_GROUPTEXT_TRANS))
_GuiCtrlGroup_Set($sGuiMain, $sGuiMainGroup_1, $GUI_BKCOLOR_TRANSPARENT, $_GROUPBACKGROUND)
$Test = _GUICtrlCreateLabelTrans("Montag - Freitag:", 25, 100, 101, 17)
_GUICtrlCreateLabelTrans("06:00 Uhr / 09:00 Uhr / 12:00 Uhr", 25, 130, 167, 17)
_GUICtrlCreateLabelTrans("jeweils ab ca. 10 Min vor", 25, 115, 121, 17)
_GUICtrlCreateLabelTrans("16:00 Uhr / 20:00 Uhr / 24:00 Uhr", 25, 145, 167, 17)
$sGuiMainButton_1 = GUICtrlCreateButton("Aktualisieren", 111, 168, 83, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### GUI FORM ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### MENU ###
$sMenuFile = GUICtrlCreateMenu("Datei")
$sMenuOpt = GUICtrlCreateMenu("Optionen")
$sMenuHelp = GUICtrlCreateMenu("?")

[/autoit] [autoit][/autoit] [autoit]

$sItemExit = GUICtrlCreateMenuItem("Beenden", $sMenuFile)

[/autoit] [autoit][/autoit] [autoit]

$sItemConnect = GUICtrlCreateMenuItem("Verbindung testen", $sMenuOpt)
$sItemTrenner_1 = GUICtrlCreateMenuItem("", $sMenuOpt)
$sItemState = GUICtrlCreateMenuItem("Statusanzeige", $sMenuOpt)
$sItemEinst = GUICtrlCreateMenuItem("Einstellungen", $sMenuOpt)

[/autoit] [autoit][/autoit] [autoit]

$sItemHelp = GUICtrlCreateMenuItem("Hilfe", $sMenuHelp)
$sItemAbout = GUICtrlCreateMenuItem("Info", $sMenuHelp)
#EndRegion ### MENU ###

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

#Region ### WORKAROUND ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $sItemExit, $GUI_EVENT_CLOSE
Exit
Case $sGuiMainButton_1
MsgBox(0, 'Testing', 'Button 2 was pressed') ; Will demonstrate Button 2 being pressed
Case $Test
MsgBox(0, 'Testing', 'Button TEST was pressed') ; Will demonstrate Button 2 being pressed
EndSwitch
WEnd
#EndRegion ### WORKAROUND ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

#Region ### FUNCTIONS ###
Func _GuiCtrlCreateLabelTrans($_text, $_left, $_top, $_width=Default, $_height=Default, $_style=-1, $_exStyle=0, $_iForeCol=-1)
Local $ID = GUICtrlCreateLabel($_text, $_left, $_top, $_width, $_height, $_style, $_exStyle)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
If $_iForeCol <> -1 Then GUICtrlSetColor(-1, $_iForeCol)
Return $ID
EndFunc
#EndRegion ### FUNCTIONS ###

[/autoit]

**Oscar**

Dein Hintergrundbild überdeckt alle Control-Elemente. Du musst dieses disablen:

[autoit]

GuiCtrlSetState(-1,$GUI_DISABLE)

[/autoit]

unter die Zeile 56.
Außerdem würde ich Dir raten für die Inidatei eine Variable anzulegen, statt jedes Mal (@ScriptDir & "\data\config.ini") zu schreiben.
Also:

[autoit]

Global $sInifile = @ScriptDir & "\data\config.ini"

[/autoit]

und dann:

[autoit]

$Version = IniRead($sInifile, "Program-Info", "Version", "default")

[/autoit]

das hat den Vorteil, dass Du bei einer späteren Änderung nur an einer Stelle die Änderung vornehmen musst.

AnMa

Vielen Dank An BugFix und Oscar.

Das Problem mit dem Disabel hatten wir schon gefunden.

Das zweite werde ich auch in jedem Fall umsetzen .. Danke ..

AnMa

So, nun habe ich das bisherige komplette Script nochmal neu überarbeitet.

Variablen neu geschrieben, Funktionen eingerichtet usw...

Aber nun hänge ich fest. Aus der Main-Gui möchte ich über das Menu ein kleines Fester (Einstellungen) in einer Funktion aufrufen, was soweit auch gelingt. Aber wenn ich in dem neuen Fenster Groups anlegen möchte crasht das komplette Script.

[autoit]

;~ $sGuiOptGroup_2 = _GUICtrlGroup_Create("Zugangsdaten:", 5, 120, 440, 80)
;~ _GuiCtrlGroup_Set($sGuiOpt, $sGuiOptGroup_2, $GUI_BKCOLOR_TRANSPARENT, $_GROUPBACKGROUND)
_GUICtrlCreateLabelTrans("Benutzername:", 20, 145, 80, 20, $SS_RIGHT)
$sOptFtpUser = GUICtrlCreateInput($sOptFtpUser, 105, 143, 125, 20)
_GUICtrlCreateLabelTrans("Passwort:", 230, 145, 80, 20, $SS_RIGHT)
$sOptFtpPasswd = GUICtrlCreateInput($sOptFtpPasswd, 315, 143, 125, 20)
;~ GUICtrlCreateGroup("", -99, -99, 1, 1)

[/autoit]

Ich habe es auch schon mit $WS_CHILD in der folgenden Zeile versucht, aber dann öffnet er kein neues Fenster sondern überlagert das Alte.

[autoit]

$sGuiOpt = GUICreate("BeCast Downloader V. " & $sPrgVersion & " - Einstelungen", 450, 300, 250, 150, $WS_CHILD)

[/autoit]

Zu dem bin ich noch nciht dahinter gekommen, was ich am Exit-Befehl ändern muß, dass auch nur das neue Fenster und nicht die komplette Aplikation geschlossen wird.

Sonst läufts schon recht gut

**BugFix**

Erstelle am Skriptanfang die zweite GUI, die du dann bei Bedarf aufrufst und wieder ausblendest.
Du kannst mit GUISwitch() arbeiten oder GuiGetMsg(1) verwenden um die Gui zu schließen ohne das Hauptfenster abzuschießen.

AnMa

Ja ich weiß, von wegen "Gute Nacht"

Aber wenn ich mich mal in was verbissen habe, dann bin ich kaum zu bremsen.
Das Problem mit den Fenstern einzeln öffnen und schließen, wobei das Hauptfenster immer offen bleibt, konnte ich jetzt lösen.

Mit dem Group-Problem bin ich allerdings nicht weiter gekommen. Sobald ich in der zweiten GUI eine Group aktiviere stürzt das Script ab bevor es überhaupt startet.

Einzig diese Zeile sorgt für den crash, aber ich finde den Fehler darin nicht

[autoit]

$sGuiOptGroup_1 = _GUICtrlGroup_Create("Audioeinstellungen:", 5, 30, 440, 80)

[/autoit]

Fehlermeldung aus dem Output:
!>04:05:44 AutoIt3.exe ended.rc:-1073741819

STOP ... Also gerade habe ich festgestellt, dass wohl GroupEx[0.5].au3 nicht mit der zweiten GUI klar kommt.

Denn mit dieser Zeile funktioniert das Script:

[autoit]

$sGuiMainGroup_1 = GUICtrlCreateGroup("Nachrichten:", 15, 80, 185, 120)

[/autoit]

Was mach ich denn da schon wieder falsch ?

**BugFix**

Ja, das Problem liegt an der "GroupEx.au3". Ich schau mal warum das hakt und gebe dann Rückmeldung.

**BugFix**

So, war ein Bug in der "GroupEx.au3" -- gefixed. Dann funzt es auch bei dir.
Bitte beachten: Die neue Version (v0.6) hat einen zusätzlichen Parameter für die GUI, in der die Group erstellt wird.

Und wenn du die UDF herunterlädst, benenne sie lokal um zu "GroupEx.au3". Ich poste im Dateinamen immer den aktuellen Versionsstand, macht die Suche nach der aktuellen Version einfacher.

AnMa

Sehr fein ...

Das funktioniert soweit auch schön ...

Aber ... *grins*

Wenn ich jetzt alles entsprechend aktualisiere und aktiviere stürzt zwar nichts mehr ab und im Main-Gui wird auch alles wunderschön angezeigt. Im 2. Gui jedoch blendet die Funktion alle Labels, Buttons, Inputs usw. aus.

**BugFix**

Mein Goldstück :D, dann brauch ich aber mal etwas Code, um zu sehen was da los ist.

AnMa

*lach* - Das Goldstück muß jetzt gleich außer Haus, aber ich hoffe dass Dir das hier weiter hilft

Das ist der Bereich aus dem das zweite GUI entsteht.

Spoiler anzeigen

[autoit]

#Region #################### OPTION GUI ####################

[/autoit] [autoit][/autoit] [autoit]

#Region ### OPTION GUI - DECLARATION OF VARS ###
$sGuiOpt = GUICreate("BeCast Downloader V. " & $sPrgVersion & " - Einstelungen", 450, 300, 250, 150)
#EndRegion ### OPTION GUI - DECLARATION OF VARS ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### OPTION GUI - OPTIONS ###
GUISetBkColor(0x000000)
GUISetIcon("becast_icon.ico")
$Pic = GUICtrlCreatePic(@ScriptDir & "\images\BeCast_Hintergrund.jpg", -20, -70, 786, 501)
GUICtrlSetState(-1, $GUI_DISABLE)
#EndRegion ### OPTION GUI - OPTIONS ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### OPTION GUI - FORM ###
_GUICtrlCreateLabelTrans ("Einstellungen:", 5, 5, 178, 24)
GUICtrlSetFont(-1, 12, 800, 4, "Arial Black")

[/autoit] [autoit][/autoit] [autoit]

$sGuiOptGroup_1 = _GUICtrlGroup_Create($sGuiOpt, "Audioeinstellungen:", 5, 30, 440, 80)
_GuiCtrlGroup_Set($sGuiOpt, $sGuiOptGroup_1, $GUI_BKCOLOR_TRANSPARENT, $_GROUPBACKGROUND)
_GUICtrlCreateLabelTrans("Audioverzeichnis:", 10, 55, 90, 20, $SS_RIGHT)
$sOptAudiopathFinal = GUICtrlCreateInput($sOptAudiopath, 105, 53, 250, 20)
$sOptAudiopathButton = GUICtrlCreateButton("Browse", 360, 53, 75, 20)
_GUICtrlCreateLabelTrans("db:", 10, 80, 90, 20, $SS_RIGHT)
$sOptDbFinal = GUICtrlCreateInput("89", 105, 78, 50, 20)
GUICtrlCreateUpdown($sOptDb)
GUICtrlCreateGroup($sGuiOpt, "", -99, -99, 1, 1)

[/autoit] [autoit][/autoit] [autoit]

$sGuiOptGroup_2 = _GUICtrlGroup_Create($sGuiOpt, "Zugangsdaten:", 5, 120, 440, 80)
_GuiCtrlGroup_Set($sGuiOpt, $sGuiOptGroup_2, $GUI_BKCOLOR_TRANSPARENT, $_GROUPBACKGROUND)
_GUICtrlCreateLabelTrans("Benutzername:", 20, 145, 80, 20, $SS_RIGHT)
$sOptFtpUserFinal = GUICtrlCreateInput($sOptFtpUser, 105, 143, 125, 20)
_GUICtrlCreateLabelTrans("Passwort:", 230, 145, 80, 20, $SS_RIGHT)
$sOptFtpPasswdFinal = GUICtrlCreateInput($sOptFtpPasswd, 315, 143, 125, 20)
GUICtrlCreateGroup($sGuiOpt, "", -99, -99, 1, 1)

[/autoit] [autoit][/autoit] [autoit]

$sSave = GUICtrlCreateButton("Speichern", 270, 260, 75, 25)
$sCancel = GUICtrlCreateButton("Abbrechen", 360, 260, 75, 25)
#EndRegion ### OPTION GUI - FORM ###

[/autoit] [autoit][/autoit] [autoit]

#EndRegion #################### OPTION GUI ####################

[/autoit]

**Raupi**

Welche 2. GUI? Ich seh im Code davon nix. Poste mal den ganzen Code, wie du die 2. GUI aufruftst...

**BugFix**

Aha - Fehler wurde lokalisiert und gefixed. - Lade v0.7 und alles ist geritzt.

AnMa

Passt perfekt Danke vielmals für das schnelle Handling