Icons on GUI MenuBar

Iczer · December 16, 2021

I wanted to place 2 or more icons, including animated, on GUI menu bar - on right side, just below minimize/maximize/close buttons, but I dont know how... and another point - I need to switch between full screen and windowed modes, but menu wont gets hidden in full screen mode...

How I can tackle this two points?

#include <GUIConstantsEx.au3>
#include <GuiMenu.au3>
#include <GuiStatusBar.au3>
#include <StructureConstants.au3>
#include <WindowsConstants.au3>

Global $hGUI, $hFile, $hEdit, $hHelp, $hMain, $hStatusBar, $sMainGUI_Mode = "Windowed", $binModeChange = False, $hGUIStayleDefault
Global Enum $e_idNew = 8000, $e_idOpen, $e_idSave, $e_idExit, $e_idCut, $e_idCopy, $e_idPaste, $e_idAbout

Example()

Func Example()
    
    ; Create GUI
    $hGUI = GUICreate("Menu", 400, 300)

    ; Create File menu
    $hFile = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hFile, "&New", $e_idNew)
    _GUICtrlMenu_AddMenuItem($hFile, "&Open", $e_idOpen)
    _GUICtrlMenu_AddMenuItem($hFile, "&Save", $e_idSave)
    _GUICtrlMenu_AddMenuItem($hFile, "", 0)
    _GUICtrlMenu_AddMenuItem($hFile, "E&xit", $e_idExit)

    ; Create Edit menu
    $hEdit = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hEdit, "&Cut", $e_idCut)
    _GUICtrlMenu_AddMenuItem($hEdit, "C&opy", $e_idCopy)
    _GUICtrlMenu_AddMenuItem($hEdit, "&Paste", $e_idPaste)

    ; Create Help menu
    $hHelp = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hHelp, "&About", $e_idAbout)

    ; Create Main menu
    $hMain = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hMain, "&File", 0, $hFile)
    _GUICtrlMenu_AddMenuItem($hMain, "&Edit", 0, $hEdit)
    _GUICtrlMenu_AddMenuItem($hMain, "&Help", 0, $hHelp)

    ; Set window menu
    _GUICtrlMenu_SetMenu($hGUI, $hMain)
    
    $idButton_ModeChange = GUICtrlCreateButton("ModeChange", 150, 85, 125, 25)
    
    $hStatusBar = _GUICtrlStatusBar_Create($hGUI)
    
    GUIRegisterMsg($WM_SIZE, "Example_WM_SIZE")
    GUISetState(@SW_SHOW)

    $hGUIStayleDefault = GUIGetStyle ($hGUI)
    
    While 1
        $nMsg = GUIGetMsg()
        
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            
            Case $idButton_ModeChange
                If $sMainGUI_Mode = "FullScreen" Then
                    $sMainGUI_Mode = "Windowed"
                    GUISetStyle ($hGUIStayleDefault[0], $hGUIStayleDefault[1],$hGUI)
                Else
                    $sMainGUI_Mode = "FullScreen"
                    GUISetStyle ($WS_POPUP, -1,$hGUI)
                EndIf
                $binModeChange = True
                _SendMessage($hGUI, $WM_SIZE)
                
                
                
            
        EndSwitch
        
    WEnd
EndFunc   ;==>Example

Func Example_WM_SIZE($hWnd, $iMsg, $wParam, $lParam)
    
    Local $aSize_GUI = WinGetClientSize($hGUI), $aSize_Control
    
    If Not @error Then
        Switch $sMainGUI_Mode
            Case "Windowed"
                If $binModeChange Then
                    GUICtrlSetState($hMain, $GUI_ENABLE + $GUI_SHOW)
                    _GUICtrlStatusBar_ShowHide ( $hStatusBar, @SW_SHOW )
                    _GUICtrlStatusBar_Resize($hStatusBar)
                    
                    WinMove($hGUI, "", @DesktopWidth/2 - 200, @DesktopHeight/2 - 150, 400, 300)
                    $aSize_GUI = WinGetClientSize($hGUI)
                    If @error Then Return $GUI_RUNDEFMSG
                    $binModeChange = False
                EndIf
                
                
            Case "FullScreen"
                If $binModeChange Then
                    GUICtrlSetState($hMain, $GUI_DISABLE + $GUI_HIDE)
                    _GUICtrlStatusBar_ShowHide ( $hStatusBar, @SW_HIDE )
                    
                    WinMove($hGUI, "", -2, -2, @DesktopWidth+2, @DesktopHeight+2)
                    $aSize_GUI = WinGetClientSize($hGUI)
                    If @error Then Return $GUI_RUNDEFMSG
                    $binModeChange = False
                EndIf
                
                
                
                
        EndSwitch
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2015-01-20

