From 71fd500f21f13ee9aea3137df53988467c8533d2 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:06 +0000
Subject: [PATCH] readonly flag is now only saved if user set

git-svn-id: trunk@2194 -
---
 lcl/controls.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/controls.pp b/lcl/controls.pp
index 375e13cfa6..706f6d24cd 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -593,7 +593,7 @@ type
     procedure CMVisibleChanged(var Message : TLMessage); message CM_VISIBLECHANGED;
     procedure ConstrainedResize(var MinWidth, MinHeight, MaxWidth, MaxHeight : TConstraintSize); virtual;
     function  GetPalette: HPalette; virtual;
-    procedure Resize;
+    procedure Resize; virtual;
     procedure RequestAlign; dynamic;
     procedure BeginAutoDrag; dynamic;
     procedure ChangeBounds(ALeft, ATop, AWidth, AHeight : integer); virtual;
@@ -1439,6 +1439,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.102  2003/02/26 12:44:52  mattias
+  readonly flag is now only saved if user set
+
   Revision 1.101  2003/01/01 13:01:01  mattias
   fixed setcolor for streamed components