paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 21:38:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: On TDBEdit.DataChange only set the MaxLength to Field.Size if is a String field and if MaxLength = 0 (Delphi compatible), , fixes bug #15443

Browse Source 
git-svn-id: trunk@23321 -
This commit is contained in:
blikblum 2009-12-30 12:02:16 +00:00
parent 61f6219bdd
commit defbc455bc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/dbedit.inc
View File

@ -40,7 +40,8 @@ begin
end else
//otherwise display the pretified/formated text since we can't
EditText := FDataLink.Field.DisplayText;
MaxLength := FDatalink.Field.Size;
if (FDataLink.Field.DataType = ftString) and (MaxLength = 0) then
MaxLength := FDatalink.Field.Size;
end
else begin
//todo: uncomment this when TField implements EditMask