GUI/Tray Menu with icons and colors

[Holger]

Update 28.07.2007

- Fixed: wrong call of function CreateFont()

- Changed: included samples to demonstrate using of icon clicks

Thanks to you SleepyExtreme, this was again a merging error (hopefully this was the last one)

Greets Holger

Edited July 28, 2007 by Holger

[SleepyXtreme]

new problem:

Func TrayedWindows($tID, $tMsg)
    for $x = 1 to $trayCounter
        $windowtitlefortray = IniRead(@ScriptDir & "\Emergency Windows.ini", "Open Window List", $x, "NotFound")
    Switch $tID     
        Case $nTrayIcon[$x]
            Switch $tMsg
                Case $WM_LBUTTONDOWN
                    WinSetState(HWnd($windowtitlefortray),"",@SW_SHOW)
                    WinActivate(HWnd($windowtitlefortray), "")
                    _TrayIconDelete($nTrayIcon[$x])
            EndSwitch
    EndSwitch
Next
EndFunc

Obfuscator screws this up so it doesn't work. I've narrowed the problem down to this section of my script.

Obfuscator says:

>### current Func: TrayNotifyIcon

ModernMenu.au3(316,1) Warning for line:Call($TRAYNOTIFYIDS[$nID][4], $nID, $lParam)

Edited July 29, 2007 by SleepyXtreme

[Holger]

OK, but there is no problem in the line.

I can't see anything.

So it must be a problem of this 'Obfuscator' whoever it wrote.

I have no idea why it shows a warning for this line...

So long.

Holger

[SleepyXtreme]

damn, if i can't obfuscate my script i can't use this

ppl will steal my code!

[Holger]

Update 03.08.2007

- Fixed: error in _TrayIconDelete() and new icon creation

- Added: additional parameter to _TrayIconCreate(ToolTip, IconFile, IconID, Callback, Msg, hIcon) to use existing icon handles

I added also the sample_Win2Tray: 'moves' all minimized windows to the tray

Ok, there are maybe some better ways to do this and it's not really finished but maybe it will help you do to/understand some things

Please see the 1st post.

So long...

Holger

[Sunaj]

Heh, you are really rolling with this lib - hope it'll be considered for inclusion in the AutoIt package once it has stabilized completely! Talking standards, I recently noticed that my accelerator keys in the menu's don't work any longer once they are owner drawn - would it be possible to rectify this?

Here's the an example line of how one could allow "1-9" to activate the various items in the menu once it has been opened:

_GUICtrlODMenuItemSetText($hOption, "&" & "1" & ". " & "Options")

