"Window" Entry in menu bar

[BugFix]

Hi,

most applications for Windows have included an item 'Window' in the menu bar to toggle between opened windows.

I've needed it for my own application. While I doesn't found a function in autoit for this, I've made an own solution.

I hope you'll like this too.

expandcollapse popup

#include <GUIConstants.au3>
Dim $ItemCustomerExist = 0, $ItemArticleExist = 0, $ItemSerialExist = 0
Dim $stat_Customer, $stat_Article, $stat_Serial
Dim $itemCustomer, $itemArticle, $itemSerial

$MainGUI = GUICreate("Main", Default, Default, Default, Default, BitOr($WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_MAXIMIZE))
$menu0 = GUICtrlCreateMenu("File")
$m0_item1 = GUICtrlCreateMenuItem("End", $menu0)
$menu1 = GUICtrlCreateMenu("Master Data")
$m1_item1 = GUICtrlCreateMenuItem("Customer                 Strg+U", $menu1)
$m1_item2 = GUICtrlCreateMenuItem("Articles                    Strg+A", $menu1)
$m1_item3 = GUICtrlCreateMenuItem("Serial Number's       Strg+S", $menu1)
$menu2 = GUICtrlCreateMenu("Window")
$menu3 = GUICtrlCreateMenu("?")
$m2_item1 = GUICtrlCreateMenuItem("Help", $menu3)
$m2_item2 = GUICtrlCreateMenuItem("About", $menu3)

$CustomerGUI = GUICreate("Customer", 867, 551, -1, -1, BitOr($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_TOPMOST)
$ArticleGUI = GUICreate("Articles", 867, 551, -1, -1, BitOr($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_TOPMOST)
$SerialGUI = GUICreate("Serial Number's", 867, 551, -1, -1, BitOr($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_TOPMOST)

GUISetState(@SW_SHOW,$MainGUI)
HotKeySet("^u", "_StrgU")
HotKeySet("^a", "_StrgA")
HotKeySet("^s", "_StrgS")

While 1
    _SetEntryWindowMenu()
    $msg = GuiGetMsg(1)
    Select
    Case $msg[0] = $GUI_EVENT_CLOSE
        Select
        Case $msg[1] = $MainGUI
            ExitLoop
        Case $msg[1] = $CustomerGUI
            GUISetState(@SW_HIDE,$CustomerGUI)
        Case $msg[1] = $ArticleGUI
            GUISetState(@SW_HIDE,$ArticleGUI)
        Case $msg[1] = $SerialGUI
            GUISetState(@SW_HIDE,$SerialGUI)
        EndSelect
    Case $msg[1] = $MainGUI 
        Select
        Case $msg[0] = $m0_item1
            ExitLoop
        Case $msg[0] = $m1_item1
            GUISetState(@SW_SHOW,$CustomerGUI)
        Case $msg[0] = $m1_item2
            GUISetState(@SW_SHOW,$ArticleGUI)
        Case $msg[0] = $m1_item3
            GUISetState(@SW_SHOW,$SerialGUI)
        Case $msg[0] = $itemCustomer
            WinActivate("Customer")
        Case $msg[0] = $itemArticle
            WinActivate("Articles")
        Case $msg[0] = $itemSerial
            WinActivate("Serial Number's")
        Case $msg[0] = $m2_item1
;~          Help
        Case $msg[0] = $m2_item2
;~          About
        EndSelect
    EndSelect   
WEnd

Func _StrgU()
    GUISetState(@SW_SHOW,$CustomerGUI)
EndFunc

Func _StrgA()
    GUISetState(@SW_SHOW,$ArticleGUI)
EndFunc

Func _StrgS()
    GUISetState(@SW_SHOW,$SerialGUI)
EndFunc

Func _SetEntryWindowMenu()
    $stat_Customer = WinGetState("Customer")
    If $stat_Customer = 7 Or $stat_Customer = 15 Then
        If $ItemCustomerExist = 0 Then
            $itemCustomer = GUICtrlCreateMenuItem("Customer", $menu2)
            $ItemCustomerExist = 1
        EndIf 
    Else
        If $ItemCustomerExist = 1 Then
            GUICtrlDelete($itemCustomer)
            $ItemCustomerExist = 0
        EndIf
    EndIf
    $stat_Article = WinGetState("Articles")
    If $stat_Article = 7 Or $stat_Article = 15 Then
        If $ItemArticleExist = 0 Then
            $itemArticle = GUICtrlCreateMenuItem("Articles", $menu2)
            $ItemArticleExist = 1
        EndIf
    Else
        If $ItemArticleExist = 1 Then
            GUICtrlDelete($itemArticle)
            $ItemArticleExist = 0
        EndIf
    EndIf
    $stat_Serial = WinGetState("Serial Number's")
    If $stat_Serial = 7 Or $stat_Serial = 15 Then
        If $ItemSerialExist = 0 Then
            $itemSerial = GUICtrlCreateMenuItem("Serial Number's", $menu2)
            $ItemSerialExist = 1
        EndIf
    Else
        If $ItemSerialExist = 1 Then
            GUICtrlDelete($itemSerial)
            $ItemSerialExist = 0
        EndIf
    EndIf   
EndFunc

Windows_Entry_Menu.au3