Func _Base64String_Icon01()
    Local $Base64String
    $Base64String &= 'F7oAAAABAAMAICABAXAgAKgQAAA2IAAAABgYA3iICWgAAN4ATBAADAE8aAAEAABmGgAAKHMAjADIAEAADAEuUQAlgBcMAiobDwFSXAEUADkmFxAbEwwALgYDAUwxHAsAeQwIBEVINCICAokROyQSBRsQBAcNzT2aZzoBkwBaLJ++hVPn5wCsdvzsv5L/i4BaMskSDQkthREAZkUoAVIwFWUASCkRnAUDAkIIMiARxkOtc0ABANiPUNTktH//AOe6iv/pwJP/AOm4iP5QLhShECYbERXBCD0mFAAm05JZ7OSpbwD/sXE65DQcCyCOIBQJHH8fAAAAu3xEAdaJR9QA4atx/+Oxev8A5bWB/+a5iP8A3aFt+BsPB14AHhUNKZdcLbUA4q1z/+Cnaf8A3Z9c/9eMRPsAMxsKjCwbCxIB5RlBIAcBFgoCEA8vFwXKdYJTKQAFz4A+1uGoawD/89Kr//nixQD//e/a//3p0QD/r3E+5KRoNwDd4Z9g/t+jZAD/3J5a/+CiXQD/4aFa/8h2LAD0Hg8Fcz0nEwNAyx8AKhUEMms1AA+vCAQATjgcBAQKwQQsGAcWOgAdCXbSgzr24QCmZv//6s3//0Ds0f//7dPAAdMA/+Sxd//eoV8Bwh3bmVP/2pVLAP/3zZX//9ihAP/yvXj/vnExIOgdEggd3R43GwAEI6pVD9fLagAC/6ZTD+UdDQAEehQJA1KOSQAVxdV/Kv7ViQA2/96eVv//5gDC///nxv//6ALIYgDmsnb/2pYATP/Zk0j/148AQf/qtHP//9kApP//1pv//9IAkv+tbjrNDQhgAy5GIwhqKgkAPwAfAxaaSw7FyghqAf9lAMVjCvgAxGQN981zEf8Az3kb/9F/Jf8A25VG///iuP+A/+O7///kvWAAALz/+NSl//DCAIn/77+E/+24AHj//tii///XAJ3//9OV//i8AHj/r1US6Ho7AAzHDwcBOkMgAgNyEKNNDYvLaQICZg/biiv/y2sGA+MB4ADMcAz/zgB2Ff/mqWD//0Derv//37FgALIBZACw///drf//NNuo4B6j4B5hD5b/gP/Qjv/fjjViCADMaQT/cjULw4AQCAA0RiIF7pYQulcNemUP5Zk8AP//yHv/9LdnEP/SeRZiAtaDJTD/9cOAYjpiK9umNWAAp2MA2mAB4Q7Xn1D//9WaYA+UYA+NAP//zYf/1HwZAWYazGgE/2cuCTC3KRYG4nUJAMdgABAyzGcE/+GRIDD//8d64g//yQB8//3Iff/wshhh//7hCWA5/9SXOWMM1pxjLGEd4TzVmQHiLf/Rkf//z4sBYA+F///Kf//4QLpp/81wCOIP3ACFIP/QeSnwHAwQBUHECgCuWBABgNhwHdz+yX9jF4/hCOEYYQ5kGf/OiWABCoxgA4/iA/fGhNkA/M2NrPvKiKAA/MuJrP3GgN8J4gTLgmAXff//xgB3///DcP/zrQBS//avUf//uQBa/+6UO/0iEgQGPHFAejgOVu1UnkXgDIrgC5BgD5Md4zjUYBthHmAR/Mh/APTXqW2M6bd2AiVxCNOZV1v+wgBx///FdP//wgBv//+/aP//vAJhYg//tlP/85tAPP87GgdFYQVYACUAAisSABUXAAkAIiIQAi+JADoEucprAv/s/KFDYCjgHGEfYSphLmABgNOjZLXXqGv6qQCndD0n/q5W/1T+vOCEvmAAvOBVuQJZYA9S//GZPPlAok4Wdp1dY9ZgACcBL3oyAsOMAD0D2KBIA+bIiGIC/eE03YcgYyAH4Q8xELAAvI1Rh9QYp2wDHwcLAJlkMAI+8gewWP//ul0Q//+4V7AHUf/VwH4u7mQvDHIPBQCwfS4BYfk+MQDL8A8497Ve9BfwB7AkoHNgO5C+lF1/Ow8AAACVXyx//q9X/wEyALVU//+0Tv8A/7JI/7lfFuuAEwgBVmIxClCKIQMAjTgAfP0H34YGG3Mm8SfRkv/KkWBKy5hzRb9bDwAAAGxF'
    $Base64String &= 'IA3Vi0HcFfYHsbAHsfAkrj//ANd5D/+FMwDWEA0GADg2L0cAlADPbgL/4IMR/wDmjiL/65kz/wj6vGd2F/3Fd/4wakgiSZ8GDwBzRwAgAms+GXr5qSBT//mqVDIA/a0BsFKtO///qzb/AOySH//kgxX/EE0ZAHI1A7NJAfCS3HoFMDXwNHEeMgAHMDdxNzAAyoxC2GkYTi0M3wYLAGQ7GgABPSENR96NQiDz7p9O/zUA/akAOf//qTL//6cALf//pCf/4npAFvNeLAUfdQO5wE0FauKCDvMtPQABcC+EURerX0MjBgYfBwcARicQBSwAFQdLxXU16eKIk0n/NQDpmEJzBwClKP//oyT//gCfHv+DNgWSpwJZN6O0TglD54d6FvBCgfQucA9xPjEAzwCN/5VTFtIHBEACQTgeCgd9Bz4AHwwEIxIHHUIAHQmAxXM08tdIiEP/OQD1nbAHowAj/++IGPjLYQANp8xfDW25XwYPkLIHAMRgExDGAFsScI49B4C5QEkA6eB6BLNO1wKeMBCY/96HL/8AikUa2RwKAX0ACwUCQhUKBCwAFgsELQgDAUMAOBUEg5FKHdWAzHg5/8x8PToAAOONL///oB3/APmUF/+GOAV1A18TCwB4KgCXyWUAAP/MbAH//sAOa7Bk8HNwZuaXPf8AwHE4/79qMP4Ao1Ih7YpEGt8AlUod5bheJ/gYwG41sgE9ANeDMAD//qk0//6aEwD/lz8Eu3U+B0YFHwc8Oz8AvPU39QyrSXN0MG39w3T/gMFuKv+1ZTI/AAE9AGYx/9qFLf8I/sFsMF9v//uSAAn/aSgAujYaDAEZHwcLAL9PAaCBsQfZeAb/+8GwiwWxfd0wftyr//axAFn/umUk/6laBiw/ADQAwGok/+0coEHwbvB58meD//4Anhn/xFQA1loMKAE/uAwAs0oDhSDlihn//jAf/+MCvPCNuf//4bb/KP/gs7CGsDB4f/8A3485/8FpHP8As10f/7FdIP8AvGQc/9B7KP8o7qRKsG5+MkvvkQAy+OF8J+n8tABV/75YCs6ORw4P0NgPAA0AzWARJxDlfBzucQf+3K0A/+yZTvbulj3M+f5xQbGW4LUwEbAIfXEZ0HBZ8X0xMnGIcCL8AMBw/9VpFNKpAFskMdyEOgnNwF0XYKldH7ouDwABCwDXcS5B4nYdAPDLYRyTzHtAgBulThSC03HwIDKosHDkvvOesQjcqimzcd6vMBqsco+XQMAAxJBYKAtfBQ8AQw8ABwDWci0ItQDFwFYNYc9uAfB+sEEBsK7916T/3ngjANzbbhqg02QbCKP9zrAR26n/+gC0Xv92MASQmHxZJb/oDwAPAA8AAgC3AE0FQOV9Cv/+AbAf/9OY/8BjHyDSoW1BD7EB34oARg/idB302GcAEbvGaCxPunU+PH95DwAPAA8ABgDRZwASB9Vt0roAJzrTZiNa1nCAJXizajgiAAgAMNduJxUJeDEA//4Af///8Dn//+AAMH//4BA//+AAAB/44AAP+EAAAA/wAAAH4AAUAAMAAwEJA/AA+IgBAAMAAwf4BwApAAMAH/ADAD/gBQADwAADgAMAHgDSBwBaP8ALA38AAwBeCA//9gAD/gQf/6D+Dv//KAAoGAADIjAAAwEAID3OADMAIhMDHxQKDCkYGxAGPiYMAEgsFQBcZkQooJVtSgDJMx8PcEEtHQIEgQtaOyECKBcACkQeEwoeNiIEEQG1L9yYW97mALmH/unBlf/HKJNl64BjQ4ELVTUAGz/dnWL3lWEANNElFQhgPCUEEAXxF9iPT9/iAK10/+a4hv/sAMed/4dePr8jABYLSrh7R9XgAKhs/92fXP/FAH478SMTB1tACCYPAtkSLRYFNQAYDAIoNxsFAQBBIgoBRioSIgDRhUHr8Mue/gD+7NT//u/Y/gDwyaD93JhY/ADeoWD/3JxX/gDnrm3+77p5/wCzbi7lJhcKMQHVFkokBjS7YAsA6pFJC9Yc'
    $Base64String &= 'DgMAVUMiCWq0ZyEA5NaKOf/wx5QA/v/oyP/+6coA/vXTqf7amFAA/tmUSv/cmE0A/vvUnv7/1poA//C2dPksGAkQRzseB85iWisGAB+vWAneymoBAv/BAMJiCPfNbQAM/s93F//RfgAj/++/hP//4gC5///ju//93wC1//TKlf/zxQCL//fMkv//1wCd///Skv/TfwA29plLC9seDiACQTscA8oYsVQEDG3BFcxuBv7sQKhS/tmFJcEZ/gDMbgj+459Q/wD81Z/+/92r/wD+3a3+/t2s/gD+26j+/9mj/wD+1pv+/tKT/gD4w3n/y2wD/gDKaQH+lkkJ2hAiEQM16QvFXg4AL8xqBP/uqVEA/v7Hev7+yH0A/+uoU/71v3UA/v/Tlf/+1ZoC/uEU/tef/v7XA2Ax4Ar/1Jb//tEAkP7+zoj+/slAfv/ciyv+YRLbgIMe/1suDYxtJBDWey3NYAX//9EgkP//05RgHpH/AP/QjP//zon/AP7PjP74yYfhAPjJiZz7zIx7APvLin76xX+zAP7Kgfn/yX3/AP/Fdf/8vWf/APWuUP//uFf/AH5HGaxXLg4DAWJGEgEFUigGCgCHPged6qFF/gD+0I3+/9KT/wD+05b+/tSZ/gDywoDf2qttWQjrvHzuW8yPS6IA/sBs/v/Aaf8A/rxh/v64V/4A+KhH/JdQGXkB4QNcJgFAYioCAKx1NALCwl8CAPjNbwb//MV5A+I1YQzZqGi7zqEEZhN1TsKCP6n+ALFZ//+7Xf//ALdV/+eWPfWKCEcVV+UDkj4BjDDJaQD+YQDhO+ORAi3gF4/+/9GS/wDRnlzHrYVRCwF1C4tbKwrhlkgA4f2uVv7+tFIA//6zSf7QeCEA9CkSA1hUJwYB4mynSQCmzGwCAP7RcQX+13kMEP/6wG/gQZL+94DBePeHYTUveXEAfEwiY/ysVf4E/K3gC69I//6uAD3+5Ysd/qFKQAXgNRcCHWEEuoBSAa/wojz+4DQg/v/PjP9hTf7TAJT+qHc7tItmAjh2fU4tEyrUh0BA6fCgT/5hAP0Aqjr//qgx/v4ApSr+xGkT1WkIMgYI4QS+VASKgPezWP//1JhkAAKXYEeV/2U9EokIXj4d7gtBIg0CADYcCzezajDaEOCRR/9hAOiXQQD//6Yq//2hJAD/9ZAa+5BDCQJb5QW+VgxV4YIAKdTcikDv9rEKW+BlnOJlqF8f4AAeDQNcJRIGGAApEgYJKRMGDgFgASpPJg2Gu2wAMu7RgkD+0oIAQP/Tgz/+9pwAKP75lxv9pk1ACnjEYg8cbRKJAEAMLLFRAOjaBHoK4wvYoP7ciwA5/7dlLviAQQAa1GgzFL58PgAZzaxcKPDCciA3/sJzOGIAw3MAOP/pljb+/pwAFv6QQgaklk0CCfIpmD0ASsloAAD/0G4B//7OAIr//9uo//a5AGz/umgt/7NjAjFyALppLv/qnghF//9wO/2dHv+AZioApVUlAXJnQQ0As0oBLtAwJPOAr1f//t+y/jEAAP/drv/xs2f+AMBtJ/6nVyj/AKNUKf6lVSn/ALRhJP7VhTf+APm7av76t2T/AP3DdP7xly/4GJJABDYXDQDGWwgAC+F6H9j/470A//nIj/7wpFoA9/7XoP/+4LUA/v7apv76xX0A//S4bf74v3MFcEKO8hnmjjrlvABjIk/XbR9jrRhWFklfBQsA23o0ACTacSGvzXAxAD64YCFe13UDE7BLMEjjvHBCmf/5ALtz/v3Tm///AN2t/9yUT/J3OEQdIV8EDwAPAAAAALtPBzzljSP/AP7lwv7vtnz3ALhlKWXZgUMrAOmTR+HunlHugMFmIYiTViSySwcPAA8APktfCw3ZbgAeb995JI+3ZQQrWXabayM21nUcLg8fAw8AdprH/wAI/4IfMAAPAP+ACAcA8CCW4AADAI7AUJM1ALCZAIAP4GiqPyALfnAA/jAA/DAAQ+CZoJwAgAAPNAAfwTAAPwDAAf+Q'
    $Base64String &= 'nDAA6Gf/AHGYEDAAEZh/mAMPAA0AKxwPDyUXQAsyKhwREvEAKMAZDAEYDga/Ew8AAQIAw4hU1um5iQD+dVM2pUErGQAFcksrXnhSL2CwMR4OLt8CAwAUBAoCcjCATyYB2gCXWOrtxpv/7wDMqP1jPyKSzgCTWezeoV//rYBvNd8xHQwkvQMAXS4IS3k9CLgALhcFNnI/FJQA2pRL/P/pyv8A/+rN/+CmZv8A2pZN/+68fv8A+8+R/2U+HoABuQN6OggovmIEAPDOcgv/x2cHAPvNcg//2Iw4ATC0tf//4bf/+UDUo//2y5IxRP8A9bt0/7BZCesQNRkETfUDuVcNACvQcw3/+LxrAP/wsF3/5JtFCP/80HBq2KD//zTZonCGnzNUMHfyswBi/8trA/+4ZSAV6TEaCDYjz4TgPMz/0I6wbfF5sAYAzor878GBq/kAyoph+8qJU+4guXWO/sfwb8NwAP/5tFj/96hJAP5JJQsgVyQBAEJZKAKEuVwCEO3ysV6yce7AgRDh1qdqeoaueD4QGf6yW/BwXv/0gKlL+qRcH21yaghOAbfxb89xB/8A/cmC//HBfvIQqH9KJ/0VoGgxBFr+cUizTf/jjkAr+kIcA1pyHl4AAsnxrVX/+L5CcLIHp3pCi70DWQA0FhPMhD/b8wCkUf/+qzv/+oCiKv+cUAyhsQEwzWkMq3IP9GVgOyAUcS0YCTKYJREABgE6Hgspo2EALcndjUb/5pQAP//7niT95YBAF8SkUQwpMj9YABAgokUCv+qdAj9wFp7/w3Uv9QBiMxWrUykQhwBuORivt2kx9ADGdjr/zHs4/wD3nCX/o1IKjQH9CbpYAdblkzEA///cq//sr2kA/7NiLf+vYC8BNgDGdTL/9bdoAP/+r0X/bzAAg3ITCQDSbBKm/nBZIPa8fvv+MAT2xgKI8LFd/9uZWP8A77Ru//SwY/MA1Xsuh8xyJY8InU0MfszacykQANZwJmPBYyFAgOWUMf/+4bnwoABo3vO4eej90cCV/41IFFjfMg8AAL5QBhHjhjWkANKERZu9cjgDANt3LUbTcShCs58CBwD8TzAA0N3okD050N4AgJAXwTGw3QABBsHA4jAAB4EAAAIPERlwAqBKMwA/AADgAH8AAA=='
    $Base64String = _WinAPI_Base64Decode($Base64String)
    Local $tSource = DllStructCreate('byte[' & BinaryLen($Base64String) & ']')
    DllStructSetData($tSource, 1, $Base64String)
    Local $tDecompress
    _WinAPI_LZNTDecompress($tSource, $tDecompress, 7886)
    $tSource = 0
    Local Const $bString = Binary(DllStructGetData($tDecompress, 1))
    Return $bString
