Iczer Posted December 16, 2021 Share Posted 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? expandcollapse popup#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 Link to comment Share on other sites More sharing options...
ad777 Posted December 16, 2021 Share Posted December 16, 2021 i hope this help ya(thankx to GaryFrost) expandcollapse popup#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 iam ِAutoit programmer. best thing in life is to use your Brain to Achieve everything you want. Link to comment Share on other sites More sharing options...
Iczer Posted December 16, 2021 Author Share Posted December 16, 2021 hmm... it not working for me - menu wont disappear in full screen and icons not visible in windowed mode... Link to comment Share on other sites More sharing options...
ad777 Posted December 16, 2021 Share Posted 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 iam ِAutoit programmer. best thing in life is to use your Brain to Achieve everything you want. Link to comment Share on other sites More sharing options...
Iczer Posted December 17, 2021 Author Share Posted 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. expandcollapse popup#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: expandcollapse popupFunc _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 Link to comment Share on other sites More sharing options...
ad777 Posted December 17, 2021 Share Posted 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) iam ِAutoit programmer. best thing in life is to use your Brain to Achieve everything you want. Link to comment Share on other sites More sharing options...
Iczer Posted December 17, 2021 Author Share Posted 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 Link to comment Share on other sites More sharing options...
Iczer Posted December 21, 2021 Author Share Posted December 21, 2021 Is it even possible for winapi to draw icons/animations on menu-bar? Just as old firefox and IE was doing? Link to comment Share on other sites More sharing options...
LarsJ Posted December 22, 2021 Share Posted December 22, 2021 Yes, it can be done with GUI/Tray Menu with icons and colors and the updates in post 289. Iczer 1 Controls, File Explorer, ROT objects, UI Automation, Windows Message MonitorCompiled code: Accessing AutoIt variables, DotNet.au3 UDF, Using C# and VB codeShell menus: The Context menu, The Favorites menu. Shell related: Control Panel, System Image ListsGraphics related: Rubik's Cube, OpenGL without external libraries, Navigating in an image, Non-rectangular selectionsListView controls: Colors and fonts, Multi-line header, Multi-line items, Checkboxes and icons, Incremental searchListView controls: Virtual ListViews, Editing cells, Data display functions Link to comment Share on other sites More sharing options...
Iczer Posted December 22, 2021 Author Share Posted December 22, 2021 Thanks! I try! Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now