From bac149645ab6591c3c7188bb0e89647ce1774999 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 15 Apr 2012 21:22:58 +0000
Subject: [PATCH] in RxDBGrid remove unnecessary recalculation of statistics

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2389 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxdbgrid.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/components/rx/rxdbgrid.pas b/components/rx/rxdbgrid.pas
index 3d098a08b..f41645cba 100644
--- a/components/rx/rxdbgrid.pas
+++ b/components/rx/rxdbgrid.pas
@@ -505,6 +505,7 @@ type
     procedure OnSortBy(Sender: TObject);
     procedure OnChooseVisibleFields(Sender: TObject);
     procedure Loaded; override;
+    procedure UpdateFooterRowOnUpdateActive;
   public
     procedure FilterRec(DataSet: TDataSet; var Accept: boolean);
 
@@ -2824,7 +2825,8 @@ begin
   else
   if Assigned(FFooterOptions) and FFooterOptions.Active and (FFooterOptions.RowCount > 0) and
        DatalinkActive and (DataSource.DataSet.State = dsBrowse) then
-    CalcStatTotals;
+    UpdateFooterRowOnUpdateActive;
+//    CalcStatTotals;
 end;
 
 procedure TRxDBGrid.UpdateData;
@@ -3301,6 +3303,11 @@ begin
   UpdateJMenuKeys;
 end;
 
+procedure TRxDBGrid.UpdateFooterRowOnUpdateActive;
+begin
+  //
+end;
+
 procedure TRxDBGrid.GetOnCreateLookup;
 begin
   if Assigned(F_CreateLookup) then