From 4d0dfb40f07f60691d36672e40d52366a860cc03 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Mon, 1 Dec 2008 23:34:14 +0000
Subject: [PATCH] LCL, fix grid exeption after removing all rows and adding a
 new row, issue #12666

git-svn-id: trunk@17655 -
---
 lcl/grids.pas | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 6776a4e712..d244573f84 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -4695,11 +4695,19 @@ begin
   VisualChange;
 
   // adjust editor bounds
-  if IsColumn and (Index<=NewCol) then
-    Inc(NewCol)
-  else
-  if (not IsColumn) and (Index<=NewRow) then
-    Inc(NewRow);
+  if IsColumn then begin
+    if NewCol<FixedCols then
+      NewCol := FixedCols
+    else
+    if Index<=NewCol then
+      Inc(NewCol);
+  end else begin
+    if NewRow<FixedRows then
+      NewRow := FixedRows
+    else
+    if Index<=NewRow then
+      Inc(NewRow);
+  end;
   AdjustEditorBounds(NewCol, NewRow)
 end;