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

LCL, grids: check editor unlock count, fix issue #26191

Browse Source 
git-svn-id: trunk@46157 -
This commit is contained in:
jesus 2014-09-08 05:28:02 +00:00
parent 97bd4fbe07
commit 380a2eecbc
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/grids.pas
View File

@ -7093,7 +7093,10 @@ end;
procedure TCustomGrid.UnLockEditor; procedure TCustomGrid.UnLockEditor;
begin begin
Dec(FEditorHidingCount); if FEDitorHidingCount>0 then
Dec(FEditorHidingCount)
else
DebugLn('WARNING: unpaired Unlock Editor');
{$ifdef dbgGrid}DebugLn('==< LockEditor: ', dbgs(FEditorHidingCount)); {$endif} {$ifdef dbgGrid}DebugLn('==< LockEditor: ', dbgs(FEditorHidingCount)); {$endif}
end; end;