[решено] Tray menu

[shyra1976]

#Include <Constants.au3>
#NoTrayIcon

Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown.

$checkeditem = TrayCreateItem("Checked")
$exititem = TrayCreateItem("Exit")
TraySetState()
Dim $TrayItemState
;~ $x = $TRAY_CHECKED
$x = $TRAY_UNCHECKED
TrayItemSetState($checkeditem,$x)

While 1
$msg = TrayGetMsg()

Select
Case $msg = $exititem
ExitLoop
EndSelect
WEnd

Exit

Есть такой код
Вопрос В током варианте я немогу ставить галачку в Tray menu
на против "Checked"
Если меняю параметр $X на $TRAY_CHECKED То все работат
Как сделать что бы оба варианта работало

[Creat0R]

Как сделать что бы оба варианта работало »
А как вариант с «$x = $TRAY_UNCHECKED» должен работать? По умолчанию ведь пункт не отмечен :)

[beve]

Вот, например:#Include <Constants.au3>
#NoTrayIcon

Opt("TrayMenuMode", 1 + 2)
$checkeditem = TrayCreateItem("Checked")
$exititem = TrayCreateItem("Exit")
TraySetState()

While 1
$msg = TrayGetMsg()
Switch $msg
Case $checkeditem
If BitAND(TrayItemGetState($checkeditem), $TRAY_CHECKED) Then
TrayItemSetState($checkeditem, $TRAY_UNCHECKED)
Else
TrayItemSetState($checkeditem, $TRAY_CHECKED)
;RegWrite() здесь производишь например запись значения в реестр
EndIf
Case $exititem
Exit
EndSwitch
WEnd

[shyra1976]

spasibo bolshoe
Vek zivi ,vek ychis

А как вариант с «$x = $TRAY_UNCHECKED» должен работать? По умолчанию ведь пункт не отмечен
------- »
Я знаю Но если ты его ткроешь а второе закрошь то работать не будет Но все равно спасибо всем вам

beve - Решил проблему

[Creat0R]

Но если ты его ткроешь а второе закрошь то работать не будет »
Что не будет работать? В примере не указана вовсе проблема, просто beve был вынужден применить свои телепатические способности :cool: .

По этому поводу есть кстати бага (http://www.autoitscript.com/trac/autoit/ticket/937).

[shyra1976]

Что не будет работать? »


проблемма втом что бы поставить и убрать галочку в Tray

если ты откроешь $x = $TRAY_CHECKED
и закроешь $x = $TRAY_UNCHECKED
то галочку в Tray не поставить