TrayIcon - tray size

[Dibo]

Hi,

I'm looking at TTrayIcon methods but don't see any function which get me some kind of tray TRect. I want know tray size. On windows it is 16x16 (if I remember correctly), gnome have 24x24 (default) and QT (KDE) have much bigger than gnome. On Gnome I can change this size in settings so I can't use OS constants. I just want know current tray size to peek correct set of images on runtime.

Regards

[fafastrungen]

Use Canvas property, for example:

trayIcon.Canvas.Width;
trayIcon.Canvas.Height;

[zeljko]

http://doc.trolltech.com/4.6/qsystemtrayicon.html#geometry

[AlistairG]

Hi how do you resize the tray icon?
Trayicon1.Icon.SetSize(TrayIcon1.Canvas.Width,TrayIcon1.Canvas.Height);         
Results in run error: invalid graphic operation.

Also, how does one define which button click for popupmenu eg Linux by default is mouseL windows is mouseR. Software is for multiplatform.
I would leave trayicon popupmenu event blank and use trayicon.onclick event and define from there, but any better suggestion appreciated.

Thanks vm
Alistair.

[rajivsoft]

Hi how do you resize the tray icon?
Trayicon1.Icon.SetSize(TrayIcon1.Canvas.Width,TrayIcon1.Canvas.Height);         
Results in run error: invalid graphic operation.

Also, how does one define which button click for popupmenu eg Linux by default is mouseL windows is mouseR. Software is for multiplatform.
I would leave trayicon popupmenu event blank and use trayicon.onclick event and define from there, but any better suggestion appreciated.

Thanks vm
Alistair.

I think you need to load different icons for different platforms, make a define conditioned load on create of main form for example.
Same thing for onclick event, better use onmousedown and conditional control button = mbleft (for ifdef darwin) or button = mbright (for ifdef win32)

[AlistairG]

I think you need to load different icons for different platforms, make a define conditioned load on create of main form for example.
Same thing for onclick event, better use onmousedown and conditional control button = mbleft (for ifdef darwin) or button = mbright (for ifdef win32)

Hi for some reason I was not notified of your reply but thanks anyway here is what I have done which seems consistent with Thunderbird and Firefox in all platforms:

Code: [Select]

procedure TSettings.TrayIcon1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button=mbright then popupmenu1.PopUp() else Settings.Visible:=not Settings.Visible;
end;
As for the tray icon size there seems to be a problem with scaling if the resource file is anything but an .ico (icon) file. Then the size cannot be adjusted eg if its a png

[Dibo]

Sorry for delay

Use Canvas property, for example:

trayIcon.Canvas.Width;
trayIcon.Canvas.Height;

This give me 0 for width and height (tested on windows)

http://doc.trolltech.com/4.6/qsystemtrayicon.html#geometry

This is only for QT