From 48414330a4c56d5492546c47c2244e7b22ea8918 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 18 Sep 2003 12:17:25 +0000
Subject: [PATCH] fixed is checks for TCustomXXX controls

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

diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 55f665095b..791d878fad 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -420,7 +420,7 @@ Begin
       if (Data <> nil)
       and (PChar(Data)^ <> #0)
       then begin
-        S := (Sender as TMemo).Text + PChar(Data);
+        S := (Sender as TCustomMemo).Text + PChar(Data);
         SetLabel(Sender, PChar(S));
       end;
     End;
@@ -2792,6 +2792,9 @@ End;
 
 {
   $Log$
+  Revision 1.110  2003/09/18 12:17:25  mattias
+  fixed is checks for TCustomXXX controls
+
   Revision 1.109  2003/09/18 12:15:01  mattias
   fixed is checks for TCustomXXX controls