From 2cf465a4ecd98b3d61c34ab4c07ea87f4adb828c Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Wed, 25 Aug 2004 20:16:12 +0000
Subject: [PATCH] * fixed infinite for maxlength

git-svn-id: trunk@5854 -
---
 lcl/include/customedit.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/include/customedit.inc b/lcl/include/customedit.inc
index 224178446f..9c12575162 100644
--- a/lcl/include/customedit.inc
+++ b/lcl/include/customedit.inc
@@ -310,7 +310,7 @@ end;
  ------------------------------------------------------------------------------}
 procedure TCustomEdit.RealSetText(const Value: TCaption);
 begin
-  if (MaxLength >= 0) and (Length(Value) > MaxLength) then
+  if (MaxLength > 0) and (Length(Value) > MaxLength) then
     inherited RealSetText(Copy(Value, 1, MaxLength))
   else
     inherited RealSetText(Value);
@@ -380,6 +380,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.31  2004/08/25 20:16:12  marc
+  * fixed infinite for maxlength
+
   Revision 1.30  2004/07/07 22:26:58  mattias
   fixed showing grabers for boundless components