From 3a6655a91a95f4b2cd1b02516803faefde73e2bf Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 5 Jan 2007 14:56:02 +0000
Subject: [PATCH] LCL: added TForm.OnDblClick (bug #7932) TrayIcon: added
 OnDblClick support

git-svn-id: trunk@10381 -
---
 components/trayicon/wsgtktrayicon.pas | 1 +
 lcl/forms.pp                          | 1 +
 2 files changed, 2 insertions(+)

diff --git a/components/trayicon/wsgtktrayicon.pas b/components/trayicon/wsgtktrayicon.pas
index 45b0d1e248..17ab50ba81 100644
--- a/components/trayicon/wsgtktrayicon.pas
+++ b/components/trayicon/wsgtktrayicon.pas
@@ -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;
diff --git a/lcl/forms.pp b/lcl/forms.pp
index d42a106acd..d5a4c35980 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -587,6 +587,7 @@ type
     property OnCloseQuery;
     property OnChangeBounds;
     property OnCreate;
+    property OnDblClick;
     property OnDeactivate;
     property OnDestroy;
     property OnDockDrop;