paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 11:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, dbgrid, adjust editor maxlength if field is string type, issue #20406

Browse Source 
git-svn-id: trunk@32888 -
This commit is contained in:
jesus 2011-10-14 18:56:11 +00:00
parent 8e855bfacf
commit 84443e864a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dbgrids.pas
View File

@ -2318,6 +2318,10 @@ begin
{$endif}
if (FDatalink<>nil) and FDatalink.Active then begin
inherited SelectEditor;
if (Editor is TCustomEdit) and (SelectedField is TStringField) then
TCustomEdit(Editor).MaxLength := SelectedField.Size;
if Assigned(OnSelectEditor) then begin
aEditor:=Editor;
OnSelectEditor(Self, SelectedColumn, aEditor);