mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Support multiple extensions in MultiArc

Browse source
This commit is contained in:
Alexander Koblov 2011-03-06 10:52:21 +00:00
commit 52c35fcbe7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/newdesign/umultiarchivefilesource.pas
View file

@ -161,7 +161,7 @@ begin
begin
aMultiArcItem:= gMultiArcList.Items[I];
if SameText(anArchiveType, aMultiArcItem.FExtension) and (aMultiArcItem.FEnabled) then
if MatchesMaskList(anArchiveType, aMultiArcItem.FExtension, ',') and (aMultiArcItem.FEnabled) then
begin
Result := TMultiArchiveFileSource.Create(anArchiveFileSource,
anArchiveFileName,
@ -189,7 +189,7 @@ begin
for I := 0 to gMultiArcList.Count - 1 do
begin
aMultiArcItem:= gMultiArcList.Items[I];
if SameText(anArchiveType, aMultiArcItem.FExtension) and (aMultiArcItem.FEnabled) then
if MatchesMaskList(anArchiveType, aMultiArcItem.FExtension, ',') and (aMultiArcItem.FEnabled) then
Exit(True);
end;
Result := False;