#region: - Option
Opt('GUIOnEventMode', 1)
Opt('MustDeclareVars', 1)
Opt('TrayIconDebug', 0)
Opt('TrayIconHide', 0)
Opt('TrayMenuMode', 1)
Opt('TrayOnEventMode', 1)
#endregion
#region: - Include
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#endregion
HotKeySet('{ESC}', '_Pro_Exit')
#region: - Main Win
Global $hMainWin
$hMainWin = GUICreate('Test', 400, 400, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Pro_Exit')
#endregion
#region: - Main Tray
Global $hMainTray
TraySetClick(1+8)
TrayCreateItem('Tray tip 1 sec')
TrayItemSetOnEvent(-1, '_MainTrayTip_1sec')
TrayCreateItem('Tray tip 3 sec')
TrayItemSetOnEvent(-1, '_MainTrayTip_3sec')
TrayCreateItem('Tray tip 5 sec')
TrayItemSetOnEvent(-1, '_MainTrayTip_5sec')
TrayCreateItem('')
TrayCreateItem('Exit')
TrayItemSetOnEvent(-1, '_Pro_Exit')
Func _MainTrayTip_1sec()
_TrayTip(1, 'Tray подсказка', 'Будет закрыта через 1 секунду')
EndFunc
Func _MainTrayTip_3sec()
_TrayTip(3, 'Tray подсказка', 'Будет закрыта через 3 секунду', 1)
EndFunc
Func _MainTrayTip_5sec()
_TrayTip(5, 'Tray подсказка', 'Будет закрыта через 5 секунду', 5)
EndFunc
#endregion
#region: - After creating all GUI
GUISetState(@SW_SHOW, $hMainWin)
TraySetState(1)
#endregion
#region: - Sleep, Exit
While 1
Sleep(10)
WEnd
Func _Pro_Exit()
Exit
EndFunc
#endregion
#region: - TrayTip
Func _TrayTip($iTimeOut, $sTitle, $sText, $iIcon=Default)
TrayTip($sTitle, $sText, Default, $iIcon)
AdlibDisable()
AdlibEnable('_Close_TrayTip', $iTimeOut*1000)
EndFunc
Func _Close_TrayTip()
AdlibDisable()
TrayTip('', '', 1)
EndFunc
#endregion
#region: - ToolTip
Func _ToolTip($iTimeOut, $sText, $iX=Default, $iY=Default, $sTitle=Default, $iIcon=Default, $iOptions=Default)
ToolTip($sText, $iX, $iY, $sTitle, $iIcon, $iOptions)
AdlibDisable()
AdlibEnable('_Close_ToolTip', $iTimeOut*1000)
EndFunc
Func _Close_ToolTip()
AdlibDisable()
ToolTip('')
EndFunc
#endregion |
