From 2888c3666ea1489c91af8df48bc8b86500b35c5f Mon Sep 17 00:00:00 2001 From: alexs75 Date: Fri, 25 Mar 2016 12:25:18 +0000 Subject: [PATCH] RxFPC:TRxDBGridExportSpreadSheet - ignore DisplayFormat on export formula git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4598 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/rx/trunk/rxdbgridexportspreadsheet.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/rx/trunk/rxdbgridexportspreadsheet.pas b/components/rx/trunk/rxdbgridexportspreadsheet.pas index f78e4bba5..aa093ea35 100644 --- a/components/rx/trunk/rxdbgridexportspreadsheet.pas +++ b/components/rx/trunk/rxdbgridexportspreadsheet.pas @@ -355,7 +355,7 @@ var begin if (Footer.ValueType <> fvtNon) then begin - if (ressExportFormula in FOptions) and (Footer.ValueType in [fvtSum, fvtMax, fvtMin]) and (FFirstDataRow <= FLastDataRow) and (Footer.DisplayFormat = '') then + if (ressExportFormula in FOptions) and (Footer.ValueType in [fvtSum, fvtMax, fvtMin]) and (FFirstDataRow <= FLastDataRow) {and (Footer.DisplayFormat = '')} then begin D:=ColIndex(RxDBGrid.ColumnByFieldName(Footer.FieldName));