From db96249492fe489344a7fc8e5bde487760a44ed1 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 22 Apr 2012 17:12:20 +0000
Subject: [PATCH] RxDBGrid - fix cacl footer for empty dataset

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

diff --git a/components/rx/rxdbgrid.pas b/components/rx/rxdbgrid.pas
index b722af539..68529a58f 100644
--- a/components/rx/rxdbgrid.pas
+++ b/components/rx/rxdbgrid.pas
@@ -3001,7 +3001,8 @@ var
   APresent: boolean;
   SEA, SEB:TDataSetNotifyEvent;
 begin
-  if (not (FFooterOptions.Active and DatalinkActive)) or (Columns.Count = 0) then
+  if (not (FFooterOptions.Active and DatalinkActive)) or (Columns.Count = 0) or
+     (DataSource.DataSet.RecordCount<=0) then
     Exit;
   //Дополнительно проверим - а стоит ли делать пробег по данным - есть ли агрегатные функции
   APresent := False;