EndFunc   ;==>_Base64String

Func _WinAPI_Base64Decode($sB64String)
    Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
    Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
    $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
    Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode

Func _WinAPI_LZNTDecompress(ByRef $tInput, ByRef $tOutput, $iBufferSize)
    $tOutput = DllStructCreate("byte[" & $iBufferSize & "]")
    If @error Then Return SetError(1, 0, 0)
    Local $aRet = DllCall("ntdll.dll", "uint", "RtlDecompressBuffer", "ushort", 0x0002, "struct*", $tOutput, "ulong", $iBufferSize, "struct*", $tInput, "ulong", DllStructGetSize($tInput), "ulong*", 0)
    If @error Then Return SetError(2, 0, 0)
    If $aRet[0] Then Return SetError(3, $aRet[0], 0)
    Return $aRet[6]
EndFunc   ;==>_WinAPI_LZNTDecompress

ad777 · December 16, 2021

i hope this help ya(thankx to GaryFrost)

#include <GUIConstantsEx.au3>
#include <GuiMenu.au3>
#include <GuiStatusBar.au3>
#include <StructureConstants.au3>
#include <WindowsConstants.au3>

Global $hGUI, $hFile, $hEdit, $hHelp, $hMain, $hStatusBar, $sMainGUI_Mode = "Windowed", $binModeChange = False, $hGUIStayleDefault
Global Enum $e_idNew = 8000, $e_idOpen, $e_idSave, $e_idExit, $e_idCut, $e_idCopy, $e_idPaste, $e_idAbout

Example()

Func Example()

    ; Create GUI
    $hGUI = GUICreate("Menu", 400, 300)
        GUICtrlCreateIcon("shell32.dll", 10, 20, 20)
    GUICtrlCreateIcon(@ScriptDir & '\Extras\horse.ani', -1, 20, 40, 32, 32)

_menuCreate()

    $idButton_ModeChange = GUICtrlCreateButton("ModeChange", 150, 85, 125, 25)

    $hStatusBar = _GUICtrlStatusBar_Create($hGUI)

    GUIRegisterMsg($WM_SIZE, "Example_WM_SIZE")
    GUISetState(@SW_SHOW)

    $hGUIStayleDefault = GUIGetStyle ($hGUI)

    While 1
        $nMsg = GUIGetMsg()

        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop

            Case $idButton_ModeChange
                If $sMainGUI_Mode = "FullScreen" Then
                    $sMainGUI_Mode = "Windowed"
                    _menuCreate()
                    GUISetStyle ($hGUIStayleDefault[0], $hGUIStayleDefault[1],$hGUI)
                 Else

                    $sMainGUI_Mode = "FullScreen"
                                        For $i = 0 to 4 Step 1
                                              $hMain = _GUICtrlMenu_GetMenu(WinGetHandle("[CLASS:AutoIt v3 GUI]"))
          _GUICtrlMenu_RemoveMenu($hMain, 0)
                       Next
                    GUISetStyle ($WS_POPUP, -1,$hGUI)
                EndIf
                $binModeChange = True
                _SendMessage($hGUI, $WM_SIZE)




        EndSwitch

    WEnd
EndFunc   ;==>Example

Func Example_WM_SIZE($hWnd, $iMsg, $wParam, $lParam)

    Local $aSize_GUI = WinGetClientSize($hGUI), $aSize_Control

    If Not @error Then
        Switch $sMainGUI_Mode
            Case "Windowed"
                If $binModeChange Then
                    GUICtrlSetState($hMain, $GUI_ENABLE + $GUI_SHOW)
                    _GUICtrlStatusBar_ShowHide ( $hStatusBar, @SW_SHOW )
                    _GUICtrlStatusBar_Resize($hStatusBar)

                    WinMove($hGUI, "", @DesktopWidth/2 - 200, @DesktopHeight/2 - 150, 400, 300)
                    $aSize_GUI = WinGetClientSize($hGUI)
                    If @error Then Return $GUI_RUNDEFMSG
                    $binModeChange = False
                EndIf


            Case "FullScreen"
                If $binModeChange Then
                    GUICtrlSetState($hMain, $GUI_DISABLE + $GUI_HIDE)
                    _GUICtrlStatusBar_ShowHide ( $hStatusBar, @SW_HIDE )

                    WinMove($hGUI, "", -2, -2, @DesktopWidth+2, @DesktopHeight+2)
                    $aSize_GUI = WinGetClientSize($hGUI)
                    If @error Then Return $GUI_RUNDEFMSG
                    $binModeChange = False
                EndIf




        EndSwitch
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2015-01-20
Func _menuCreate()
    ; Create File menu
    $hFile = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hFile, "&New", $e_idNew)
    _GUICtrlMenu_AddMenuItem($hFile, "&Open", $e_idOpen)
    _GUICtrlMenu_AddMenuItem($hFile, "&Save", $e_idSave)
    _GUICtrlMenu_AddMenuItem($hFile, "", 0)
    _GUICtrlMenu_AddMenuItem($hFile, "E&xit", $e_idExit)

    ; Create Edit menu
    $hEdit = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hEdit, "&Cut", $e_idCut)
    _GUICtrlMenu_AddMenuItem($hEdit, "C&opy", $e_idCopy)
    _GUICtrlMenu_AddMenuItem($hEdit, "&Paste", $e_idPaste)

    ; Create Help menu
    $hHelp = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hHelp, "&About", $e_idAbout)

    ; Create Main menu
    $hMain = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hMain, "&File", 0, $hFile)
    _GUICtrlMenu_AddMenuItem($hMain, "&Edit", 0, $hEdit)
    _GUICtrlMenu_AddMenuItem($hMain, "&Help", 0, $hHelp)

    ; Set window menu
    _GUICtrlMenu_SetMenu($hGUI, $hMain)
