By
MattHiggs
Like stated above, I have never really attempted to create tray icon menus simply due to the fact I find them annoying (if I want to minimize a program, I will click "minimize", but if I want to close it, I don't want it to minimize to task bar and require me to close it there), but thought I should try incorporating them into latest script to at least say that I can use them. However, I am running into a couple of snags/facts I would like to verify. 1) Since tray icons come with their own "GetMsg" function, I just want to verify that, while the continual paging of the tray menu item would still occur within some kind of loop, can the tray menu item events be declared outside and separate from the GUI events? eg.
While 1
$tmsg = TrayGetMsg ()
$nMsg = GUIGetMsg(1)
Switch $tmsg
Case $TrayMenu
Case $settings1
If TrayItemGetState ( $settings1 ) = 65 Then
IniWrite ( $path & "\infostore.ini", "Tray Settings", "No Notifications", "$TRAY_CHECKED" )
ElseIf TrayItemGetState ( $settings1 ) = 68 Then
IniWrite ( $path & "\infostore.ini", "Tray Settings", "No Notifications", "$TRAY_UNCHECKED" )
Else
EndIf
Case $settings2
If TrayItemGetState ( $settings2 ) = 65 Then
IniWrite ( $path & "\infostore.ini", "Tray Settings", "On top", "$TRAY_CHECKED" )
GUISetStyle ( BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP), $WS_EX_TOPMOST, $Form1_1 )
GUISetStyle ( BitOR($GUI_SS_DEFAULT_GUI, $DS_SETFOREGROUND), $WS_EX_TOPMOST, $Form2 )
GUISetStyle ( -1, $WS_EX_TOPMOST, $Form3 )
GUISetStyle ( BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP), BitOR($WS_EX_OVERLAPPEDWINDOW, $WS_EX_WINDOWEDGE, $WS_EX_TOPMOST), $Form3_1 )
GUISetStyle ( -1, $WS_EX_TOPMOST, $Form4 )
GUISetStyle ( -1, $WS_EX_TOPMOST, $Form5 )
ElseIf TrayItemGetState ( $settings2 ) = 68 Then
IniWrite ( $path & "\infostore.ini", "Tray Settings", "On top", "$TRAY_UNCHECKED" )
GUISetStyle ( BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP), 0, $Form1_1 )
GUISetStyle ( $GUI_SS_DEFAULT_GUI, 0, $Form2 )
GUISetStyle ( $GUI_SS_DEFAULT_GUI, 0, $Form3 )
GUISetStyle ( BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP), BitOR($WS_EX_OVERLAPPEDWINDOW, $WS_EX_WINDOWEDGE), $Form3_1 )
GUISetStyle ( $GUI_SS_DEFAULT_GUI, 0, $Form4 )
GUISetStyle ( $GUI_SS_DEFAULT_GUI, 0, $Form5 )
Else
EndIf
EndSwitch
Switch $nMsg[1]
Case $Form1_1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
;ProcessClose ( "pastebutt.exe" )
;ProcessClose ( "PasteButtonhk.exe" )
Exit
EndSwitch
EndSwitch
Wend
My second question also involves the above code, but specifically the "Ini" functions which attempt to read a "tray" state flag from an Ini file. The following is code located at very beginning of script:
Const $path = @AppDataDir & "\filler"
Opt ( "TrayMenuMode", 1 )
OnAutoItExitRegister ( "refresh" )
$nonote = False
$TrayMenu = TrayCreateMenu ( "Settings" )
$settings1 = TrayCreateItem ( "Turn off notifications", $TrayMenu )
TrayItemSetState ( -1, IniRead ( $path & "\infostore.ini", "Tray Settings", "No Notifications", "$TRAY_UNCHECKED" ) )
$settings2 = TrayCreateItem ( "Keep Window on top", $TrayMenu )
TrayItemSetState ( -1, IniRead ( $path & "\infostore.ini", "Tray Settings", "On top", "$TRAY_UNCHECKED" ) )
So the idea is that whenever the user "checks" one of the tray icon menu options, its current "state" will be input into the "ini" file, so that the state of the particular tray menu item will be in the same state as the user left it when the script is launched next. However, this is not occurring: the ini file contains the "state" flag like it should, but the tray menu item remains unchecked at startup. Furthermore, the checking or unchecking of "setting1" is not being recognized, as the windows' extended styles do not obtain the "Topmost" flag like they should had it worked. I get the feeling I'm not getting the "states" of the tray menu items correct. Any advice?
By Queener
By MattHiggs
By Chimaera
By jvds
By kcvinu