* Implemented a OnClick event in TfpgWidget.

* published OnClick and OnDoubleClick in TfpgLabel, TfpgButton, TfpgBevel.

3 files changed, 5 insertions, 1 deletions

diff --git a/src/gui/gui_bevel.pas b/src/gui/gui_bevel.pas
index faad992e..ee773819 100644
--- a/src/gui/gui_bevel.pas
+++ b/src/gui/gui_bevel.pas
@@ -51,6 +51,8 @@ type
     property    Shape: TBevelShape read FBevelShape write SetBevelShape default bsBox;
     property    Style: TBevelStyle read FBevelStyle write SetBevelStyle default bsRaised;
     property    BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clWindowBackground;
+    property    OnClick;
+    property    OnDoubleClick;
   end;
 
 
diff --git a/src/gui/gui_button.pas b/src/gui/gui_button.pas
index ee7e835d..e6973177 100644
--- a/src/gui/gui_button.pas
+++ b/src/gui/gui_button.pas
@@ -71,7 +71,6 @@ type
     procedure   HandleMouseExit; override;
     procedure   HandleMouseEnter; override;
   public
-    OnClick: TNotifyEvent;
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
     procedure   DoPush;
@@ -96,6 +95,7 @@ type
     property    ShowImage: Boolean read FShowImage write SetShowImage default True;
     property    OnMouseExit;
     property    OnMouseEnter;
+    property    OnClick;
   end;
 
 
diff --git a/src/gui/gui_label.pas b/src/gui/gui_label.pas
index efdb9bdb..6f4786b5 100644
--- a/src/gui/gui_label.pas
+++ b/src/gui/gui_label.pas
@@ -65,6 +65,8 @@ type
     property    Color;
     property    FontDesc;
     property    Text;
+    property    OnClick;
+    property    OnDoubleClick;
     property    OnMouseEnter;
     property    OnMouseExit;
     property    OnMouseDown;