GUI/Tray Menu with icons and colors

[nickston]

Update: 21.03.2008

- Added: _TrayIconSetState() modes 4 and 8 for flashing and flashstopping of tray icons

If $nState > 2 And $nState < 1 Then Return 0 ; Only 1 and 2 are possible

It's very strange string! Do you think so?

_TrayIconDelete -This function don't destroy Icon in tray

[nickston]

Update: 21.03.2008

Please let me know about problems and suggestions.

@AutoItUnicode- ERROR: undefined macro.

[nickston]

if icon file is "shell32.dll" and icon ids are 244 and 147 then GUICtrlCreateIcon is work correctiy at that time _TrayItemSetIcon is wokr a few in a different way.

How this bug can be fixed?

[nickston]

I wish the tray icon will show only when I what but While Icon is creating it's shown in the tray.

[Holger]

Thanks nickston for feedback

Yeah, I think more than 2 eyes are always see more than just 2

Greets

Holger

P.S: next update I will add a small readme.txt with all of the possible commands.

Edited March 22, 2008 by Holger

[nickston]

Thanks nickston for feedback

Yeah, I think more than 2 eyes are always see more than just 2

Greets

Holger

P.S: next update I will add a small readme.txt with all of the possible commands.

In fact, I obtained all functions which I will need for my programm, they all work correctly. Big THANKS for YOU. And special Thanks for rebuild you script so quickly.

I have tested these functions:

_TrayIconCreate

_TrayCreateItem

_TrayItemSetIcon

_trayiconsetstate

_TrayIconSetToolTip

_TrayDeleteItem

_TrayIconDelete

[MrCreatoR]

If $nState > 2 And $nState < 1 Then Return 0 ; Only 1 and 2 are possible

It's very strange string! Do you think so?

Should be «If $nState > 2 Or $nState < 1 Then ....» i guess?

@Holger

Thanks for the update.

I found a little bug too ...

This:

If @AutoitVersion <= "3.2.10.0" Then
    $bUnicode = @Unicode
Else
    $bUnicode = @AutoItUnicode
EndIf

doesn't work well (on 3.2.10.0), it should be something like this i think:

If Number(StringReplace(@AutoitVersion, ".", "")) <= 32100 Then
    $bUnicode = @Unicode
Else
    $bUnicode = @AutoItUnicode
EndIf

[Holger]

Update 23.03.2008:

!!! Warning: Please update all your scripts and add after _TrayIconCreate() the command _TrayIconSetState() - otherwise you will not see any tray icons!!!

Also update your icon numbers like for GUI icons

- Fixed: some things (thanks to nickston)

- Changed: _TrayIconCreate() do not show automatically the icon

- Changed: icon behaviour now more similar to GUI icons (I hope)

- Added: command.txt

- Removed: unicode macro

