| 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 |
|
|
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
