| View previous topic :: View next topic |
| Author |
Message |
majkinetor
Joined: 24 May 2006 Posts: 3626 Location: Belgrade
|
Posted: Wed Nov 28, 2007 4:07 pm Post subject: [module] Tray 1.0 - Tray icon controller |
|
|
_________________

Last edited by majkinetor on Fri Jan 18, 2008 3:40 pm; edited 2 times in total |
|
| Back to top |
|
 |
Andreone
Joined: 20 Jul 2007 Posts: 257 Location: Paris, France
|
Posted: Wed Nov 28, 2007 5:16 pm Post subject: |
|
|
Great Thank you very much.
It's good to know that we are not limited with the number of tray icons anymore. |
|
| Back to top |
|
 |
Dragonscloud
Joined: 16 Jul 2005 Posts: 96
|
Posted: Wed Nov 28, 2007 11:22 pm Post subject: |
|
|
I will find this useful. Thanks. Looks pretty easy to use.  _________________ “yields falsehood when preceded by its quotation” yields falsehood when preceded by its quotation. |
|
| Back to top |
|
 |
Junyx
Joined: 11 Jul 2005 Posts: 84 Location: Germany
|
Posted: Thu Nov 29, 2007 10:51 pm Post subject: |
|
|
this piece of soft is very interesting!
@majkinetor:
is there a way to attach different menus to the tray icons?
with your test script every created icon shares the same menu.
i tried different things but wasn't able to do it the right way(tm).
regards...
Junyx _________________ C.R.E.A.M. |
|
| Back to top |
|
 |
majkinetor
Joined: 24 May 2006 Posts: 3626 Location: Belgrade
|
Posted: Thu Nov 29, 2007 11:50 pm Post subject: |
|
|
Yes, something like:
| Code: | hIcon1 := Tray_Add(...)
hIcon2 := Tray_Add(...)
OnTrayIcon(wparam, lparam) {
local msg
static LBUTTONDOWN=0x201, LBUTTONUP=0x202, LBUTTONDBLCLK=203, RBUTTONDOWN=0x204, ....
msg := lparam & 0xFFFF
if (msg != RBUTTONUP)
return
if (wparam = hIcon1)
ShowMenu(menu1)
if (wparam = hIcon2)
ShowMenu(menu2)
} |
_________________
 |
|
| Back to top |
|
 |
Junyx
Joined: 11 Jul 2005 Posts: 84 Location: Germany
|
Posted: Fri Nov 30, 2007 2:45 pm Post subject: |
|
|
thanks, man!
will try it on weekend.
i thought my "solution" looked similar but didn't work out as expected... _________________ C.R.E.A.M. |
|
| Back to top |
|
 |
Joy2DWorld
Joined: 04 Dec 2006 Posts: 422 Location: Galil, Israel
|
Posted: Mon Dec 03, 2007 1:31 pm Post subject: |
|
|
interesting.
glanced at code but did not see, is there a reason is placing only lo-res version of icons ? _________________ Joyce Jamce |
|
| Back to top |
|
 |
majkinetor
Joined: 24 May 2006 Posts: 3626 Location: Belgrade
|
Posted: Mon Dec 03, 2007 2:18 pm Post subject: |
|
|
LOL... well, there is a reason.
I am totaly bored by that topic (icons in the menus) and didn't find the way back then (while developing MMenu) to 1) load shell icons in any other size then 32 or 16, 2) make them hi res.
I beleive lexikos answered both of those questions, so perhaps we can summon him here for help instead of taking it hard way and browsing his Menu function. _________________
 |
|
| Back to top |
|
 |
Junyx
Joined: 11 Jul 2005 Posts: 84 Location: Germany
|
Posted: Mon Dec 03, 2007 7:02 pm Post subject: |
|
|
| majkinetor wrote: | | Code: | hIcon1 := Tray_Add(...)
hIcon2 := Tray_Add(...)
OnTrayIcon(wparam, lparam) {
local msg
static LBUTTONDOWN=0x201, LBUTTONUP=0x202, LBUTTONDBLCLK=203, RBUTTONDOWN=0x204, ....
msg := lparam & 0xFFFF
if (msg != RBUTTONUP)
return
if (wparam = hIcon1)
ShowMenu(menu1)
if (wparam = hIcon2)
ShowMenu(menu2)
} |
|
i tried the code (merged it with your _Test.ahk) - but i won't work.
menu2 will be displayed, but not only for tray icon no. 2.
instead both tray menus will be set to menu2.
did you try your code yourself? _________________ C.R.E.A.M. |
|
| Back to top |
|
 |
majkinetor
Joined: 24 May 2006 Posts: 3626 Location: Belgrade
|
Posted: Tue Dec 04, 2007 12:12 am Post subject: |
|
|
you didn't do something correctly.
This example works:
| Code: | #NoTrayIcon
#SingleInstance force
Gui, +LastFound
hwnd := WinExist()
menus =
(LTrim
[TrayMenu1]
11
12
[TrayMenu2]
21
22
23
)
h1 := Tray_Add( hwnd, "OnTrayIcon", "res\new.ico")
h2 := Tray_Add( hwnd, "OnTrayIcon", "res\new.ico")
return
TrayMenu1:
msgbox Hi from menu1
return
TrayMenu2:
msgbox Hi from menu2
return
OnTrayIcon(wparam, lparam) {
local msg
static LBUTTONDOWN=0x201, LBUTTONUP=0x202, LBUTTONDBLCLK=203, RBUTTONDOWN=0x204, RBUTTONUP=0x205, RBUTTONDBLCLK=0x206, MBUTTONDOWN=0x207, MBUTTONUP=0x208, MBUTTONDBLCLK=0x209
msg := lparam & 0xFFFF
if (msg != RBUTTONUP)
return
if (wparam=h1)
ShowMenu(menus, "TrayMenu1")
else ShowMenu(menus, "TrayMenu2")
}
#include Tray.ahk
#include res\ShowMenu.ahk
|
_________________
 |
|
| Back to top |
|
 |
Junyx
Joined: 11 Jul 2005 Posts: 84 Location: Germany
|
Posted: Wed Dec 05, 2007 8:29 pm Post subject: |
|
|
okay, thanks. your last code worked for me.
Junyx _________________ C.R.E.A.M. |
|
| Back to top |
|
 |
majkinetor
Joined: 24 May 2006 Posts: 3626 Location: Belgrade
|
|
| Back to top |
|
 |
|