paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 19:18:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added TForm.OnDblClick (bug #7932)

Browse Source 
TrayIcon: added OnDblClick support

git-svn-id: trunk@10381 -
This commit is contained in:
vincents 2007-01-05 14:56:02 +00:00
parent f70e3daa4e
commit 3a6655a91a
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/trayicon/wsgtktrayicon.pas
View File

@ -267,6 +267,7 @@ begin
GtkForm.OnMouseMove := Self.OnMouseMove;
GtkForm.OnMouseUp := Self.OnMouseUp;
GtkForm.OnClick := Self.OnClick;
GtkForm.OnDblClick := Self.OnDblClick;
GtkForm.OnPaint := PaintForm;
GtkForm.PopupMenu := Self.PopUpMenu;
GtkForm.Hint := Self.Hint;

1
lcl/forms.pp
View File

@ -587,6 +587,7 @@ type
property OnCloseQuery;
property OnChangeBounds;
property OnCreate;
property OnDblClick;
property OnDeactivate;
property OnDestroy;
property OnDockDrop;