P.S. if someone needs a Win95/98 version then please let me know (cause I removed the ANSI spport, it's only unicode now).

Edited March 23, 2008 by Holger

[nickston]

Should be «If $nState > 2 Or $nState < 1 Then ....» i guess?

None, The Tray icon can have some more state (4 and 8 for flash and flashstopping of tray icons) but this string can only 1 or 2.

I found a little bug too ...

This:

If @AutoitVersion <= "3.2.10.0" Then
    $bUnicode = @Unicode
Else
    $bUnicode = @AutoItUnicode
EndIf

doesn't work well (on 3.2.10.0), it should be something like this i think:

If Number(StringReplace(@AutoitVersion, ".", "")) <= 32100 Then
    $bUnicode = @Unicode
Else
    $bUnicode = @AutoItUnicode
EndIf

What do you think about this: @AutoItUnicode- ERROR: undefined macro.

[nickston]

Update 23.03.2008:

!!! Warning: Please update all your scripts and add after _TrayIconCreate() the command _TrayIconSetState() - otherwise you will not see any tray icons!!!

Also update your icon numbers like for GUI icons

- Fixed: some things (thanks to nickston)

- Changed: _TrayIconCreate() do not show automatically the icon

- Changed: icon behaviour now more similar to GUI icons (I hope)

- Added: command.txt

- Removed: unicode macro

Thanks to Holger.

[nickston]

[- Changed: icon behaviour now more similar to GUI icons (I hope)

if file of icons is "shell32.dll" and icon ids are 244 and 147 then now icon looks right

but 23 and -239 have stop working right, ealier it work.

[Merovingian]

This is just FANTASTIC timing , Holger *Grinz* , I was just developing a tray application, when bang, you posted an update to your modern menu just today.

My hats off to you. Great Work

[MrCreatoR]

What do you think about this: @AutoItUnicode- ERROR: undefined macro.

This macro was added in the latest beta. But strangly it doesn't mentioned in the changelog.

[Aassdd]

Thanks a lot, very nice.

Is there a problem with colors? Why do I get blue color with _SetMenuBkColor(0xC88C28). [0xC88C28] is brown.

[Holger]

The functions use BGR-values, so just modify your value to something like: 0x288CC8.

For the next version I will change that with an included command to change the color mode, which is by default in BGR-mode (to not break old scripts).

[Aassdd]

Thank you. I found this too if anyone needs it http://www.sudop.cz/kotor/rgb2bgr/rgb2bgr.php.

[nickston]

if file of icons is "shell32.dll" and icon ids are 244 and 147 then now icon looks right

but 23 and -239 have stop working right, ealier it work.

Oops, It's my crude error, bad numbers which have work right with old ModernMenu, but MM is correct now and I must shall correcting my wrong numbers.

[redsleeves]

Wow!

Very nice work!

Thank you!

[Darc50]

I have been playing around with this and ran into a problem with the _TrayDeleteItem function. I'm not sure if it's a bug or just something dumb that I'm doing. The problem has to do with deleting a menu. I can delete items fine until I try to delete a menu. After deleting a menu the script will no longer be able to delete an item and I can no longer exit the tray menu by clicking on Exit. If you look at the section of code below you can see what I'm talking about. The entire sample script is also attached. Any help would be greatly appreciated.

Case $TrayDelete

; This order deletes the three objects but I can't exit the menu.

_TrayDeleteItem($TrayRun)

_TrayDeleteItem($TrayDelete)

_TrayDeleteItem($MenuMenu)

; This order deletes the "Menu" menu but not the other two and I can't exit the menu.

_TrayDeleteItem($MenuMenu)

_TrayDeleteItem($TrayRun)

_TrayDeleteItem($TrayDelete)

Sample Tray With Icons-OnEvent (_TrayDeleteItem Problem).au3

expandcollapse popup

#include <GUIConstants.au3>
#include "ModernMenuRaw.au3"

#NoTrayIcon

Opt("GUIOnEventMode", 1)

$nTrayIcon1     = _TrayIconCreate("Tools", "shell32.dll", -13)
_TrayIconSetClick(-1, 16)
_TrayIconSetState()

$MenuMenu       = _TrayCreateMenu(-1, "Menu")
_TrayItemSetIcon(-1, "", 0)

_TrayCreateItem(-1, "")
_TrayItemSetIcon(-1, "", 0)

$TrayAdvanced   = _TrayCreateItem(-1, "Modern", $MenuMenu, -1, 1)
_TrayItemSetIcon(-1, "", 0)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1, "MenuEvents")

$TraySimple     = _TrayCreateItem(-1, "Classic", $MenuMenu, -1, 1)
_TrayItemSetIcon(-1, "", 0)
GUICtrlSetOnEvent(-1, "MenuEvents")

$MenuDrives     = _TrayCreateMenu(-1, "Driveinfo")
_TrayItemSetIcon(-1, "shell32.dll", -9)

_TrayCreateItem(-1, "")
_TrayItemSetIcon(-1, "", 0)

$MenuTools      = _TrayCreateMenu(-1, "Tools")
_TrayItemSetIcon(-1, "shell32.dll", -20)
_TrayItemSetSelIcon(-1, "shell32.dll", -44)

$TrayCalc       = _TrayCreateItem(-1, "Calculator", $MenuTools)
_TrayItemSetIcon(-1, "calc.exe", 0)
GUICtrlSetOnEvent(-1, "MenuEvents")

$TrayCMD        = _TrayCreateItem(-1, "CMD", $MenuTools)
_TrayItemSetIcon(-1, "cmd.exe", 0)
GUICtrlSetOnEvent(-1, "MenuEvents")

$TrayNotepad    = _TrayCreateItem(-1, "Notepad", $MenuTools)
_TrayItemSetIcon(-1, "notepad.exe", 0)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "MenuEvents")

