Jump to content

Icons on GUI MenuBar

Iczer

By Iczer
in AutoIt General Help and Support

 Share

Recommended Posts

Iczer Universalist

Iczer

Posted
Posted

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 Universalist

ad777

Posted
Posted

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

 

none

ad777 Universalist

ad777

Posted
Posted

  

 $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

 

none

Iczer Universalist

Iczer

Posted
  • Author
Posted

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 Universalist

ad777

Posted
Posted

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)

 

none

Iczer Universalist

Iczer

Posted
  • Author
Posted

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

LarsJ Universalist

LarsJ

Posted
Posted

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

Controls,  File Explorer,  ROT objects,  UI Automation,  Windows Message Monitor
Compiled code: Accessing AutoIt variables,  DotNet.au3 UDF,  Using C# and VB code
Shell menus: The Context menu,  The Favorites menu.  Shell related: Control Panel,  System Image Lists
Graphics related: Rubik's Cube,  OpenGL without external libraries,  Navigating in an image,  Non-rectangular selections
ListView controls: Colors and fonts,  Multi-line header,  Multi-line items,  Checkboxes and icons,  Incremental search
ListView controls: Virtual ListViews,  Editing cells,  Data display functions

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...