Commit 97f3b5ba authored by Jesus's avatar Jesus
Browse files

LazReport, fix export filters registering multiple filter extensions are...

LazReport, fix export filters registering multiple filter extensions are listed only once, issue #23759

git-svn-id: trunk@39974 -
parent 28b4ed79
......@@ -1563,13 +1563,14 @@ begin
end;
end;
function frGetExportFilterIndex(ClassRef: TfrExportFilterClass): Integer;
function frGetExportFilterIndex(ClassRef: TfrExportFilterClass; const AFilterExt:string): Integer;
var
i: Integer;
begin
result := -1;
for i:=0 to Length(frFilters)-1 do
if frFilters[i].ClassRef=ClassRef then
with frFilters[i] do
if (ClassRef=ClassRef) and (FilterExt=AFilterExt) then
begin
result := i;
break;
......@@ -1612,7 +1613,7 @@ end;
procedure frRegisterExportFilter(ClassRef: TfrExportFilterClass;
const FilterDesc, FilterExt: String);
begin
if frGetExportFilterIndex(ClassRef)<0 then
if frGetExportFilterIndex(ClassRef, FilterExt)<0 then
begin
frFilters[frFiltersCount].ClassRef := ClassRef;
frFilters[frFiltersCount].FilterDesc := FilterDesc;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment