#Region - TimeStamp
; 2011-09-29 19:08:02   v 0.1
#EndRegion - TimeStamp

#include-once
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include 'MenuWindows.au3'

Opt('GUIOnEventmode', 1)
Opt("GUIEventOptions",1)

; Deklaration der Sub-GUI
Global $hWnd_Kunden = GUICreate("Kunden"  , 867, 551, -1, -1, BitOr($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_TOPMOST)
Global $hWnd_Artikel = GUICreate("Artikel" , 867, 551, -1, -1, BitOr($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_TOPMOST)
Global $hWnd_Serien = GUICreate("SerienNr", 867, 551, -1, -1, BitOr($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_TOPMOST)
GUISetOnEvent($GUI_EVENT_CLOSE, '_closeWnd', $hWnd_Kunden)
GUISetOnEvent($GUI_EVENT_CLOSE, '_closeWnd', $hWnd_Artikel)
GUISetOnEvent($GUI_EVENT_CLOSE, '_closeWnd', $hWnd_Serien)
_GUICtrlWindowsList_Register($hWnd_Kunden, $hWnd_Artikel, $hWnd_Serien) ; == Alle Subwindows für das "Fenster"-Menü registrieren

; Deklaration der Main-GUI
$MainGUI = GUICreate("Main", -1, -1, -1, -1, BitOr($WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_MAXIMIZE))
GUISetOnEvent($GUI_EVENT_CLOSE, '_closeMain')
$menu0 = GUICtrlCreateMenu("Menü")
$m0_item1 = GUICtrlCreateMenuItem("Ende", $menu0)
GUICtrlSetOnEvent(-1, '_closeMain')
$menu1 = GUICtrlCreateMenu("Stammdaten")
$m1_item1 = GUICtrlCreateMenuItem("Kunden                 Strg+K", $menu1)
GUICtrlSetOnEvent(-1, '_StrgK')
$m1_item2 = GUICtrlCreateMenuItem("Artikel                   Strg+A", $menu1)
GUICtrlSetOnEvent(-1, '_StrgA')
$m1_item3 = GUICtrlCreateMenuItem("SerienNr               Strg+S", $menu1)
GUICtrlSetOnEvent(-1, '_StrgS')
$menu2 = _GUICtrlWindowsList_MenuCreate($MainGUI) ; == registriert Main-GUI und erstellt Menü: "Fenster"
$menu3 = GUICtrlCreateMenu("?")
$m2_item1 = GUICtrlCreateMenuItem("Hilfe", $menu3)
$m2_item2 = GUICtrlCreateMenuItem("Über", $menu3)
GUISetState(@SW_SHOW, $MainGUI)


While 1
    Sleep(100)
WEnd

; Hauptfenster schließen
Func _closeMain()
    Exit
EndFunc

; Unterfenster schließen
Func _closeWnd()
    GUISetState(@SW_HIDE, @GUI_WinHandle)
EndFunc

#region - Shortcut Funktionen
Func _StrgK()
    _RunShortcuts($hWnd_Kunden)
EndFunc

Func _StrgA()
    _RunShortcuts($hWnd_Artikel)
EndFunc

Func _StrgS()
    _RunShortcuts($hWnd_Serien)
EndFunc
; per Shortcut gewähltes Fenster einblenden und aktivieren
Func _RunShortcuts($hWnd)
    GUISetState(@SW_SHOW, $hWnd)
    WinActivate($hWnd)
EndFunc
#endregion - Shortcut Funktionen