$TrayRegedit    = _TrayCreateItem(-1, "Regedit", $MenuTools)
_TrayItemSetIcon(-1, "regedit.exe", 0)
GUICtrlSetOnEvent(-1, "MenuEvents")

_TrayCreateItem(-1, "")
_TrayItemSetIcon(-1, "", 0)

$TrayDelete     = _TrayCreateItem(-1, "Delete Menu and Run Items")
GUICtrlSetState(-1, $GUI_DEFBUTTON)
GUICtrlSetOnEvent(-1, "MenuEvents")
_TrayItemSetIcon(-1, "shell32.dll", -24)

$TrayRun        = _TrayCreateItem(-1, "Run...")
_TrayItemSetIcon(-1, "shell32.dll", -25)
GUICtrlSetOnEvent(-1, "MenuEvents")

_TrayCreateItem(-1, "")
_TrayItemSetIcon(-1, "", 0)

$TrayExit       = _TrayCreateItem(-1, "Exit")
_TrayItemSetIcon(-1, "shell32.dll", -28)
GUICtrlSetOnEvent(-1, "MenuEvents")

_TrayCreateItem(-1, "Free Space:", $MenuDrives)
_TrayCreateItem(-1, "", $MenuDrives)

$arDrives = DriveGetDrive("FIXED")
For $i = 1 To $arDrives[0]
    _TrayCreateItem(-1, StringUpper($arDrives[$i]) & " -> " & _
        StringFormat("%.2f GB", DriveSpaceFree($arDrives[$i])), $MenuDrives)
Next


While 1
    Sleep(10)   
WEnd


Exit


Func MenuEvents()
    Local $Msg = @GUI_CtrlID
    
    Switch $Msg
        Case $GUI_EVENT_CLOSE, $TrayExit
            _TrayIconDelete($nTrayIcon1)
            Exit
                
        Case $TrayAdvanced, $TraySimple
            If BitAnd(GUICtrlRead($TraySimple), $GUI_CHECKED) Then
                GUICtrlSetState($TraySimple, $GUI_UNCHECKED)
                GUICtrlSetState($TrayAdvanced, $GUI_CHECKED)
                $bUseAdvTrayMenu = TRUE
            Else
                GUICtrlSetState($TraySimple, $GUI_CHECKED)
                GUICtrlSetState($TrayAdvanced, $GUI_UNCHECKED)
                $bUseAdvTrayMenu = FALSE
            EndIf
            
        Case $TrayDelete
        ; This order deletes the three objects but I can't exit the menu.
            _TrayDeleteItem($TrayRun)
            _TrayDeleteItem($TrayDelete)
            _TrayDeleteItem($MenuMenu)
            
        ; This order deletes the "Menu" menu but not the other two and I can't exit the menu.
;           _TrayDeleteItem($MenuMenu)
;           _TrayDeleteItem($TrayRun)
;           _TrayDeleteItem($TrayDelete)
            
        Case $TrayCalc
            ShellExecute("calc.exe")
            
        Case $TrayCMD
            ShellExecute("cmd.exe")
            
        Case $TrayNotepad
            ShellExecute("notepad.exe")
            
        Case $TrayRegedit
            ShellExecute("regedit.exe")     

        Case $TrayRun
            Send("#r")      
    EndSwitch
EndFunc

Thanks in advance.

[Holger]

There is a bigger problem in deleting items from a contextmenu/dropdown menu with using "GUICtrlDelete()" which I use internally in the script.

I think at the beginning of the GUI menu stuff and context menus I did a mistake

At the moment I'm still searching for this logical problem.

Holger