From 8de5601593cf66ccae3024684aa3ff26016ebefc Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Wed, 4 Nov 2009 21:31:27 +0000
Subject: [PATCH] LCL, fix editing grid cell in custom column even when it's
 set readonly

git-svn-id: trunk@22437 -
---
 lcl/grids.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index f4d9fe8d87..10435d873c 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -6300,7 +6300,7 @@ var
   C: TGridColumn;
 begin
   Result:=(goEditing in options);
-  if Result and (ACol>=0) and (ACol<FColumns.Count) then begin
+  if Result and (ACol>=0) and (ACol<ColCount) then begin
     C:=ColumnFromGridColumn(ACol);
     Result:=(C<>nil) and (not C.ReadOnly);
   end;