Zum einfachen verständiss und grob gesagt ja.
[PROJEKT] Automatisierter Download und Verarbeitung von Audiodateien
-
-
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 ###
[/autoit] [autoit][/autoit] [autoit]
#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 ####Region ### INI-READ ###
[/autoit] [autoit][/autoit] [autoit]
;~ [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");~ [Options]
[/autoit] [autoit][/autoit] [autoit]
$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");~ [Audios]
[/autoit] [autoit][/autoit] [autoit]
$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 ###;~ MsgBox(0, "Testbox für Variablen", $Version)
[/autoit] [autoit][/autoit] [autoit]#Region ### DCLARATION OF VARS ###
[/autoit] [autoit][/autoit] [autoit]
$sGuiMain = GUICreate("BeCast Downloader V. " & $Version & " - für Radio4Players", 800, 550, 20, 20)
#EndRegion ### DCLARATION OF VARS ####Region ### GUI OPTIONS ###
[/autoit] [autoit][/autoit] [autoit]
GUISetState()
GUISetBkColor(0x000000)
GUISetIcon("becast_icon.ico")
GUICtrlCreatePic(@ScriptDir & "\images\BeCast_Hintergrund.jpg", 0, 0, 800, 530)
#EndRegion ### GUI OPTIONS ####Region ### GUI FORM ###
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlCreateLabelTrans ("Download auswählen:", 75, 48, 278, 24)
GUICtrlSetFont(-1, 12, 800, 4, "Arial Black")$sGuiMainGroup_1 = _GUICtrlGroup_Create("Nachrichten:", 15, 80, 185, 120)
[/autoit] [autoit][/autoit] [autoit]
;~ _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 ####Region ### MENU ###
[/autoit] [autoit][/autoit] [autoit]
$sMenuFile = GUICtrlCreateMenu("Datei")
$sMenuOpt = GUICtrlCreateMenu("Optionen")
$sMenuHelp = GUICtrlCreateMenu("?")$sItemExit = GUICtrlCreateMenuItem("Beenden", $sMenuFile)
[/autoit] [autoit][/autoit] [autoit]$sItemConnect = GUICtrlCreateMenuItem("Verbindung testen", $sMenuOpt)
[/autoit] [autoit][/autoit] [autoit]
$sItemTrenner_1 = GUICtrlCreateMenuItem("", $sMenuOpt)
$sItemState = GUICtrlCreateMenuItem("Statusanzeige", $sMenuOpt)
$sItemEinst = GUICtrlCreateMenuItem("Einstellungen", $sMenuOpt)$sItemHelp = GUICtrlCreateMenuItem("Hilfe", $sMenuHelp)
[/autoit] [autoit][/autoit] [autoit]
$sItemAbout = GUICtrlCreateMenuItem("Info", $sMenuHelp)
#EndRegion ### MENU ####Region ### WORKAROUND ###
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $sItemExit, $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
#EndRegion ### WORKAROUND ###Exit
[/autoit] [autoit][/autoit] [autoit]#Region ### FUNCTIONS ###
[/autoit]
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 ### -
- Offizieller Beitrag
Wenn du den Klick auf "$sGuiMainButton_1" auch auswerten möchtest, sollte der Button auch in der Schleife mit
[autoit]
[/autoit]
;....
Case $sGuiMainButton_1
; Aktion bei Klick auf Button
;....abgefragt werden
-
Ich habe jetzt zum Beispiel mal folgendes in die Schleife eingefügt....
[autoit]Case $sGuiMainButton_1
[/autoit]
MsgBox(0, 'Testing', 'Button 2 was pressed')Sieht also so aus
[autoit]#Region ### WORKAROUND ###
[/autoit]
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 ###Aber es passiert nix.
-
- Offizieller Beitrag
Oh, sehe ich jetzt erst: Du solltest GuiSetState() nach dem Erstellen der GUI mit allen Inhalten, also direkt vor der Schleife, aufrufen.
-
hmmm habs versetzt .. ändert aber nix daran ...
-
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
[/autoit] [autoit][/autoit] [autoit]
######################################################
# BeCast Downloader #
# #
# Build 2013 #
# #
# BeCast V 2.0.1 #
# August 2013 #
# copyright by Anna Heiland #
######################################################
#ce#Region ### INCLUDES ###
[/autoit] [autoit][/autoit] [autoit]
#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 ####Region ### INI-READ ###
[/autoit] [autoit][/autoit] [autoit]
;~ [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");~ [Options]
[/autoit] [autoit][/autoit] [autoit]
$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");~ [Audios]
[/autoit] [autoit][/autoit] [autoit]
$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 ###;~ MsgBox(0, "Testbox für Variablen", $Version)
[/autoit] [autoit][/autoit] [autoit]#Region ### DCLARATION OF VARS ###
[/autoit] [autoit][/autoit] [autoit]
$sGuiMain = GUICreate("BeCast Downloader V. " & $Version & " - für Radio4Players", 800, 550, 20, 20)
#EndRegion ### DCLARATION OF VARS ####Region ### GUI OPTIONS ###
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x000000)
GUISetIcon("becast_icon.ico")
GUICtrlCreatePic(@ScriptDir & "\images\BeCast_Hintergrund.jpg", 0, 0, 800, 530)
#EndRegion ### GUI OPTIONS ####Region ### GUI FORM ###
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlCreateLabelTrans ("Download auswählen:", 75, 48, 278, 24)
GUICtrlSetFont(-1, 12, 800, 4, "Arial Black")$sGuiMainGroup_1 = _GUICtrlGroup_Create("Nachrichten:", 15, 80, 185, 120)
[/autoit] [autoit][/autoit] [autoit]
;~ _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 ####Region ### MENU ###
[/autoit] [autoit][/autoit] [autoit]
$sMenuFile = GUICtrlCreateMenu("Datei")
$sMenuOpt = GUICtrlCreateMenu("Optionen")
$sMenuHelp = GUICtrlCreateMenu("?")$sItemExit = GUICtrlCreateMenuItem("Beenden", $sMenuFile)
[/autoit] [autoit][/autoit] [autoit]$sItemConnect = GUICtrlCreateMenuItem("Verbindung testen", $sMenuOpt)
[/autoit] [autoit][/autoit] [autoit]
$sItemTrenner_1 = GUICtrlCreateMenuItem("", $sMenuOpt)
$sItemState = GUICtrlCreateMenuItem("Statusanzeige", $sMenuOpt)
$sItemEinst = GUICtrlCreateMenuItem("Einstellungen", $sMenuOpt)$sItemHelp = GUICtrlCreateMenuItem("Hilfe", $sMenuHelp)
[/autoit] [autoit][/autoit] [autoit]
$sItemAbout = GUICtrlCreateMenuItem("Info", $sMenuHelp)
#EndRegion ### MENU ###GUISetState()
[/autoit] [autoit][/autoit] [autoit]#Region ### WORKAROUND ###
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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 ###Exit
[/autoit] [autoit][/autoit] [autoit]#Region ### FUNCTIONS ###
[/autoit]
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 ### -
- Offizieller Beitrag
Dein Hintergrundbild überdeckt alle Control-Elemente. Du musst dieses disablen:
[autoit]GuiCtrlSetState(-1,$GUI_DISABLE)
[/autoit]
[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:Global $sInifile = @ScriptDir & "\data\config.ini"
[/autoit]
[autoit]
und dann:$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. -
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 ..
-
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)
[/autoit]
;~ _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)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
-
- Offizieller Beitrag
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. -
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:-1073741819STOP ... 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 ?
-
- Offizieller Beitrag
Ja, das Problem liegt an der "GroupEx.au3". Ich schau mal warum das hakt und gebe dann Rückmeldung.
-
- Offizieller Beitrag
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.
-
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.
-
- Offizieller Beitrag
Mein Goldstück :D, dann brauch ich aber mal etwas Code, um zu sehen was da los ist.
-
*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 ###
[/autoit] [autoit][/autoit] [autoit]
$sGuiOpt = GUICreate("BeCast Downloader V. " & $sPrgVersion & " - Einstelungen", 450, 300, 250, 150)
#EndRegion ### OPTION GUI - DECLARATION OF VARS ####Region ### OPTION GUI - OPTIONS ###
[/autoit] [autoit][/autoit] [autoit]
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 ####Region ### OPTION GUI - FORM ###
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlCreateLabelTrans ("Einstellungen:", 5, 5, 178, 24)
GUICtrlSetFont(-1, 12, 800, 4, "Arial Black")$sGuiOptGroup_1 = _GUICtrlGroup_Create($sGuiOpt, "Audioeinstellungen:", 5, 30, 440, 80)
[/autoit] [autoit][/autoit] [autoit]
_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)$sGuiOptGroup_2 = _GUICtrlGroup_Create($sGuiOpt, "Zugangsdaten:", 5, 120, 440, 80)
[/autoit] [autoit][/autoit] [autoit]
_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)$sSave = GUICtrlCreateButton("Speichern", 270, 260, 75, 25)
[/autoit] [autoit][/autoit] [autoit]
$sCancel = GUICtrlCreateButton("Abbrechen", 360, 260, 75, 25)
#EndRegion ### OPTION GUI - FORM ####EndRegion #################### OPTION GUI ####################
[/autoit] -
- Offizieller Beitrag
Welche 2. GUI? Ich seh im Code davon nix. Poste mal den ganzen Code, wie du die 2. GUI aufruftst...
-
- Offizieller Beitrag
Aha - Fehler wurde lokalisiert und gefixed. - Lade v0.7 und alles ist geritzt.
-
Passt perfekt Danke vielmals für das schnelle Handling
-