From cd7659f5664be73d37ceb2f6340414400d4f7072 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Wed, 1 Nov 2006 07:41:05 +0000
Subject: [PATCH] CheckNewCachedSizes, UpdateActive and UpdateData made virtual
 from Aleksey Lagunov

git-svn-id: trunk@10149 -
---
 lcl/dbgrids.pas | 4 ++--
 lcl/grids.pas   | 8 ++++++++
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas
index d60cb65575..4943fe400c 100644
--- a/lcl/dbgrids.pas
+++ b/lcl/dbgrids.pas
@@ -333,7 +333,6 @@ type
     procedure SetSelectedIndex(const AValue: Integer);
     procedure SetThumbTracking(const AValue: boolean);
     procedure UpdateBufferCount;
-    procedure UpdateData;
 
     // Temporal
     function GetColumnCount: Integer;
@@ -413,7 +412,8 @@ type
     procedure SetEditText(ACol, ARow: Longint; const Value: string); override;
     function  ScrollBarAutomatic(Which: TScrollStyle): boolean; override;
     function  SelectCell(aCol, aRow: Integer): boolean; override;
-    procedure UpdateActive;
+    procedure UpdateActive; virtual;
+    procedure UpdateData; virtual;
     function  UpdateGridCounts: Integer;
     procedure UpdateVertScrollbar(const aVisible: boolean; const aRange,aPage: Integer); override;
     procedure VisualChange; override;
diff --git a/lcl/grids.pas b/lcl/grids.pas
index 358a3eb161..2a64d486d3 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -682,6 +682,7 @@ type
     procedure ColumnsChanged(aColumn: TGridColumn);
     procedure ColWidthsChanged; dynamic;
     function  CreateColumns: TGridColumns; virtual;
+    procedure CheckNewCachedSizes(var AGCache:TGridDataCache); virtual;
     procedure CreateWnd; override;
     procedure CreateParams(var Params: TCreateParams); override;
     procedure DblClick; override;
@@ -2171,6 +2172,7 @@ var
     TH:=FGCache.GridHeight;
     FGCache.ClientWidth:= Width - GetBorderWidth;
     FGCache.ClientHeight := Height - GetBorderWidth;
+
     HsbRange:=Width - Dv;
     VsbRange:=Height - Dh;
 
@@ -2227,6 +2229,7 @@ begin
     InternalAutoFillColumns;
   CalcNewCachedSizes;
   CalcScrollbarsVisibility;
+  CheckNewCachedSizes(FGCache);
 
   FGCache.ScrollWidth:=FGCache.ClientWidth-FGCache.FixedWidth;
   FGCache.ScrollHeight:=FGCache.ClientHeight-FGCache.FixedHeight;
@@ -3452,6 +3455,11 @@ begin
   result := TGridColumns.Create(Self, TGridColumn);
 end;
 
+procedure TCustomGrid.CheckNewCachedSizes(var AGCache:TGridDataCache);
+begin
+
+end;
+
 procedure TCustomGrid.SetAutoFillColumns(const AValue: boolean);
 begin
   FAutoFillColumns := AValue;