paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 20:13:50 +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 else
result := true; // field is nil so it's readonly result := true; // field is nil so it's readonly
EditingColumn(Col, not Result);
end; end;
end; end;
procedure TCustomDBGrid.EditorTextChanged(const aCol, aRow: Integer; procedure TCustomDBGrid.EditorTextChanged(const aCol, aRow: Integer;
const aText: string); const aText: string);
var
isReadOnly: Boolean;
begin begin
if not EditorIsReadonly then isReadOnly := EditorIsReadonly;
if not isReadOnly then
SetEditText(aCol, aRow, aText); SetEditText(aCol, aRow, aText);
EditingColumn(Col, not isReadOnly);
end; end;
procedure TCustomDBGrid.HeaderSized(IsColumn: Boolean; Index: Integer); procedure TCustomDBGrid.HeaderSized(IsColumn: Boolean; Index: Integer);