EndFunc
Func _Base64String_Icon01()
    Local $Base64String
    $Base64String &= 'F7oAAAABAAMAICABAXAgAKgQAAA2IAAAABgYA3iICWgAAN4ATBAADAE8aAAEAABmGgAAKHMAjADIAEAADAEuUQAlgBcMAiobDwFSXAEUADkmFxAbEwwALgYDAUwxHAsAeQwIBEVINCICAokROyQSBRsQBAcNzT2aZzoBkwBaLJ++hVPn5wCsdvzsv5L/i4BaMskSDQkthREAZkUoAVIwFWUASCkRnAUDAkIIMiARxkOtc0ABANiPUNTktH//AOe6iv/pwJP/AOm4iP5QLhShECYbERXBCD0mFAAm05JZ7OSpbwD/sXE65DQcCyCOIBQJHH8fAAAAu3xEAdaJR9QA4atx/+Oxev8A5bWB/+a5iP8A3aFt+BsPB14AHhUNKZdcLbUA4q1z/+Cnaf8A3Z9c/9eMRPsAMxsKjCwbCxIB5RlBIAcBFgoCEA8vFwXKdYJTKQAFz4A+1uGoawD/89Kr//nixQD//e/a//3p0QD/r3E+5KRoNwDd4Z9g/t+jZAD/3J5a/+CiXQD/4aFa/8h2LAD0Hg8Fcz0nEwNAyx8AKhUEMms1AA+vCAQATjgcBAQKwQQsGAcWOgAdCXbSgzr24QCmZv//6s3//0Ds0f//7dPAAdMA/+Sxd//eoV8Bwh3bmVP/2pVLAP/3zZX//9ihAP/yvXj/vnExIOgdEggd3R43GwAEI6pVD9fLagAC/6ZTD+UdDQAEehQJA1KOSQAVxdV/Kv7ViQA2/96eVv//5gDC///nxv//6ALIYgDmsnb/2pYATP/Zk0j/148AQf/qtHP//9kApP//1pv//9IAkv+tbjrNDQhgAy5GIwhqKgkAPwAfAxaaSw7FyghqAf9lAMVjCvgAxGQN981zEf8Az3kb/9F/Jf8A25VG///iuP+A/+O7///kvWAAALz/+NSl//DCAIn/77+E/+24AHj//tii///XAJ3//9OV//i8AHj/r1US6Ho7AAzHDwcBOkMgAgNyEKNNDYvLaQICZg/biiv/y2sGA+MB4ADMcAz/zgB2Ff/mqWD//0Derv//37FgALIBZACw///drf//NNuo4B6j4B5hD5b/gP/Qjv/fjjViCADMaQT/cjULw4AQCAA0RiIF7pYQulcNemUP5Zk8AP//yHv/9LdnEP/SeRZiAtaDJTD/9cOAYjpiK9umNWAAp2MA2mAB4Q7Xn1D//9WaYA+UYA+NAP//zYf/1HwZAWYazGgE/2cuCTC3KRYG4nUJAMdgABAyzGcE/+GRIDD//8d64g//yQB8//3Iff/wshhh//7hCWA5/9SXOWMM1pxjLGEd4TzVmQHiLf/Rkf//z4sBYA+F///Kf//4QLpp/81wCOIP3ACFIP/QeSnwHAwQBUHECgCuWBABgNhwHdz+yX9jF4/hCOEYYQ5kGf/OiWABCoxgA4/iA/fGhNkA/M2NrPvKiKAA/MuJrP3GgN8J4gTLgmAXff//xgB3///DcP/zrQBS//avUf//uQBa/+6UO/0iEgQGPHFAejgOVu1UnkXgDIrgC5BgD5Md4zjUYBthHmAR/Mh/APTXqW2M6bd2AiVxCNOZV1v+wgBx///FdP//wgBv//+/aP//vAJhYg//tlP/85tAPP87GgdFYQVYACUAAisSABUXAAkAIiIQAi+JADoEucprAv/s/KFDYCjgHGEfYSphLmABgNOjZLXXqGv6qQCndD0n/q5W/1T+vOCEvmAAvOBVuQJZYA9S//GZPPlAok4Wdp1dY9ZgACcBL3oyAsOMAD0D2KBIA+bIiGIC/eE03YcgYyAH4Q8xELAAvI1Rh9QYp2wDHwcLAJlkMAI+8gewWP//ul0Q//+4V7AHUf/VwH4u7mQvDHIPBQCwfS4BYfk+MQDL8A8497Ve9BfwB7AkoHNgO5C+lF1/Ow8AAACVXyx//q9X/wEyALVU//+0Tv8A/7JI/7lfFuuAEwgBVmIxClCKIQMAjTgAfP0H34YGG3Mm8SfRkv/KkWBKy5hzRb9bDwAAAGxF'
    $Base64String &= 'IA3Vi0HcFfYHsbAHsfAkrj//ANd5D/+FMwDWEA0GADg2L0cAlADPbgL/4IMR/wDmjiL/65kz/wj6vGd2F/3Fd/4wakgiSZ8GDwBzRwAgAms+GXr5qSBT//mqVDIA/a0BsFKtO///qzb/AOySH//kgxX/EE0ZAHI1A7NJAfCS3HoFMDXwNHEeMgAHMDdxNzAAyoxC2GkYTi0M3wYLAGQ7GgABPSENR96NQiDz7p9O/zUA/akAOf//qTL//6cALf//pCf/4npAFvNeLAUfdQO5wE0FauKCDvMtPQABcC+EURerX0MjBgYfBwcARicQBSwAFQdLxXU16eKIk0n/NQDpmEJzBwClKP//oyT//gCfHv+DNgWSpwJZN6O0TglD54d6FvBCgfQucA9xPjEAzwCN/5VTFtIHBEACQTgeCgd9Bz4AHwwEIxIHHUIAHQmAxXM08tdIiEP/OQD1nbAHowAj/++IGPjLYQANp8xfDW25XwYPkLIHAMRgExDGAFsScI49B4C5QEkA6eB6BLNO1wKeMBCY/96HL/8AikUa2RwKAX0ACwUCQhUKBCwAFgsELQgDAUMAOBUEg5FKHdWAzHg5/8x8PToAAOONL///oB3/APmUF/+GOAV1A18TCwB4KgCXyWUAAP/MbAH//sAOa7Bk8HNwZuaXPf8AwHE4/79qMP4Ao1Ih7YpEGt8AlUod5bheJ/gYwG41sgE9ANeDMAD//qk0//6aEwD/lz8Eu3U+B0YFHwc8Oz8AvPU39QyrSXN0MG39w3T/gMFuKv+1ZTI/AAE9AGYx/9qFLf8I/sFsMF9v//uSAAn/aSgAujYaDAEZHwcLAL9PAaCBsQfZeAb/+8GwiwWxfd0wftyr//axAFn/umUk/6laBiw/ADQAwGok/+0coEHwbvB58meD//4Anhn/xFQA1loMKAE/uAwAs0oDhSDlihn//jAf/+MCvPCNuf//4bb/KP/gs7CGsDB4f/8A3485/8FpHP8As10f/7FdIP8AvGQc/9B7KP8o7qRKsG5+MkvvkQAy+OF8J+n8tABV/75YCs6ORw4P0NgPAA0AzWARJxDlfBzucQf+3K0A/+yZTvbulj3M+f5xQbGW4LUwEbAIfXEZ0HBZ8X0xMnGIcCL8AMBw/9VpFNKpAFskMdyEOgnNwF0XYKldH7ouDwABCwDXcS5B4nYdAPDLYRyTzHtAgBulThSC03HwIDKosHDkvvOesQjcqimzcd6vMBqsco+XQMAAxJBYKAtfBQ8AQw8ABwDWci0ItQDFwFYNYc9uAfB+sEEBsK7916T/3ngjANzbbhqg02QbCKP9zrAR26n/+gC0Xv92MASQmHxZJb/oDwAPAA8AAgC3AE0FQOV9Cv/+AbAf/9OY/8BjHyDSoW1BD7EB34oARg/idB302GcAEbvGaCxPunU+PH95DwAPAA8ABgDRZwASB9Vt0roAJzrTZiNa1nCAJXizajgiAAgAMNduJxUJeDEA//4Af///8Dn//+AAMH//4BA//+AAAB/44AAP+EAAAA/wAAAH4AAUAAMAAwEJA/AA+IgBAAMAAwf4BwApAAMAH/ADAD/gBQADwAADgAMAHgDSBwBaP8ALA38AAwBeCA//9gAD/gQf/6D+Dv//KAAoGAADIjAAAwEAID3OADMAIhMDHxQKDCkYGxAGPiYMAEgsFQBcZkQooJVtSgDJMx8PcEEtHQIEgQtaOyECKBcACkQeEwoeNiIEEQG1L9yYW97mALmH/unBlf/HKJNl64BjQ4ELVTUAGz/dnWL3lWEANNElFQhgPCUEEAXxF9iPT9/iAK10/+a4hv/sAMed/4dePr8jABYLSrh7R9XgAKhs/92fXP/FAH478SMTB1tACCYPAtkSLRYFNQAYDAIoNxsFAQBBIgoBRioSIgDRhUHr8Mue/gD+7NT//u/Y/gDwyaD93JhY/ADeoWD/3JxX/gDnrm3+77p5/wCzbi7lJhcKMQHVFkokBjS7YAsA6pFJC9Yc'
    $Base64String &= 'DgMAVUMiCWq0ZyEA5NaKOf/wx5QA/v/oyP/+6coA/vXTqf7amFAA/tmUSv/cmE0A/vvUnv7/1poA//C2dPksGAkQRzseB85iWisGAB+vWAneymoBAv/BAMJiCPfNbQAM/s93F//RfgAj/++/hP//4gC5///ju//93wC1//TKlf/zxQCL//fMkv//1wCd///Skv/TfwA29plLC9seDiACQTscA8oYsVQEDG3BFcxuBv7sQKhS/tmFJcEZ/gDMbgj+459Q/wD81Z/+/92r/wD+3a3+/t2s/gD+26j+/9mj/wD+1pv+/tKT/gD4w3n/y2wD/gDKaQH+lkkJ2hAiEQM16QvFXg4AL8xqBP/uqVEA/v7Hev7+yH0A/+uoU/71v3UA/v/Tlf/+1ZoC/uEU/tef/v7XA2Ax4Ar/1Jb//tEAkP7+zoj+/slAfv/ciyv+YRLbgIMe/1suDYxtJBDWey3NYAX//9EgkP//05RgHpH/AP/QjP//zon/AP7PjP74yYfhAPjJiZz7zIx7APvLin76xX+zAP7Kgfn/yX3/AP/Fdf/8vWf/APWuUP//uFf/AH5HGaxXLg4DAWJGEgEFUigGCgCHPged6qFF/gD+0I3+/9KT/wD+05b+/tSZ/gDywoDf2qttWQjrvHzuW8yPS6IA/sBs/v/Aaf8A/rxh/v64V/4A+KhH/JdQGXkB4QNcJgFAYioCAKx1NALCwl8CAPjNbwb//MV5A+I1YQzZqGi7zqEEZhN1TsKCP6n+ALFZ//+7Xf//ALdV/+eWPfWKCEcVV+UDkj4BjDDJaQD+YQDhO+ORAi3gF4/+/9GS/wDRnlzHrYVRCwF1C4tbKwrhlkgA4f2uVv7+tFIA//6zSf7QeCEA9CkSA1hUJwYB4mynSQCmzGwCAP7RcQX+13kMEP/6wG/gQZL+94DBePeHYTUveXEAfEwiY/ysVf4E/K3gC69I//6uAD3+5Ysd/qFKQAXgNRcCHWEEuoBSAa/wojz+4DQg/v/PjP9hTf7TAJT+qHc7tItmAjh2fU4tEyrUh0BA6fCgT/5hAP0Aqjr//qgx/v4ApSr+xGkT1WkIMgYI4QS+VASKgPezWP//1JhkAAKXYEeV/2U9EokIXj4d7gtBIg0CADYcCzezajDaEOCRR/9hAOiXQQD//6Yq//2hJAD/9ZAa+5BDCQJb5QW+VgxV4YIAKdTcikDv9rEKW+BlnOJlqF8f4AAeDQNcJRIGGAApEgYJKRMGDgFgASpPJg2Gu2wAMu7RgkD+0oIAQP/Tgz/+9pwAKP75lxv9pk1ACnjEYg8cbRKJAEAMLLFRAOjaBHoK4wvYoP7ciwA5/7dlLviAQQAa1GgzFL58PgAZzaxcKPDCciA3/sJzOGIAw3MAOP/pljb+/pwAFv6QQgaklk0CCfIpmD0ASsloAAD/0G4B//7OAIr//9uo//a5AGz/umgt/7NjAjFyALppLv/qnghF//9wO/2dHv+AZioApVUlAXJnQQ0As0oBLtAwJPOAr1f//t+y/jEAAP/drv/xs2f+AMBtJ/6nVyj/AKNUKf6lVSn/ALRhJP7VhTf+APm7av76t2T/AP3DdP7xly/4GJJABDYXDQDGWwgAC+F6H9j/470A//nIj/7wpFoA9/7XoP/+4LUA/v7apv76xX0A//S4bf74v3MFcEKO8hnmjjrlvABjIk/XbR9jrRhWFklfBQsA23o0ACTacSGvzXAxAD64YCFe13UDE7BLMEjjvHBCmf/5ALtz/v3Tm///AN2t/9yUT/J3OEQdIV8EDwAPAAAAALtPBzzljSP/AP7lwv7vtnz3ALhlKWXZgUMrAOmTR+HunlHugMFmIYiTViSySwcPAA8APktfCw3ZbgAeb995JI+3ZQQrWXabayM21nUcLg8fAw8AdprH/wAI/4IfMAAPAP+ACAcA8CCW4AADAI7AUJM1ALCZAIAP4GiqPyALfnAA/jAA/DAAQ+CZoJwAgAAPNAAfwTAAPwDAAf+Q'
    $Base64String &= 'nDAA6Gf/AHGYEDAAEZh/mAMPAA0AKxwPDyUXQAsyKhwREvEAKMAZDAEYDga/Ew8AAQIAw4hU1um5iQD+dVM2pUErGQAFcksrXnhSL2CwMR4OLt8CAwAUBAoCcjCATyYB2gCXWOrtxpv/7wDMqP1jPyKSzgCTWezeoV//rYBvNd8xHQwkvQMAXS4IS3k9CLgALhcFNnI/FJQA2pRL/P/pyv8A/+rN/+CmZv8A2pZN/+68fv8A+8+R/2U+HoABuQN6OggovmIEAPDOcgv/x2cHAPvNcg//2Iw4ATC0tf//4bf/+UDUo//2y5IxRP8A9bt0/7BZCesQNRkETfUDuVcNACvQcw3/+LxrAP/wsF3/5JtFCP/80HBq2KD//zTZonCGnzNUMHfyswBi/8trA/+4ZSAV6TEaCDYjz4TgPMz/0I6wbfF5sAYAzor878GBq/kAyoph+8qJU+4guXWO/sfwb8NwAP/5tFj/96hJAP5JJQsgVyQBAEJZKAKEuVwCEO3ysV6yce7AgRDh1qdqeoaueD4QGf6yW/BwXv/0gKlL+qRcH21yaghOAbfxb89xB/8A/cmC//HBfvIQqH9KJ/0VoGgxBFr+cUizTf/jjkAr+kIcA1pyHl4AAsnxrVX/+L5CcLIHp3pCi70DWQA0FhPMhD/b8wCkUf/+qzv/+oCiKv+cUAyhsQEwzWkMq3IP9GVgOyAUcS0YCTKYJREABgE6Hgspo2EALcndjUb/5pQAP//7niT95YBAF8SkUQwpMj9YABAgokUCv+qdAj9wFp7/w3Uv9QBiMxWrUykQhwBuORivt2kx9ADGdjr/zHs4/wD3nCX/o1IKjQH9CbpYAdblkzEA///cq//sr2kA/7NiLf+vYC8BNgDGdTL/9bdoAP/+r0X/bzAAg3ITCQDSbBKm/nBZIPa8fvv+MAT2xgKI8LFd/9uZWP8A77Ru//SwY/MA1Xsuh8xyJY8InU0MfszacykQANZwJmPBYyFAgOWUMf/+4bnwoABo3vO4eej90cCV/41IFFjfMg8AAL5QBhHjhjWkANKERZu9cjgDANt3LUbTcShCs58CBwD8TzAA0N3okD050N4AgJAXwTGw3QABBsHA4jAAB4EAAAIPERlwAqBKMwA/AADgAH8AAA=='
    $Base64String = _WinAPI_Base64Decode($Base64String)
    Local $tSource = DllStructCreate('byte[' & BinaryLen($Base64String) & ']')
    DllStructSetData($tSource, 1, $Base64String)
    Local $tDecompress
    _WinAPI_LZNTDecompress($tSource, $tDecompress, 7886)
    $tSource = 0
    Local Const $bString = Binary(DllStructGetData($tDecompress, 1))
    Return $bString
