paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 06:40:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: implemented OnMouseMove() for TTrayIcon. Patch by AlexL. issue #23217

Browse Source 
git-svn-id: trunk@46221 -
This commit is contained in:
zeljko 2014-09-14 12:43:05 +00:00
parent b85b9bb07e
commit 9b97b7965b
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/gtk2/gtk2trayicon.inc
View File

@ -361,6 +361,16 @@ begin
end;
end;
function query_tooltip_cb_statusicon({%H-}status_icon: PGtkStatusIcon;
x: guint; y: guint; {%H-}keyboard_mode: gboolean; {%H-}tooltip: gpointer{PGtkTooltip}; user_data: gpointer): gboolean; cdecl;
var
vwsTrayIcon: TCustomTrayIcon absolute user_data;
begin
Result := FALSE;
if Assigned(vwsTrayIcon.OnMouseMove) then
vwsTrayIcon.OnMouseMove(vwsTrayIcon, [], x, y);
end;
{$endif}
constructor TGtk2TrayIconHandle.Create(const wsTrayIcon: TCustomTrayIcon);
@ -374,12 +384,14 @@ begin
FStatusIcon := gtk_status_icon_new();
gtk_status_icon_set_from_pixbuf(FStatusIcon, {%H-}PGdkPixbuf(FTrayIcon.Icon.Handle));
gtk_status_icon_set_tooltip(FStatusIcon, PChar(FTrayIcon.Hint));
g_object_set(PGObject(FStatusIcon), 'has-tooltip', TRUE);
fEmbedded := gtk_status_icon_is_embedded(FStatusIcon);
g_signal_connect(FStatusIcon, 'activate', TGCallback(@activate_cb_statusicon), fTrayIcon);
g_signal_connect(FStatusIcon, 'popup-menu', TGCallback(@popup_cb_statusicon), fTrayIcon);
g_signal_connect(FStatusIcon, 'button-press-event', TGCallback(@button_press_cb_statusicon), fTrayIcon);
g_signal_connect(FStatusIcon, 'button-release-event', TGCallback(@button_release_cb_statusicon), fTrayIcon);
g_signal_connect(FStatusIcon, 'query-tooltip', TGCallback(@query_tooltip_cb_statusicon), fTrayIcon);
end
else
{$endif}
@ -403,8 +415,8 @@ begin
with wsTrayIcon do
begin
DrawingArea := gtk_image_new_from_pixbuf({%H-}PGdkPixbuf(Icon.Handle));
gtk_widget_show(DrawingArea);
gtk_container_add(GTK_CONTAINER(plug), DrawingArea);
gtk_widget_show(DrawingArea);
end;
end;
end;
@ -474,6 +486,7 @@ begin
begin
gtk_status_icon_set_from_pixbuf(FStatusIcon, NewPixBuf);
gtk_status_icon_set_tooltip(FStatusIcon, PChar(NewHint));
g_object_set(PGObject(FStatusIcon), 'has-tooltip', TRUE);
end
else
{$endif}