Problem mit 2ter GUI

Hingo

Heyho, hab wieder ein Problem.

Ich habe ein Hauptfenster und möchte mit einem Button ein Impressum öffnen, dass funktioniert auch, ~~doch wenn ich das Impressum mit dem X schließe dann schließt sich auch das Hauptfenster~~. Der Schliessen Button im Impressum funkt auch nicht kann mir da jemand helfen?
~~Und gibt es vielleicht eine Möglichkeit das Hauptfenster zu sperren wenn das Impressum geöffnet ist?~~
Edit: Das X habe ich jetzt auch deaktiviert.

Spoiler anzeigen

AutoIt

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=Video Converter only .avi to .mp4.
#AutoIt3Wrapper_Res_Fileversion=1.1.0.0
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <File.au3>


Ordner ()
Func Ordner ()
	Local $VideoConverter = @TempDir&"\Video_Converter"
	DirCreate ($VideoConverter)
EndFunc
		$widthCell=300


	Global $sFileOpenDialog
	Global $sFileSelectFolder
	Global $iDelete








ChooseButton()
Func ChooseButton()
	Const $SC_CLOSE = 0xF060
	Const $MF_BYCOMMAND = 0x0
	Const $MF_GRAYED = 0x1
	; Create a GUI with various controls.
	Local $hGUI = GUICreate("Video Converter", 430, 200, 750, 430)




	GUIRegisterMsg($WM_SYSCOMMAND, "")


	$hMenu = DllCall("user32.dll", "hwnd", "GetSystemMenu", "hwnd", $hGUI, "int", 0)
	DllCall("user32.dll", "hwnd", "EnableMenuItem", "hwnd", $hMenu[0], "int", $SC_CLOSE, "int", BitOR($MF_BYCOMMAND, $MF_GRAYED))




	; Create a button control.
	GUICtrlCreateLabel ("Bitte Datei auswählen: ", 20, 20, $widthCell)


	GUICtrlCreateLabel ("Bitte Ablageort für konvertierte Datei auswählen: ", 20, 80, $widthCell)


	Global $impressum	= GUICtrlCreateButton ("Impressum", 30, 150, 80, 20)


	Global $convert = GUICtrlCreateButton ("Konvertieren", 315, 150, 85, 20)


	Local $chooseda = GUICtrlCreateButton("Quelle", 330, 40, 60, 20)


	Local $chooseor = GUICtrlCreateButton("Ziel", 330, 100, 60, 20)


	Local $idClose = GUICtrlCreateButton("Schließen", 170, 150, 85, 20)


	;Set the GUI background color
	GUISetBkColor(0x826D50)
	; Display the GUI.
	GUISetState(@SW_SHOW, $hGUI)




		Local $iPID = 0
		Local $iPID1= 0
		Local $iPID2= 0
		Local $iPID3= 0


	; Loop until the user exits.
	While 1
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE, $idClose


			ExitLoop


			Case $chooseda


				$iPID  = _openVideoFile()
				Global $datei = GUICtrlCreateInput ( $sFileOpenDialog, 20, 40, 300,20)


			Case $chooseor


				$iPID1 = _FileSelectFolder()
				Global $ort = GuiCtrlCreateInput ( $sFileSelectFolder, 20, 100, 300, 20)


			Case $convert


				$iPID2 = Convert ()


			Case $impressum
				$iPID3 = Impressum ()


		EndSwitch
	WEnd






	GUIDelete($hGUI)


	; Close the Exlporer process using the PID returned by Run.
	If $iPID1 Then ProcessClose($iPID1)




EndFunc


idClose()
Func idclose()
	FileDelete(@TempDir&"\Video_Converter")
EndFunc


