Problem Minimize to tray with button

[ahmeddzcom]

Hello

i Find  Minimize to tray here :

 

 

 But if add Button not work.

expandcollapse popup

#include <Constants.au3>
#include <GUIConstants.au3>
#include <WinAPI.au3>
Opt('GUIOnEventMode', 1)
Opt('TrayOnEventMode', 1)

Global Const $IDANI_OPEN = 1
Global Const $IDANI_CAPTION = 3

Global $hGUI = GUICreate('Test', 300, 200)
Global $fMinimized = False
Global $hTray = ControlGetHandle('[CLASS:Shell_TrayWnd]', '', 'TrayNotifyWnd1')

$Button1 = GUICtrlCreateButton("Ok", 100, 100, 40, 30, $BS_ICON)

TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, '_Restore')
TraySetClick(16)

GUISetOnEvent($GUI_EVENT_CLOSE, '_Minimize')

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1
            MsgBox(0,"","Ok")
    EndSwitch
WEnd

Func _Minimize()
    Local $tRcFrom , $tRcTo

    If Not $fMinimized Then
        $tRcFrom = _WinAPI_GetWindowRect($hGUI)
        $tRcTo = _WinAPI_GetWindowRect($hTray)
        _WinAPI_DrawAnimatedRects($hGUI, $IDANI_CAPTION, DllStructGetPtr($tRcFrom), DllStructGetPtr($tRcTo))
        GUISetState(@SW_HIDE)
        $fMinimized = True
    EndIf
EndFunc

Func _Restore()
    If $fMinimized Then
        $tRcFrom = _WinAPI_GetWindowRect($hTray)
        $tRcTo = _WinAPI_GetWindowRect($hGUI)
        _WinAPI_DrawAnimatedRects($hGUI, $IDANI_CAPTION, DllStructGetPtr($tRcFrom), DllStructGetPtr($tRcTo))
        GUISetState(@SW_SHOW)
        $fMinimized = False
    EndIf
EndFunc

Func _WinAPI_DrawAnimatedRects($hWnd, $iAnim, $pRectFrom, $pRectTo)
    Local $aResult

    $aResult = DllCall('user32.dll', 'int', 'DrawAnimatedRects', 'hwnd', $hWnd, 'int', $iAnim, 'ptr', $pRectFrom, 'ptr', $pRectTo)
    If @error Then Return SetError(1, 0, 0)
    Return $aResult[0]
EndFunc

 

 

Edited May 20, 2016 by ahmeddzcom

[AutoBert]

When using GUIOnEventMode GuiGetMsg not working, read in helpfile => GUI Reference => GUI Concepts to understand this. And give your thread a title which belongs to the issue.

[ahmeddzcom]

Any Solution ... please

[Melba23]

ahmeddzcom,

You were given the solution above. You have set the script to run using OnEvent mode - doing so prevents GUIGetMsg from working and so to capture the button event you will need to use GUICtrlSetOnEvent to assign a function to it.

I suggest reading the <GUIReference - GUI Concepts> section of the Help file to understand the difference between OnEvent & MessageLoop modes..

M23