From f2b575d55ce9e5cf067b28a33fbb9efce58fb9ff Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Sun, 29 Mar 2009 18:38:21 +0000
Subject: [PATCH] LCL, implemented grid's BoxRect method

git-svn-id: trunk@19156 -
---
 lcl/grids.pas | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index fee1d17662..e4165c3b4c 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -1026,6 +1026,7 @@ 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;
@@ -6040,6 +6041,25 @@ begin
   Inc(FUpdateCount);
 end;
 
+function TCustomGrid.BoxRect(ALeft, ATop, ARight, ABottom: Longint): TRect;
+begin
+  if ARight<ALeft then
+    SwapInt(ALeft, ARight);
+  if ABottom<ATop then
+    SwapInt(ATop, ABottom);
+
+  Result := CellRect(ALeft, ATop);
+  with CellRect(ARight, ABottom) do
+    Result.BottomRight := BottomRight;
+
+  with FGCache.VisibleGrid do begin
+    Result.Left:=Max(Result.Left, Left);
+    Result.Right:=Min(Result.Right, Right);
+    Result.Top:=Max(Result.Top, Top);
+    Result.Bottom:=Min(Result.Bottom,Bottom);
+  end;
+end;
+
 procedure TCustomGrid.EndUpdate(aRefresh: boolean = true);
 begin
   Dec(FUpdateCount);