;openVideoFile ()
Func _openVideoFile()
    ; Create a constant variable in Local scope of the message to display in FileOpenDialog.
    Local Const $sMessage = "Wähle Datei"


    ; Display an open dialog to select a list of file(s).
     $sFileOpenDialog = FileOpenDialog($sMessage, @WindowsDir & "\", "Videos (*.avi)", $FD_FILEMUSTEXIST + $FD_MULTISELECT)
    If @error Then


        MsgBox(4144,"Fehlermeldung", "Keine Datei gewählt!")


        ; Change the working directory (@WorkingDir) back to the location of the script directory as FileOpenDialog sets it to the last accessed folder.
        FileChangeDir(@ScriptDir)
    Else
        ; Change the working directory (@WorkingDir) back to the location of the script directory as FileOpenDialog sets it to the last accessed folder.
        FileChangeDir(@ScriptDir)


    EndIf
EndFunc






;FileSelectFolder ()
Func _FileSelectFolder()


Global $MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"


		$sFileSelectFolder = FileSaveDialog("Wähle Ordner", $MyDocsFolder, "Video (*.mp4)", 2)
	If @error Then


		MsgBox(4144,"Fehlermeldung", "Kein Ziel gewählt!")


	EndIf
EndFunc






;Convert ()
Func Convert ()
Global $msg


	If $sFileOpenDialog = "" Then


		MsgBox(4144,"Fehlermeldung","Keine Datei gewählt!")
	ElseIf $sFileSelectFolder = "" Then
		MsgBox(4144,"Fehlermeldung", "Kein Ziel gewählt!")


	Else


		Run( @TempDir&"\Video_Converter\ffmpeg.exe -i """ &$sFileOpenDialog& """ -vcodec libx264 """ &$sFileSelectFolder& """")




		$msg = GUIGetMsg()


            GUICtrlDelete($datei)
			GUICtrlDelete($ort)
	EndIf


EndFunc






;Impressum ()
Func Impressum()
	Const $SC_CLOSE = 0xF060
	Const $MF_BYCOMMAND = 0x0
	Const $MF_GRAYED = 0x1
	Local $hGUI1 = GUICreate ("Impressum", 250, 300)


	GUIRegisterMsg($WM_SYSCOMMAND, "")


	$hMenu = DllCall("user32.dll", "hwnd", "GetSystemMenu", "hwnd", $hGUI1, "int", 0)
	DllCall("user32.dll", "hwnd", "EnableMenuItem", "hwnd", $hMenu[0], "int", $SC_CLOSE, "int", BitOR($MF_BYCOMMAND, $MF_GRAYED))


	GUICtrlCreateLabel ("Entwickler: " &@CRLF& "fg" &@CRLF& "Mfg", 20, 40, $widthCell)


	GUICtrlCreateLabel ("Icon: " &@CRLF& "fg" , 20, 130, $widthCell)


	GUICtrlCreateLabel ("Version: 1.0.3.0", 20, 210, $widthCell)


	Local $idClose1 = GUICtrlCreateButton("Schließen", 20, 250, 85, 20)


	Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE, $idClose1
	EndSwitch


	GUISetBkColor(0x826D50)
	GUISetState(@SW_SHOW, $hGUI1)
EndFunc

Alles anzeigen

**alpines**

Liegt ja wohl auf der Hand oder?

Der Switch-Case in der Funktion Impressum() ist eh für die Tonne. Das Programm fragt einmal nach der Nachricht und geht dann in die Hauptschleife zurück.
Beim Klick auf das X schließt sich also automatisch das Hauptfenster.

Du musst also entweder in der Funktion auf die GUI warten oder das mit OnEventMode lösen (was meiner Meinung nach die bessere Variante wäre).
(Nur das nötigste angepasst)

AutoIt

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=Video Converter only .avi to .mp4.
#AutoIt3Wrapper_Res_Fileversion=1.1.0.0
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <File.au3>


Ordner ()
Func Ordner ()
	Local $VideoConverter = @TempDir&"\Video_Converter"
	DirCreate ($VideoConverter)
EndFunc
		$widthCell=300


	Global $sFileOpenDialog
	Global $sFileSelectFolder
	Global $iDelete








ChooseButton()
Func ChooseButton()
	Const $SC_CLOSE = 0xF060
	Const $MF_BYCOMMAND = 0x0
	Const $MF_GRAYED = 0x1
	; Create a GUI with various controls.
	Local $hGUI = GUICreate("Video Converter", 430, 200, 750, 430)




	GUIRegisterMsg($WM_SYSCOMMAND, "")




	; Create a button control.
	GUICtrlCreateLabel ("Bitte Datei auswählen: ", 20, 20, $widthCell)


	GUICtrlCreateLabel ("Bitte Ablageort für konvertierte Datei auswählen: ", 20, 80, $widthCell)


	Global $impressum	= GUICtrlCreateButton ("Impressum", 30, 150, 80, 20)


	Global $convert = GUICtrlCreateButton ("Konvertieren", 315, 150, 85, 20)


	Local $chooseda = GUICtrlCreateButton("Quelle", 330, 40, 60, 20)


	Local $chooseor = GUICtrlCreateButton("Ziel", 330, 100, 60, 20)


	Local $idClose = GUICtrlCreateButton("Schließen", 170, 150, 85, 20)


	;Set the GUI background color
	GUISetBkColor(0x826D50)
	; Display the GUI.
	GUISetState(@SW_SHOW, $hGUI)




		Local $iPID = 0
		Local $iPID1= 0
		Local $iPID2= 0
		Local $iPID3= 0


	; Loop until the user exits.
	While 1
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE, $idClose


			ExitLoop


			Case $chooseda


				$iPID  = _openVideoFile()
				Global $datei = GUICtrlCreateInput ( $sFileOpenDialog, 20, 40, 300,20)


			Case $chooseor


				$iPID1 = _FileSelectFolder()
				Global $ort = GuiCtrlCreateInput ( $sFileSelectFolder, 20, 100, 300, 20)


			Case $convert


				$iPID2 = Convert ()


			Case $impressum
				$iPID3 = Impressum ()


		EndSwitch
	WEnd






	GUIDelete($hGUI)


	; Close the Exlporer process using the PID returned by Run.
	If $iPID1 Then ProcessClose($iPID1)




EndFunc


idClose()
Func idclose()
	FileDelete(@TempDir&"\Video_Converter")
EndFunc


;openVideoFile ()
Func _openVideoFile()
    ; Create a constant variable in Local scope of the message to display in FileOpenDialog.
    Local Const $sMessage = "Wähle Datei"


    ; Display an open dialog to select a list of file(s).
     $sFileOpenDialog = FileOpenDialog($sMessage, @WindowsDir & "\", "Videos (*.avi)", $FD_FILEMUSTEXIST + $FD_MULTISELECT)
    If @error Then


        MsgBox(4144,"Fehlermeldung", "Keine Datei gewählt!")


        ; Change the working directory (@WorkingDir) back to the location of the script directory as FileOpenDialog sets it to the last accessed folder.
        FileChangeDir(@ScriptDir)
    Else
        ; Change the working directory (@WorkingDir) back to the location of the script directory as FileOpenDialog sets it to the last accessed folder.
        FileChangeDir(@ScriptDir)


    EndIf
EndFunc






;FileSelectFolder ()
Func _FileSelectFolder()


Global $MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"


		$sFileSelectFolder = FileSaveDialog("Wähle Ordner", $MyDocsFolder, "Video (*.mp4)", 2)
	If @error Then


		MsgBox(4144,"Fehlermeldung", "Kein Ziel gewählt!")


	EndIf
EndFunc






;Convert ()
Func Convert ()
Global $msg


	If $sFileOpenDialog = "" Then


		MsgBox(4144,"Fehlermeldung","Keine Datei gewählt!")
	ElseIf $sFileSelectFolder = "" Then
		MsgBox(4144,"Fehlermeldung", "Kein Ziel gewählt!")


	Else


		Run( @TempDir&"\Video_Converter\ffmpeg.exe -i """ &$sFileOpenDialog& """ -vcodec libx264 """ &$sFileSelectFolder& """")




		$msg = GUIGetMsg()


            GUICtrlDelete($datei)
			GUICtrlDelete($ort)
	EndIf


EndFunc






;Impressum ()
Func Impressum()
	Const $SC_CLOSE = 0xF060
	Const $MF_BYCOMMAND = 0x0
	Const $MF_GRAYED = 0x1
	Local $hGUI1 = GUICreate ("Impressum", 250, 300)




	GUICtrlCreateLabel ("Entwickler: " &@CRLF& "fg" &@CRLF& "Mfg", 20, 40, $widthCell)


	GUICtrlCreateLabel ("Icon: " &@CRLF& "fg" , 20, 130, $widthCell)


	GUICtrlCreateLabel ("Version: 1.0.3.0", 20, 210, $widthCell)


	Local $idClose1 = GUICtrlCreateButton("Schließen", 20, 250, 85, 20)


	GUISetBkColor(0x826D50)
	GUISetState(@SW_SHOW, $hGUI1)


	While GUIGetMsg() <> -3
	WEnd


	GUIDelete($hGUI1)
EndFunc

Alles anzeigen

Hingo

Jo, danke.
Also brauche ich OnEventMode für den Schließen Button?

**alpines**

Nein nicht zwangsweise. Schau dir doch mal das Skript an was ich hochgeladen habe, da funktioniert das ganze ohne EventMode.
Du musst halt nur in der Funktion auf die jeweilige GUI warten und sie dann anschließend löschen oder verstecken.

Hingo

Aber wenn ich das richtig sehe und verstehe hast du die GUI doch am Ende gelöscht.

Zitat von alpines

GUIDelete($hGUI1)
EndFunc

**alpines**

Ja wo ist das Problem? Wie wird bei deiner Implementation mit dem Klick auf Impressum ja nicht angezeigt sondern neu erstellt also ist es sinnvoll sie zu löschen.
Noch sinnvoller wäre es sie vorher zu erzeugen und sie nicht anzuzeigen. Wenn du auf Impressum klickst zeigst du sie an und verarbeitest die Messages.

Hingo

Ich habe es jetzt so gemacht, ist das so wie du es meintest mir der GUI löschen?

Spoiler anzeigen

AutoIt

Func Impressum()
		Const $SC_CLOSE1 = 0xF060
		Const $MF_BYCOMMAND1 = 0x0
		Const $MF_GRAYED1 = 0x1


		Local $hGUI1 = GUICreate ("Impressum", 250, 300)


	GUIRegisterMsg($WM_SYSCOMMAND, "")


	$hMenu1 = DllCall("user32.dll", "hwnd", "GetSystemMenu", "hwnd", $hGUI1, "int", 0)
	DllCall("user32.dll", "hwnd", "EnableMenuItem", "hwnd", $hMenu1[0], "int", $SC_CLOSE1, "int", BitOR($MF_BYCOMMAND1, $MF_GRAYED1))


	GUICtrlCreateLabel ("Entwickler: " &@CRLF& "Maurice Maréchal" &@CRLF& "Michael Knapik", 20, 40, $widthCell)


	GUICtrlCreateLabel ("Icon: " &@CRLF& "www.sitech-sitztechnik.de" , 20, 130, $widthCell)


	GUICtrlCreateLabel ("Version: 1.0.3.0", 20, 210, $widthCell)


		Local $idClose1 = GUICtrlCreateButton("Schließen", 20, 250, 85, 20)


	GUICtrlSetColor($idClose1, 0xF79434)

	GUICtrlSetBkColor($idClose1, 0x494949)


	GUISetBkColor(0xF79434)


	GUISetState(@SW_SHOW, $hGUI1)


	While GUIGetMsg() <> -3
	WEnd


	GUIDelete($hGUI1)
EndFunc

Alles anzeigen

**alpines**

Wieso deaktivierst du immer noch das X für das Fensterschließen?

Die While-Schleife ist dazu da um das abzufangen und solltest du noch einen Button anbieten wollen um das Fenster zu schließen musst du die While-Schleife umbauen,
da sie momentan nur auf das X oben reagiert und nicht auf den Button.

Wenn du die GUI immer neu erstellen willst (was ich nicht empfehlen kann), dann musst du die immer löschen.
Solltest du die GUI einmal erstellen und immer anzeigen und verstecken, so darfst du sie logischerweise nicht löschen.

Hingo

Ja, ich schaue mir das noch mal an, steige da gerade nicht mehr durch.

Hingo

Meintest du die While Schleife, die ich umbauen muss?

AutoIt

While GUIGetMsg() <> -3
WEnd

**alpines**

Ganz genau.

Hingo

GUIGetMsg() fragt ja nach Ereignissen, und die Schleife ist dazu da das es die ganze Zeit wiederholt wird, doch wofür ist <> -3 da?

**BugFix**

Zitat von Hingo

doch wofür ist <> -3 da?

-3 ist das Event $GUI_EVENT_CLOSE, es hat nur niemand Lust die Konstante hinzuschreiben, weil man sich -3 so leicht merken kann.

Hingo

Achso ok, gibt es irgendwo ne Liste wo die ganzen Events mit den Zahlen stehen?

**alpines**

Ja, in der GUIConstants.au3 oder in der Extended davon.

Die sind alle mit $GUI_EVENT_* benannt.

Hingo

Wo finde ich die, ist die in dem AutoIt Ordner mit drinne?

BananaJoe

Im Ordner Include

Hingo

Aber ich habe ja $GUI_EVENT_CLOSE als Func genommen doch der Button funktioniert immer noch nicht.

AutoIt

While 1
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE, $Close


			ExitLoop
		EndSwitch
	Wend


	While GUIGetMsg() <> -3
	WEnd


	GUIDelete($hGUI1)


EndFunc

Alles anzeigen

Hingo

Ok hab meinen Fehler gefunden, ich weiß zwar nicht warum, aber ich glaube weil es einfach Technik ist.

AutoIt

While 1
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE, $Close


			ExitLoop
		EndSwitch
	Wend


	While GUIGetMsg(-3)
	WEnd


	GUIDelete($hGUI1)


EndFunc

Alles anzeigen

**alpines**

Wieso hast du denn überhaupt noch die zweite Schleife mit dem -3 drinne? Das ergibt doch absolut kein Sinn.