From 5c691c8f2f5ecd606f75fa0f769754455fc146bc Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 29 Jul 2014 11:20:59 +0000
Subject: [PATCH] TRxDBGridExportSpreadSheet - export footer row

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

diff --git a/components/rx/trunk/rxdbgridexportspreadsheet.pas b/components/rx/trunk/rxdbgridexportspreadsheet.pas
index 7a522c171..cf53f7233 100644
--- a/components/rx/trunk/rxdbgridexportspreadsheet.pas
+++ b/components/rx/trunk/rxdbgridexportspreadsheet.pas
@@ -224,8 +224,42 @@ begin
 end;
 
 procedure TRxDBGridExportSpreadSheet.DoExportFooter;
+var
+  i : Integer;
+  C : TRxColumn;
+  CT : TRxColumnTitle;
+  CC : TColor;
+  scColor : TsColor;
 begin
+  CC:=FRxDBGrid.FooterOptions.Color;
+  FCurCol:=0;
+  for i:=0 to FRxDBGrid.Columns.Count - 1 do
+  begin
+    C:=FRxDBGrid.Columns[i] as TRxColumn;
+    CT:=C.Title as TRxColumnTitle;
+    if C.Visible then
+    begin
+      if (C.Footer.ValueType <> fvtNon) then
+      begin
+        FWorksheet.WriteUTF8Text(FCurRow, FCurCol, C.Footer.DisplayText);
+        if (CC and SYS_COLOR_BASE) = 0  then
+        begin
+  //        CC:=clWhite;
+          scColor:=FWorkbook.AddColorToPalette(CC);
+          FWorksheet.WriteBackgroundColor(FCurRow,FCurCol, scColor);
+        end;
 
+        FWorksheet.WriteBorders(FCurRow,FCurCol, [cbNorth, cbWest, cbEast, cbSouth]);
+        FWorksheet.WriteBorderColor(FCurRow,FCurCol, cbNorth, scColorBlack);
+        FWorksheet.WriteBorderColor(FCurRow,FCurCol, cbWest, scColorBlack);
+        FWorksheet.WriteBorderColor(FCurRow,FCurCol, cbEast, scColorBlack);
+        FWorksheet.WriteBorderColor(FCurRow,FCurCol, cbSouth, scColorBlack);
+
+        FWorksheet.WriteHorAlignment(FCurRow, FCurCol, ssAligns[C.Footer.Alignment]);
+      end;
+      inc(FCurCol);
+    end;
+  end;
 end;
 
 procedure TRxDBGridExportSpreadSheet.DoExportColWidth;