pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:TRxDBGridExportSpreadSheet - ignore DisplayFormat on export formula

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4598 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-03-25 12:25:18 +00:00
parent 97b171d739
commit 2888c3666e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/trunk/rxdbgridexportspreadsheet.pas
View File

@ -355,7 +355,7 @@ var
begin begin
if (Footer.ValueType <> fvtNon) then if (Footer.ValueType <> fvtNon) then
begin 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 begin
D:=ColIndex(RxDBGrid.ColumnByFieldName(Footer.FieldName)); D:=ColIndex(RxDBGrid.ColumnByFieldName(Footer.FieldName));