Имя пользователя:
Пароль:
 

Название темы: [решено] GUI и трей
Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Код: Выделить весь код
#include <GUIConstantsEx.au3>
#include <Constants.au3>

Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)

TraySetOnEvent($TRAY_EVENT_PRIMARYUP, "_Tray_Main_Events")
TraySetClick(16)

$ShowMainWindow_TrayItem = TrayCreateItem("Show Main window")
TrayItemSetState(-1, $TRAY_DEFAULT)
TrayItemSetOnEvent(-1, "_Tray_Main_Events")

TrayCreateItem("")

$About_TrayItem = TrayCreateItem("About")
TrayItemSetOnEvent(-1, "_Tray_Main_Events")

$Exit_TrayItem = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_Tray_Main_Events")

$hGUI = GUICreate("My GUI", 300, 200)
GUISetState(@SW_SHOW, $hGUI)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_MINIMIZE
            GUISetState(@SW_HIDE, $hGUI)
    EndSwitch
WEnd

Func _Tray_Main_Events()
    Switch @TRAY_ID
        Case $TRAY_EVENT_PRIMARYUP, $ShowMainWindow_TrayItem
            GUISetState(@SW_SHOW, $hGUI)
            WinSetState($hGUI, "", @SW_RESTORE)
            WinActivate($hGUI)
        Case $About_TrayItem
            TraySetState(2)
            MsgBox(262144+64, "About", "My App v1.0", 0, $hGUI)
            TraySetState(1)
        Case $Exit_TrayItem
            Exit
    EndSwitch
EndFunc

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 18:15, 10-05-2009 | #2

Название темы: [решено] GUI и трей