Auto Set MaxLength in TJDBLabeledEdit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2062 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-10-05 08:16:12 +00:00
parent 12bd7eecd9
commit 2565275b1b
1 changed files with 4 additions and 0 deletions
--- 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);