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

LCL: fix dbgrid that corrupts an editing field which does't allow more changes, issue #33734

Browse Source 
git-svn-id: trunk@58010 -
This commit is contained in:
jesus 2018-05-23 03:49:41 +00:00
parent 3d7b93845d
commit de467a095c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/dbgrids.pas
View File

@ -3512,15 +3512,18 @@ begin
else
result := true; // field is nil so it's readonly
EditingColumn(Col, not Result);
end;
end;
procedure TCustomDBGrid.EditorTextChanged(const aCol, aRow: Integer;
const aText: string);
var
isReadOnly: Boolean;
begin
if not EditorIsReadonly then
isReadOnly := EditorIsReadonly;
if not isReadOnly then
SetEditText(aCol, aRow, aText);
EditingColumn(Col, not isReadOnly);
end;
procedure TCustomDBGrid.HeaderSized(IsColumn: Boolean; Index: Integer);