EndFunc   ;==>_Base64String

Func _WinAPI_Base64Decode($sB64String)
    Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
    Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
    $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
    Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode

Func _WinAPI_LZNTDecompress(ByRef $tInput, ByRef $tOutput, $iBufferSize)
    $tOutput = DllStructCreate("byte[" & $iBufferSize & "]")
    If @error Then Return SetError(1, 0, 0)
    Local $aRet = DllCall("ntdll.dll", "uint", "RtlDecompressBuffer", "ushort", 0x0002, "struct*", $tOutput, "ulong", $iBufferSize, "struct*", $tInput, "ulong", DllStructGetSize($tInput), "ulong*", 0)
    If @error Then Return SetError(2, 0, 0)
    If $aRet[0] Then Return SetError(3, $aRet[0], 0)
    Return $aRet[6]
EndFunc   ;==>_WinAPI_LZNTDecompress

Iczer · December 16, 2021

hmm... it not working for me - menu wont disappear in full screen and icons not visible in windowed mode...

ad777 · December 16, 2021

 $hMain = _GUICtrlMenu_GetMenu(WinGetHandle("[CLASS:AutoIt v3 GUI]"))

change it to your title:

 $hMain = _GUICtrlMenu_GetMenu(WinGetHandle("Menu"))

and this

GUICtrlCreateIcon("shell32.dll", 10, 20, 20)
    GUICtrlCreateIcon(@ScriptDir & '\Extras\horse.ani', -1, 20, 40, 32, 32);;;;from your

to

add icon from current directory:

GUICtrlCreateIcon(@ScriptDir & '\apple.ico', -1, 20, 40, 32, 32);cur dir

Iczer · December 17, 2021

