paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 11:01:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fix exporting to the second on list filter file format

Browse Source 
git-svn-id: trunk@52473 -
This commit is contained in:
jesus 2016-06-10 17:41:13 +00:00
parent c3296bdb1b
commit 2bdea5e7ad
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/lr_view.pas
View File

@ -1368,7 +1368,7 @@ begin
FilterInfo := ExportFilters[i];
if FilterInfo.Enabled then
begin
FExtList.AddObject(FilterInfo.FilterExt, TObject(PtrInt(i)));
FExtList.AddObject(FilterInfo.FilterExt, TObject(PtrInt(i+1)));
if FilterStr <> '' then
FilterStr := FilterStr + '|';
FilterStr := FilterStr + FilterInfo.FilterDesc + '|' + FilterInfo.FilterExt;
@ -1384,7 +1384,7 @@ begin
SaveToFile(SaveDialog.Filename) // using .frp
else
begin
Index := PtrInt(fExtList.Objects[Index]);
Index := PtrInt(fExtList.Objects[Index])-1;
ExportToWithFilterIndex(Index, SaveDialog.FileName);
end;
end;