From cc648ec617cd4789b0d671d92a4fe3187bed22e9 Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Fri, 18 Mar 2005 01:18:44 +0000
Subject: [PATCH] * Delphi compat, TButton.Click is public

git-svn-id: trunk@6978 -
---
 lcl/buttons.pp          |  5 +++++
 lcl/include/buttons.inc | 12 ++++++++++++
 2 files changed, 17 insertions(+)

diff --git a/lcl/buttons.pp b/lcl/buttons.pp
index 0d11055296..67d0d3df16 100644
--- a/lcl/buttons.pp
+++ b/lcl/buttons.pp
@@ -97,6 +97,8 @@ type
   { TButton }
   
   TButton = class(TCustomButton)
+  public
+    procedure Click; override;
   published
     property Action;
     property Align;
@@ -397,6 +399,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.92  2005/03/18 01:18:44  marc
+  * Delphi compat, TButton.Click is public
+
   Revision 1.91  2005/03/07 00:52:51  mattias
   various Delphi compatibilities  from C Western
 
diff --git a/lcl/include/buttons.inc b/lcl/include/buttons.inc
index 9457dc192f..6190ec4790 100644
--- a/lcl/include/buttons.inc
+++ b/lcl/include/buttons.inc
@@ -222,9 +222,21 @@ begin
   Result:=false;
 end;
 
+
+{ TButton }
+
+procedure TButton.Click;
+begin
+  inherited Click;
+end;
+
+
 { =============================================================================
 
   $Log$
+  Revision 1.42  2005/03/18 01:18:44  marc
+  * Delphi compat, TButton.Click is public
+
   Revision 1.41  2005/02/21 13:54:26  mattias
   added navigation key check for up/down already handled