From a0e87c84baecf26e6c4f331e37eb899c897d79b3 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 9 Feb 2002 01:48:18 +0000
Subject: [PATCH] applied patch from Karl Brandt

git-svn-id: trunk@1346 -
---
 lcl/interfaces/win32/win32int.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32int.pp b/lcl/interfaces/win32/win32int.pp
index ea801ec743..18c81d3ce9 100644
--- a/lcl/interfaces/win32/win32int.pp
+++ b/lcl/interfaces/win32/win32int.pp
@@ -109,7 +109,7 @@ Type
     { Initialize the API }
     Procedure Init; Override;
     { Get the text from control Sender and store it in variable Data }
-    Function GetText(Sender: TControl; Var Data: String): Boolean;
+    Function  GetText(Sender: TComponent; var Data: String): Boolean; override;
     { Set Label of control Sender to Data }
     Procedure SetLabel(Sender: TObject; Data: Pointer);
     { Process Lazarus message LM_Message and return an integer result }
@@ -192,6 +192,9 @@ End.
 { =============================================================================
 
   $Log$
+  Revision 1.19  2002/11/15 23:43:54  mattias
+  applied patch from Karl Brandt
+
   Revision 1.18  2002/10/27 19:59:03  lazarus
   AJ: fixed compiling