pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Auto Set MaxLength in TJDBLabeledEdit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2062 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-10-05 08:16:12 +00:00
parent 12bd7eecd9
commit 2565275b1b
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/jujiboutils/src/jdblabelededit.pas
View File

@@ -176,6 +176,10 @@ end;
procedure TJDBLabeledEdit.SetDataField(const Value: string); procedure TJDBLabeledEdit.SetDataField(const Value: string);
begin begin
FDataLink.FieldName := Value; FDataLink.FieldName := Value;
if FDataLink.Field <> nil then
MaxLength := FDataLink.Field.Size
else
MaxLength := 0;
end; end;
procedure TJDBLabeledEdit.SetDataSource(Value: TDataSource); procedure TJDBLabeledEdit.SetDataSource(Value: TDataSource);