The "&" item activates the accel.key behavior in the normal AutoIt menu (found out by accident, don't know whether it is mentioned in docs anywhere) but only underlines the item once the menu is drawn with "GUI/Tray Menu".

Regards,

Sunaj

Edit: typo

Update 03.08.2007

- Fixed: error in _TrayIconDelete() and new icon creation

- Added: additional parameter to _TrayIconCreate(ToolTip, IconFile, IconID, Callback, Msg, hIcon) to use existing icon handles

I added also the sample_Win2Tray: 'moves' all minimized windows to the tray

Ok, there are maybe some better ways to do this and it's not really finished but maybe it will help you do to/understand some things

Please see the 1st post.

So long...

Holger

Edited August 7, 2007 by Sunaj

[MISIIM]

It doesn't like the Tab character. They are displayed as "".

[Holger]

Yeah, this is a missing feature.

Real accelarators are/were never buildin Autoit (I mean no HotKeys) so I also didn't check for them.

I will check the next days in my very old C++ source (which was a Test-Autoit) how I implemented the check for Tabs.

I think it will be just some StringSplit-ting, some modifications to the text width calculation and an additional DrawText() for the accel. string...

Greets

Holger

[GoogleDude]

Can I use TrayItemDelete to remove a Menu Item that was created with _TrayCreateItem? Or is there a _TrayItemDelete?

By the way, Nice UDF, I dig it. I will even dig it more when I get my script migrated over to use it.

I put a sample/test below! Am I missing something? Im sure I am.

#NoTrayIcon
#Include <Constants.au3>
#include <GUIConstants.au3>
#include 'ModernMenu.au3'

Global $var1
Global $var2

$TrayIcon = _TrayIconCreate ("Test Tray Icon", "shell32.dll", 8)
_TrayItemSetIcon (-1, "shell32.dll", 8)

$TestMenu = _TrayCreateMenu (-1, "Test Menu")


$var1 = _TrayCreateItem (-1, 'This should be deleted!', $TestMenu, -1)
MsgBox(1024,"","")
TrayItemDelete($var1)
$var2 = _TrayCreateItem (-1, 'This should not be deleted!', $TestMenu, -1)
MsgBox(1024,"","")
TrayItemDelete($var2)
_TrayIconDelete ($TrayIcon)
Exit

GoogleDude?

Edited September 14, 2007 by GoogleDude

[GoogleDude]

Bump!

[sandman]

@Holger: How did you get those unicode characters in your tray menu screenshot?? (the first post here)

Edited October 6, 2007 by sandman

[Holger]

Update 07.12.2007

- Fixed: now works with 3.2.10.0 and 3.2.8.1

- Changed: all stuff in only 1 ZIP file

Please see the 1st post for new file.

Greets

Holger

[GEOSoft]

Update 07.12.2007

- Fixed: now works with 3.2.10.0 and 3.2.8.1

- Changed: all stuff in only 1 ZIP file

Please see the 1st post for new file.

Greets

Holger

Thanks Holger;

Good to see you around again. I mean posting as Holger

[MrCreatoR]

Hi Holger,

I have one small problem - it seems that we can not set text for menu item with tabs characters...

I would like to set an item to display hotkey at the right side of menu item, but tab is ignored:

_GUICtrlCreateODMenuitem("My Item " & @TAB & "(F1)", $Menu)

Is there any way to fix it?

Thanks.

[GEOSoft]

Hi Holger,

I have one small problem - it seems that we can not set text for menu item with tabs characters...

I would like to set an item to display hotkey at the right side of menu item, but tab is ignored:

_GUICtrlCreateODMenuitem("My Item " & @TAB & "(F1)", $Menu)

Is there any way to fix it?

Thanks.

Have you tried

_GUICtrlCreateODMenuitem("My Item" & Chr(32) & Chr(9) & "(F1)", $Menu)

Not sure if tabs are even allowed on menu items but I would think they are.

[MrCreatoR]

Have you tried

No, thanks, but it's not working eather

Not sure if tabs are even allowed on menu items

Sure they do ... see this example:

#include <GuiConstants.au3>

$GUI = GUICreate("Test Script", 300, 200)

$Menu = GUICtrlCreateMenu("Menu")

GUICtrlCreateMenuItem("Menu Item 1" & @TAB & "(F1)", $Menu)
GUICtrlCreateMenuItem("Menu Item 2" & @TAB & "(F2)", $Menu)
GUICtrlCreateMenuItem("Menu Item 3" & @TAB & "(F3)", $Menu)
GUICtrlCreateMenuItem("Menu Item 4 with long text" & @TAB & "(F4)", $Menu)

GUISetState(@SW_SHOW, $GUI)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

As you can see, all hotkey values are tabbed (aligen) to the right, even if one text item is longer then the others.

I can not do the same with menu items in ModernMenu.au3

[MrCreatoR]

Any one?

I guess it something inside the drawing item functions, but i have no idea where to look, they all connected, and there is so many of them ...

[Holger]

Update 12.01.2008:

- Changed: 'local' Dll calls to global DllOpen to speedup (some virusscanners sometimes slowdown the process cause of opening these Dll's again and again)

- Added: Using of @Tab for accelerator showing/drawing

If there are any problems (cause maybe of the internal changes) just please let me know.

Greets

Holger

[GEOSoft]

Update 12.01.2008:

- Changed: 'local' Dll calls to global DllOpen to speedup (some virusscanners sometimes slowdown the process cause of opening these Dll's again and again)

- Added: Using of @Tab for accelerator showing/drawing

If there are any problems (cause maybe of the internal changes) just please let me know.

Greets

Holger

Nicely done Holger. I knew we could count on you.

[MrCreatoR]

Holger

Thank you very much! it was quicker then i thouth it would