From 26c62d75ebdbfd4ba55f766a20adc62a5bc57bf7 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Sun, 29 Mar 2009 18:56:52 +0000
Subject: [PATCH] LCL, made grid's BoxRect method protected

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

diff --git a/lcl/grids.pas b/lcl/grids.pas
index e4165c3b4c..e6d3d5df88 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -778,6 +778,7 @@ type
     procedure AdjustEditorBounds(NewCol,NewRow:Integer); virtual;
     procedure AutoAdjustColumn(aCol: Integer); virtual;
     procedure BeforeMoveSelection(const DCol,DRow: Integer); virtual;
+    function  BoxRect(ALeft,ATop,ARight,ABottom: Longint): TRect;
     procedure CalcAutoSizeColumn(const Index: Integer; var AMin,AMax,APriority: Integer); dynamic;
     procedure CalcFocusRect(var ARect: TRect);
     function  CanEditShow: Boolean; virtual;
@@ -1026,7 +1027,6 @@ type
     { Exposed procs }
     procedure AutoAdjustColumns;
     procedure BeginUpdate;
-    function  BoxRect(ALeft,ATop,ARight,ABottom: Longint): TRect;
     function  CellRect(ACol, ARow: Integer): TRect;
     function  CellToGridZone(aCol,aRow: Integer): TGridZone;
     procedure CheckPosition;