From c103f649b3cf5152281e52555faa0728b9e1c270 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sun, 16 Jul 2000 12:37:52 +0000
Subject: [PATCH]  Added OnMouseEnter, OnMouseLeave property  (code from
 christer, added by stoppok)

git-svn-id: trunk@4 -
---
 lcl/include/buttons.inc | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/lcl/include/buttons.inc b/lcl/include/buttons.inc
index 4b2d3bfbee..0f8473e14e 100644
--- a/lcl/include/buttons.inc
+++ b/lcl/include/buttons.inc
@@ -69,9 +69,43 @@ Begin
   inherited Click;
 end;
 
+{------------------------------------------------------------------------------
+  Method:  TButton.CMMouseEnter
+  Params:  None
+  Returns: Nothing
+
+  Handles the event when the button is entered
+ ------------------------------------------------------------------------------}
+procedure TButton.CMMouseEnter(var Message: TMessage); 
+begin 
+  Assert(False,'Trace:[TButton.CMMouseEnter]');
+  inherited CMMouseEnter(Message);
+  If assigned(FOnEnter) then
+    FOnEnter(Self);
+end; 
+
+{------------------------------------------------------------------------------
+  Method:  TButton.CMMouseLeave
+  Params:  None
+  Returns: Nothing
+
+  Handles the event when the button Leaves
+ ------------------------------------------------------------------------------}
+procedure TButton.CMMouseLeave(var Message: TMessage); 
+begin 
+  Assert(False,'Trace:[TButton.CMMouseLeave]');
+  inherited CMMouseLeave(Message);
+  If assigned(FOnLeave) then
+    FOnLeave(Self);
+end; 
+
 { =============================================================================
 
   $Log$
+  Revision 1.2  2000/07/16 12:37:52  lazarus
+   Added OnMouseEnter, OnMouseLeave property
+   (code from christer, added by stoppok)
+
   Revision 1.1  2000/07/13 10:28:24  michael
   + Initial import