Hiding menu worked - thanks, but about icons - I wanted something like this (see below), but icons should be moved on menubar itself, just 16-32 up from it current position.

#include <GUIConstantsEx.au3>
#include <GuiMenu.au3>
#include <GuiStatusBar.au3>
#include <StructureConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GDIPlus.au3>
#include <GuiImageList.au3>
#include <GuiButton.au3>

 _GDIPlus_Startup() 

Global $hGUI, $hFile, $hEdit, $hHelp, $hMain, $hStatusBar, $sMainGUI_Mode = "Windowed", $binModeChange = False, $hGUIStayleDefault, $aIcons[8]

Global Enum $e_idNew = 8000, $e_idOpen, $e_idSave, $e_idExit, $e_idCut, $e_idCopy, $e_idPaste, $e_idAbout


; Create GUI
$hGUI = GUICreate("Menu", 400, 300)

_menuCreate()

$Pic1 = GUICtrlCreateIcon('C:\Program Files (x86)\AutoIt3\Icons\MyAutoIt3_Yellow.ico',-1,392 - 16, 8, 16, 16)
$Pic2 = GUICtrlCreateIcon('C:\Program Files (x86)\AutoIt3\Icons\MyAutoIt3_Red.ico',   -1,392 - 40, 8, 16, 16)
$Pic3 = GUICtrlCreateIcon('C:\Program Files (x86)\AutoIt3\Icons\MyAutoIt3_Green.ico', -1,392 - 64, 8, 16, 16)

$idButton_ModeChange = GUICtrlCreateButton("ModeChange", 150, 85, 125, 25)

$hStatusBar = _GUICtrlStatusBar_Create($hGUI)

GUIRegisterMsg($WM_SIZE, "Example2_WM_SIZE")
GUISetState(@SW_SHOW)

$hGUIStayleDefault = GUIGetStyle ($hGUI)

While 1
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop

        Case $idButton_ModeChange
            If $sMainGUI_Mode = "FullScreen" Then
                $sMainGUI_Mode = "Windowed"
                _menuCreate()
                GUISetStyle ($hGUIStayleDefault[0], $hGUIStayleDefault[1],$hGUI)
             Else
                $sMainGUI_Mode = "FullScreen"
                
                While _GUICtrlMenu_RemoveMenu($hMain, 0)
                WEnd
                
                GUISetStyle ($WS_POPUP, -1,$hGUI)
            EndIf
            $binModeChange = True
            _SendMessage($hGUI, $WM_SIZE)

    EndSwitch

WEnd


Func Example2_WM_SIZE($hWnd, $iMsg, $wParam, $lParam)

    Local $aSize_GUI = WinGetClientSize($hGUI), $aSize_Control

    If Not @error Then
        Switch $sMainGUI_Mode
            Case "Windowed"
                If $binModeChange Then
                    GUICtrlSetState($hMain, $GUI_ENABLE + $GUI_SHOW)
                    GUICtrlSetState($Pic1, $GUI_ENABLE + $GUI_SHOW)
                    GUICtrlSetState($Pic2, $GUI_ENABLE + $GUI_SHOW)
                    GUICtrlSetState($Pic3, $GUI_ENABLE + $GUI_SHOW)
                    _GUICtrlStatusBar_ShowHide ( $hStatusBar, @SW_SHOW )
                    _GUICtrlStatusBar_Resize($hStatusBar)

                    WinMove($hGUI, "", @DesktopWidth/2 - 200, @DesktopHeight/2 - 150, 400, 300)
                    $aSize_GUI = WinGetClientSize($hGUI)
                    If @error Then Return $GUI_RUNDEFMSG
                    $binModeChange = False
                EndIf

            Case "FullScreen"
                If $binModeChange Then
                    GUICtrlSetState($hMain, $GUI_DISABLE + $GUI_HIDE)
                    GUICtrlSetState($Pic1, $GUI_DISABLE + $GUI_HIDE)
                    GUICtrlSetState($Pic2, $GUI_DISABLE + $GUI_HIDE)
                    GUICtrlSetState($Pic3, $GUI_DISABLE + $GUI_HIDE)
                    _GUICtrlStatusBar_ShowHide ( $hStatusBar, @SW_HIDE )

                    WinMove($hGUI, "", -2, -2, @DesktopWidth+2, @DesktopHeight+2)
                    $aSize_GUI = WinGetClientSize($hGUI)
                    If @error Then Return $GUI_RUNDEFMSG
                    $binModeChange = False
                EndIf

        EndSwitch
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2015-01-20
Func _menuCreate()
    ; Create File menu
    $hFile = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hFile, "&New", $e_idNew)
    _GUICtrlMenu_AddMenuItem($hFile, "&Open", $e_idOpen)
    _GUICtrlMenu_AddMenuItem($hFile, "&Save", $e_idSave)
    _GUICtrlMenu_AddMenuItem($hFile, "", 0)
    _GUICtrlMenu_AddMenuItem($hFile, "E&xit", $e_idExit)

    ; Create Edit menu
    $hEdit = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hEdit, "&Cut", $e_idCut)
    _GUICtrlMenu_AddMenuItem($hEdit, "C&opy", $e_idCopy)
    _GUICtrlMenu_AddMenuItem($hEdit, "&Paste", $e_idPaste)

    ; Create Help menu
    $hHelp = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hHelp, "&About", $e_idAbout)

    ; Create Main menu
    $hMain = _GUICtrlMenu_CreateMenu()
    _GUICtrlMenu_AddMenuItem($hMain, "&File", 0, $hFile)
    _GUICtrlMenu_AddMenuItem($hMain, "&Edit", 0, $hEdit)
    _GUICtrlMenu_AddMenuItem($hMain, "&Help", 0, $hHelp)

    ; Set window menu
    _GUICtrlMenu_SetMenu($hGUI, $hMain)
    
EndFunc

ideally using binaries from script, not from files on HDD:

Func _SetIcon($hWnd,$bMemoryBitmap, ByRef $hIcon)
    Local $aBitmap = _GDIPlus_BitmapCreateFromMemory($bMemoryBitmap)
    $hIcon = _GDIPlus_HICONCreateFromBitmap($aBitmap)
    _SendMessage($hWnd, 0x0080, 1, $hIcon); 0x0080 = $WM_SETICON, 0 = icon small -> 1 = icon big
    ;_WinAPI_SetClassLongEx($hWnd, $GCL_HICONSM, $hIcon)
EndFunc

Func _SetIconToButton($idButton, $binIco, $iSize = 16)
    Local $hButton = GUICtrlGetHandle($idButton)
    Local $hIcon = _GDIPlus_BitmapCreateFromMemory($binIco, True)
    Local $hImageList = _GUIImageList_Create($iSize, $iSize, 5, 3)
     _GUIImageList_Add($hImageList, $hIcon)
     _GUICtrlButton_SetImageList($hButton, $hImageList,4)
    _WinAPI_DeleteObject($hIcon)
    _WinAPI_UpdateWindow($hButton)
EndFunc

