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

RxFPC:fix export from RxDBGrid to Spreadsheet data with collumn.field=nil

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4550 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-03-14 06:28:04 +00:00
parent da0eddc8e4
commit ca00c9c90c
1 changed files with 24 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -241,7 +241,8 @@ begin
CT:=C.Title as TRxColumnTitle; CT:=C.Title as TRxColumnTitle;
if C.Visible then if C.Visible then
begin begin
if Assigned(C.Field) then
begin
S:=C.Field.DisplayText; S:=C.Field.DisplayText;
if (C.KeyList.Count > 0) and (C.PickList.Count > 0) then if (C.KeyList.Count > 0) and (C.PickList.Count > 0) then
begin begin
@ -264,6 +265,7 @@ begin
FWorksheet.WriteNumber(FCurRow, FCurCol, C.Field.AsFloat, nfFixed, 2) FWorksheet.WriteNumber(FCurRow, FCurCol, C.Field.AsFloat, nfFixed, 2)
else else
FWorksheet.WriteUTF8Text(FCurRow, FCurCol, S); FWorksheet.WriteUTF8Text(FCurRow, FCurCol, S);
end;
if ressExportColors in FOptions then if ressExportColors in FOptions then
begin begin