From 380a2eecbc16f4e496682852cb15e71fdc0fdf8a Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Mon, 8 Sep 2014 05:28:02 +0000
Subject: [PATCH] LCL, grids: check editor unlock count, fix issue #26191

git-svn-id: trunk@46157 -
---
 lcl/grids.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index b8b25fa2f5..0cabf980ed 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -7093,7 +7093,10 @@ end;
 
 procedure TCustomGrid.UnLockEditor;
 begin
-  Dec(FEditorHidingCount);
+  if FEDitorHidingCount>0 then
+    Dec(FEditorHidingCount)
+  else
+    DebugLn('WARNING: unpaired Unlock Editor');
   {$ifdef dbgGrid}DebugLn('==< LockEditor: ', dbgs(FEditorHidingCount)); {$endif}
 end;