Func _Base64String_Icon01()
    Local $Base64String
    $Base64String &= 'F7oAAAABAAMAICABAXAgAKgQAAA2IAAAABgYA3iICWgAAN4ATBAADAE8aAAEAABmGgAAKHMAjADIAEAADAEuUQAlgBcMAiobDwFSXAEUADkmFxAbEwwALgYDAUwxHAsAeQwIBEVINCICAokROyQSBRsQBAcNzT2aZzoBkwBaLJ++hVPn5wCsdvzsv5L/i4BaMskSDQkthREAZkUoAVIwFWUASCkRnAUDAkIIMiARxkOtc0ABANiPUNTktH//AOe6iv/pwJP/AOm4iP5QLhShECYbERXBCD0mFAAm05JZ7OSpbwD/sXE65DQcCyCOIBQJHH8fAAAAu3xEAdaJR9QA4atx/+Oxev8A5bWB/+a5iP8A3aFt+BsPB14AHhUNKZdcLbUA4q1z/+Cnaf8A3Z9c/9eMRPsAMxsKjCwbCxIB5RlBIAcBFgoCEA8vFwXKdYJTKQAFz4A+1uGoawD/89Kr//nixQD//e/a//3p0QD/r3E+5KRoNwDd4Z9g/t+jZAD/3J5a/+CiXQD/4aFa/8h2LAD0Hg8Fcz0nEwNAyx8AKhUEMms1AA+vCAQATjgcBAQKwQQsGAcWOgAdCXbSgzr24QCmZv//6s3//0Ds0f//7dPAAdMA/+Sxd//eoV8Bwh3bmVP/2pVLAP/3zZX//9ihAP/yvXj/vnExIOgdEggd3R43GwAEI6pVD9fLagAC/6ZTD+UdDQAEehQJA1KOSQAVxdV/Kv7ViQA2/96eVv//5gDC///nxv//6ALIYgDmsnb/2pYATP/Zk0j/148AQf/qtHP//9kApP//1pv//9IAkv+tbjrNDQhgAy5GIwhqKgkAPwAfAxaaSw7FyghqAf9lAMVjCvgAxGQN981zEf8Az3kb/9F/Jf8A25VG///iuP+A/+O7///kvWAAALz/+NSl//DCAIn/77+E/+24AHj//tii///XAJ3//9OV//i8AHj/r1US6Ho7AAzHDwcBOkMgAgNyEKNNDYvLaQICZg/biiv/y2sGA+MB4ADMcAz/zgB2Ff/mqWD//0Derv//37FgALIBZACw///drf//NNuo4B6j4B5hD5b/gP/Qjv/fjjViCADMaQT/cjULw4AQCAA0RiIF7pYQulcNemUP5Zk8AP//yHv/9LdnEP/SeRZiAtaDJTD/9cOAYjpiK9umNWAAp2MA2mAB4Q7Xn1D//9WaYA+UYA+NAP//zYf/1HwZAWYazGgE/2cuCTC3KRYG4nUJAMdgABAyzGcE/+GRIDD//8d64g//yQB8//3Iff/wshhh//7hCWA5/9SXOWMM1pxjLGEd4TzVmQHiLf/Rkf//z4sBYA+F///Kf//4QLpp/81wCOIP3ACFIP/QeSnwHAwQBUHECgCuWBABgNhwHdz+yX9jF4/hCOEYYQ5kGf/OiWABCoxgA4/iA/fGhNkA/M2NrPvKiKAA/MuJrP3GgN8J4gTLgmAXff//xgB3///DcP/zrQBS//avUf//uQBa/+6UO/0iEgQGPHFAejgOVu1UnkXgDIrgC5BgD5Md4zjUYBthHmAR/Mh/APTXqW2M6bd2AiVxCNOZV1v+wgBx///FdP//wgBv//+/aP//vAJhYg//tlP/85tAPP87GgdFYQVYACUAAisSABUXAAkAIiIQAi+JADoEucprAv/s/KFDYCjgHGEfYSphLmABgNOjZLXXqGv6qQCndD0n/q5W/1T+vOCEvmAAvOBVuQJZYA9S//GZPPlAok4Wdp1dY9ZgACcBL3oyAsOMAD0D2KBIA+bIiGIC/eE03YcgYyAH4Q8xELAAvI1Rh9QYp2wDHwcLAJlkMAI+8gewWP//ul0Q//+4V7AHUf/VwH4u7mQvDHIPBQCwfS4BYfk+MQDL8A8497Ve9BfwB7AkoHNgO5C+lF1/Ow8AAACVXyx//q9X/wEyALVU//+0Tv8A/7JI/7lfFuuAEwgBVmIxClCKIQMAjTgAfP0H34YGG3Mm8SfRkv/KkWBKy5hzRb9bDwAAAGxF'
    $Base64String &= 'IA3Vi0HcFfYHsbAHsfAkrj//ANd5D/+FMwDWEA0GADg2L0cAlADPbgL/4IMR/wDmjiL/65kz/wj6vGd2F/3Fd/4wakgiSZ8GDwBzRwAgAms+GXr5qSBT//mqVDIA/a0BsFKtO///qzb/AOySH//kgxX/EE0ZAHI1A7NJAfCS3HoFMDXwNHEeMgAHMDdxNzAAyoxC2GkYTi0M3wYLAGQ7GgABPSENR96NQiDz7p9O/zUA/akAOf//qTL//6cALf//pCf/4npAFvNeLAUfdQO5wE0FauKCDvMtPQABcC+EURerX0MjBgYfBwcARicQBSwAFQdLxXU16eKIk0n/NQDpmEJzBwClKP//oyT//gCfHv+DNgWSpwJZN6O0TglD54d6FvBCgfQucA9xPjEAzwCN/5VTFtIHBEACQTgeCgd9Bz4AHwwEIxIHHUIAHQmAxXM08tdIiEP/OQD1nbAHowAj/++IGPjLYQANp8xfDW25XwYPkLIHAMRgExDGAFsScI49B4C5QEkA6eB6BLNO1wKeMBCY/96HL/8AikUa2RwKAX0ACwUCQhUKBCwAFgsELQgDAUMAOBUEg5FKHdWAzHg5/8x8PToAAOONL///oB3/APmUF/+GOAV1A18TCwB4KgCXyWUAAP/MbAH//sAOa7Bk8HNwZuaXPf8AwHE4/79qMP4Ao1Ih7YpEGt8AlUod5bheJ/gYwG41sgE9ANeDMAD//qk0//6aEwD/lz8Eu3U+B0YFHwc8Oz8AvPU39QyrSXN0MG39w3T/gMFuKv+1ZTI/AAE9AGYx/9qFLf8I/sFsMF9v//uSAAn/aSgAujYaDAEZHwcLAL9PAaCBsQfZeAb/+8GwiwWxfd0wftyr//axAFn/umUk/6laBiw/ADQAwGok/+0coEHwbvB58meD//4Anhn/xFQA1loMKAE/uAwAs0oDhSDlihn//jAf/+MCvPCNuf//4bb/KP/gs7CGsDB4f/8A3485/8FpHP8As10f/7FdIP8AvGQc/9B7KP8o7qRKsG5+MkvvkQAy+OF8J+n8tABV/75YCs6ORw4P0NgPAA0AzWARJxDlfBzucQf+3K0A/+yZTvbulj3M+f5xQbGW4LUwEbAIfXEZ0HBZ8X0xMnGIcCL8AMBw/9VpFNKpAFskMdyEOgnNwF0XYKldH7ouDwABCwDXcS5B4nYdAPDLYRyTzHtAgBulThSC03HwIDKosHDkvvOesQjcqimzcd6vMBqsco+XQMAAxJBYKAtfBQ8AQw8ABwDWci0ItQDFwFYNYc9uAfB+sEEBsK7916T/3ngjANzbbhqg02QbCKP9zrAR26n/+gC0Xv92MASQmHxZJb/oDwAPAA8AAgC3AE0FQOV9Cv/+AbAf/9OY/8BjHyDSoW1BD7EB34oARg/idB302GcAEbvGaCxPunU+PH95DwAPAA8ABgDRZwASB9Vt0roAJzrTZiNa1nCAJXizajgiAAgAMNduJxUJeDEA//4Af///8Dn//+AAMH//4BA//+AAAB/44AAP+EAAAA/wAAAH4AAUAAMAAwEJA/AA+IgBAAMAAwf4BwApAAMAH/ADAD/gBQADwAADgAMAHgDSBwBaP8ALA38AAwBeCA//9gAD/gQf/6D+Dv//KAAoGAADIjAAAwEAID3OADMAIhMDHxQKDCkYGxAGPiYMAEgsFQBcZkQooJVtSgDJMx8PcEEtHQIEgQtaOyECKBcACkQeEwoeNiIEEQG1L9yYW97mALmH/unBlf/HKJNl64BjQ4ELVTUAGz/dnWL3lWEANNElFQhgPCUEEAXxF9iPT9/iAK10/+a4hv/sAMed/4dePr8jABYLSrh7R9XgAKhs/92fXP/FAH478SMTB1tACCYPAtkSLRYFNQAYDAIoNxsFAQBBIgoBRioSIgDRhUHr8Mue/gD+7NT//u/Y/gDwyaD93JhY/ADeoWD/3JxX/gDnrm3+77p5/wCzbi7lJhcKMQHVFkokBjS7YAsA6pFJC9Yc'
    $Base64String &= 'DgMAVUMiCWq0ZyEA5NaKOf/wx5QA/v/oyP/+6coA/vXTqf7amFAA/tmUSv/cmE0A/vvUnv7/1poA//C2dPksGAkQRzseB85iWisGAB+vWAneymoBAv/BAMJiCPfNbQAM/s93F//RfgAj/++/hP//4gC5///ju//93wC1//TKlf/zxQCL//fMkv//1wCd///Skv/TfwA29plLC9seDiACQTscA8oYsVQEDG3BFcxuBv7sQKhS/tmFJcEZ/gDMbgj+459Q/wD81Z/+/92r/wD+3a3+/t2s/gD+26j+/9mj/wD+1pv+/tKT/gD4w3n/y2wD/gDKaQH+lkkJ2hAiEQM16QvFXg4AL8xqBP/uqVEA/v7Hev7+yH0A/+uoU/71v3UA/v/Tlf/+1ZoC/uEU/tef/v7XA2Ax4Ar/1Jb//tEAkP7+zoj+/slAfv/ciyv+YRLbgIMe/1suDYxtJBDWey3NYAX//9EgkP//05RgHpH/AP/QjP//zon/AP7PjP74yYfhAPjJiZz7zIx7APvLin76xX+zAP7Kgfn/yX3/AP/Fdf/8vWf/APWuUP//uFf/AH5HGaxXLg4DAWJGEgEFUigGCgCHPged6qFF/gD+0I3+/9KT/wD+05b+/tSZ/gDywoDf2qttWQjrvHzuW8yPS6IA/sBs/v/Aaf8A/rxh/v64V/4A+KhH/JdQGXkB4QNcJgFAYioCAKx1NALCwl8CAPjNbwb//MV5A+I1YQzZqGi7zqEEZhN1TsKCP6n+ALFZ//+7Xf//ALdV/+eWPfWKCEcVV+UDkj4BjDDJaQD+YQDhO+ORAi3gF4/+/9GS/wDRnlzHrYVRCwF1C4tbKwrhlkgA4f2uVv7+tFIA//6zSf7QeCEA9CkSA1hUJwYB4mynSQCmzGwCAP7RcQX+13kMEP/6wG/gQZL+94DBePeHYTUveXEAfEwiY/ysVf4E/K3gC69I//6uAD3+5Ysd/qFKQAXgNRcCHWEEuoBSAa/wojz+4DQg/v/PjP9hTf7TAJT+qHc7tItmAjh2fU4tEyrUh0BA6fCgT/5hAP0Aqjr//qgx/v4ApSr+xGkT1WkIMgYI4QS+VASKgPezWP//1JhkAAKXYEeV/2U9EokIXj4d7gtBIg0CADYcCzezajDaEOCRR/9hAOiXQQD//6Yq//2hJAD/9ZAa+5BDCQJb5QW+VgxV4YIAKdTcikDv9rEKW+BlnOJlqF8f4AAeDQNcJRIGGAApEgYJKRMGDgFgASpPJg2Gu2wAMu7RgkD+0oIAQP/Tgz/+9pwAKP75lxv9pk1ACnjEYg8cbRKJAEAMLLFRAOjaBHoK4wvYoP7ciwA5/7dlLviAQQAa1GgzFL58PgAZzaxcKPDCciA3/sJzOGIAw3MAOP/pljb+/pwAFv6QQgaklk0CCfIpmD0ASsloAAD/0G4B//7OAIr//9uo//a5AGz/umgt/7NjAjFyALppLv/qnghF//9wO/2dHv+AZioApVUlAXJnQQ0As0oBLtAwJPOAr1f//t+y/jEAAP/drv/xs2f+AMBtJ/6nVyj/AKNUKf6lVSn/ALRhJP7VhTf+APm7av76t2T/AP3DdP7xly/4GJJABDYXDQDGWwgAC+F6H9j/470A//nIj/7wpFoA9/7XoP/+4LUA/v7apv76xX0A//S4bf74v3MFcEKO8hnmjjrlvABjIk/XbR9jrRhWFklfBQsA23o0ACTacSGvzXAxAD64YCFe13UDE7BLMEjjvHBCmf/5ALtz/v3Tm///AN2t/9yUT/J3OEQdIV8EDwAPAAAAALtPBzzljSP/AP7lwv7vtnz3ALhlKWXZgUMrAOmTR+HunlHugMFmIYiTViSySwcPAA8APktfCw3ZbgAeb995JI+3ZQQrWXabayM21nUcLg8fAw8AdprH/wAI/4IfMAAPAP+ACAcA8CCW4AADAI7AUJM1ALCZAIAP4GiqPyALfnAA/jAA/DAAQ+CZoJwAgAAPNAAfwTAAPwDAAf+Q'
    $Base64String &= 'nDAA6Gf/AHGYEDAAEZh/mAMPAA0AKxwPDyUXQAsyKhwREvEAKMAZDAEYDga/Ew8AAQIAw4hU1um5iQD+dVM2pUErGQAFcksrXnhSL2CwMR4OLt8CAwAUBAoCcjCATyYB2gCXWOrtxpv/7wDMqP1jPyKSzgCTWezeoV//rYBvNd8xHQwkvQMAXS4IS3k9CLgALhcFNnI/FJQA2pRL/P/pyv8A/+rN/+CmZv8A2pZN/+68fv8A+8+R/2U+HoABuQN6OggovmIEAPDOcgv/x2cHAPvNcg//2Iw4ATC0tf//4bf/+UDUo//2y5IxRP8A9bt0/7BZCesQNRkETfUDuVcNACvQcw3/+LxrAP/wsF3/5JtFCP/80HBq2KD//zTZonCGnzNUMHfyswBi/8trA/+4ZSAV6TEaCDYjz4TgPMz/0I6wbfF5sAYAzor878GBq/kAyoph+8qJU+4guXWO/sfwb8NwAP/5tFj/96hJAP5JJQsgVyQBAEJZKAKEuVwCEO3ysV6yce7AgRDh1qdqeoaueD4QGf6yW/BwXv/0gKlL+qRcH21yaghOAbfxb89xB/8A/cmC//HBfvIQqH9KJ/0VoGgxBFr+cUizTf/jjkAr+kIcA1pyHl4AAsnxrVX/+L5CcLIHp3pCi70DWQA0FhPMhD/b8wCkUf/+qzv/+oCiKv+cUAyhsQEwzWkMq3IP9GVgOyAUcS0YCTKYJREABgE6Hgspo2EALcndjUb/5pQAP//7niT95YBAF8SkUQwpMj9YABAgokUCv+qdAj9wFp7/w3Uv9QBiMxWrUykQhwBuORivt2kx9ADGdjr/zHs4/wD3nCX/o1IKjQH9CbpYAdblkzEA///cq//sr2kA/7NiLf+vYC8BNgDGdTL/9bdoAP/+r0X/bzAAg3ITCQDSbBKm/nBZIPa8fvv+MAT2xgKI8LFd/9uZWP8A77Ru//SwY/MA1Xsuh8xyJY8InU0MfszacykQANZwJmPBYyFAgOWUMf/+4bnwoABo3vO4eej90cCV/41IFFjfMg8AAL5QBhHjhjWkANKERZu9cjgDANt3LUbTcShCs58CBwD8TzAA0N3okD050N4AgJAXwTGw3QABBsHA4jAAB4EAAAIPERlwAqBKMwA/AADgAH8AAA=='
    $Base64String = _WinAPI_Base64Decode($Base64String)
    Local $tSource = DllStructCreate('byte[' & BinaryLen($Base64String) & ']')
    DllStructSetData($tSource, 1, $Base64String)
    Local $tDecompress
    _WinAPI_LZNTDecompress($tSource, $tDecompress, 7886)
    $tSource = 0
    Local Const $bString = Binary(DllStructGetData($tDecompress, 1))
    Return $bString
