From 2565275b1b6ca92477aa8914fb6aae2d42e824b8 Mon Sep 17 00:00:00 2001
From: jujibo <jujibo@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 5 Oct 2011 08:16:12 +0000
Subject: [PATCH] Auto Set MaxLength in TJDBLabeledEdit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2062 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/jujiboutils/src/jdblabelededit.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/components/jujiboutils/src/jdblabelededit.pas b/components/jujiboutils/src/jdblabelededit.pas
index b08c9675a..037ac1248 100644
--- a/components/jujiboutils/src/jdblabelededit.pas
+++ b/components/jujiboutils/src/jdblabelededit.pas
@@ -176,6 +176,10 @@ end;
 procedure TJDBLabeledEdit.SetDataField(const Value: string);
 begin
   FDataLink.FieldName := Value;
+  if FDataLink.Field <> nil then
+    MaxLength := FDataLink.Field.Size
+  else
+    MaxLength := 0;
 end;
 
 procedure TJDBLabeledEdit.SetDataSource(Value: TDataSource);