paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 10:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix dbgrid editor sometimes eating first char, issue #13951

Browse Source 
git-svn-id: trunk@23945 -
This commit is contained in:
jesus 2010-03-11 15:58:22 +00:00
parent 7b512697ff
commit ab668a2188
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/dbgrids.pas
View File

@ -78,7 +78,7 @@ type
TDbGridExtraOptions = set of TDbGridExtraOption;
TDbGridStatusItem = (gsUpdatingData, gsAddingAutoColumns,
gsRemovingAutoColumns, gsAutoSized);
gsRemovingAutoColumns, gsAutoSized, gsStartEditing);
TDbGridStatus = set of TDbGridStatusItem;
TDataSetScrolledEvent =
@ -764,13 +764,17 @@ begin
{$Ifdef dbgDBGrid}
DebugLn('(%s) TCustomDBDrid.OnDataSetChanged(aDataSet=%s) INIT',[name,dbgsname(ADataset)]);
{$endif}
if EditorMode then
EditorMode := False;
LayoutChanged;
if not (gsStartEditing in FGridStatus) then begin
if EditorMode then
EditorMode := False;
LayoutChanged;
end;
UpdateActive;
SelectEditor;
if (dgAlwaysShowEditor in Options) then
EditorMode := true;
if not (gsStartEditing in FGridStatus) then begin
SelectEditor;
if (dgAlwaysShowEditor in Options) then
EditorMode := true;
end;
{$Ifdef dbgDBGrid}
DebugLn('(%s) TCustomDBDrid.OnDataSetChanged(aDataSet=%s) DONE',[name,dbgsname(ADataset)]);
{$endif}
@ -2682,8 +2686,11 @@ begin
AField := GetFieldFromGridColumn(Col);
if assigned(AField) then
Result := not AField.CanModify;
if not result then
if not result then begin
Include(FGridStatus, gsStartEditing);
Result := not FDataLink.Edit;
Exclude(FGridStatus, gsStartEditing);
end;
EditingColumn(Col, not Result);
end;
end;