From 7bfa2da31d1305addd478f055a26798415ab0aca Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 23 May 2017 10:48:55 +0000
Subject: [PATCH] RxFPC:fix calc footer row

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

diff --git a/components/rx/trunk/rxdb/rxdbgrid.pas b/components/rx/trunk/rxdb/rxdbgrid.pas
index 48cf239f8..a9c786825 100644
--- a/components/rx/trunk/rxdb/rxdbgrid.pas
+++ b/components/rx/trunk/rxdb/rxdbgrid.pas
@@ -5017,12 +5017,16 @@ begin
   begin
     APresent := (C.Footer.FValueType in [fvtSum, fvtAvg, fvtMax, fvtMin, fvtCount]) or (C.FGroupItems.Active);
     if not APresent then
+    begin
       for F in C.Footers do
       begin
         APresent:=F.FValueType in [fvtSum, fvtAvg, fvtMax, fvtMin, fvtCount];
         if APresent then
           break;
       end;
+    end
+    else
+      break;
   end;
 
   if not APresent then Exit;