EndFunc   ;==>_Base64String

Func _WinAPI_Base64Decode($sB64String)
    Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
    Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
    $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
    Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode

Func _WinAPI_LZNTDecompress(ByRef $tInput, ByRef $tOutput, $iBufferSize)
    $tOutput = DllStructCreate("byte[" & $iBufferSize & "]")
    If @error Then Return SetError(1, 0, 0)
    Local $aRet = DllCall("ntdll.dll", "uint", "RtlDecompressBuffer", "ushort", 0x0002, "struct*", $tOutput, "ulong", $iBufferSize, "struct*", $tInput, "ulong", DllStructGetSize($tInput), "ulong*", 0)
    If @error Then Return SetError(2, 0, 0)
    If $aRet[0] Then Return SetError(3, $aRet[0], 0)
    Return $aRet[6]
EndFunc   ;==>_WinAPI_LZNTDecompress

ad777 · December 17, 2021

this script:

Case "FullScreen"
                If $binModeChange Then
                    GUICtrlSetState($hMain, $GUI_DISABLE + $GUI_HIDE)
                    GUICtrlSetState($Pic1, $GUI_DISABLE + $GUI_HIDE)
                    GUICtrlSetState($Pic2, $GUI_DISABLE + $GUI_HIDE)
                    GUICtrlSetState($Pic3, $GUI_DISABLE + $GUI_HIDE)

should be:(it's worked in fullscreen when menu dissap.)

Case "FullScreen"
                If $binModeChange Then
                    GUICtrlSetState($hMain, $GUI_DISABLE + $GUI_HIDE)

and this:

$Pic1 = GUICtrlCreateIcon('d:\Program Files\AutoIt3\Icons\MyAutoIt3_Yellow.ico',-1,392 - 16, 8, 16, 16)
$Pic2 = GUICtrlCreateIcon('d:\Program Files\AutoIt3\Icons\MyAutoIt3_Red.ico',   -1,392 - 40, 8, 16, 16)
$Pic3 = GUICtrlCreateIcon('d:\Program Files\AutoIt3\Icons\MyAutoIt3_Green.ico', -1,392 - 64, 8, 16, 16)

should be this:

$Pic1 = GUICtrlCreateIcon('d:\Program Files\AutoIt3\Icons\MyAutoIt3_Yellow.ico',-1,392 - 16, 0, 16, 16)
$Pic2 = GUICtrlCreateIcon('d:\Program Files\AutoIt3\Icons\MyAutoIt3_Red.ico',   -1,392 - 40, 0, 16, 16)
$Pic3 = GUICtrlCreateIcon('d:\Program Files\AutoIt3\Icons\MyAutoIt3_Green.ico', -1,392 - 64, 0, 16, 16)

Iczer · December 17, 2021

no - if I remove

                    GUICtrlSetState($Pic1, $GUI_DISABLE + $GUI_HIDE)
                    GUICtrlSetState($Pic2, $GUI_DISABLE + $GUI_HIDE)
                    GUICtrlSetState($Pic3, $GUI_DISABLE + $GUI_HIDE)

then icon wont be removed in fullscreen and still be visible - at least it how it for me

second - setting Y-coordinate to zero in

GUICtrlCreateIcon

just moved icon 8 pixels upper - to the bottom border of menubar in windowed mode, but I need move it on menubar itself - another 16 pixels UP

icons do not need to be visible in fullscreen mode - only in windoved mode, where menubar exist

Iczer · December 21, 2021

Is it even possible for winapi to draw icons/animations on menu-bar? Just as old firefox and IE was doing?

LarsJ · December 22, 2021

Yes, it can be done with GUI/Tray Menu with icons and colors and the updates in post 289.

Iczer · December 22, 2021

Thanks! I try!

Icons on GUI MenuBar

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members