mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: SevenZip - create 7-Zip archive with PPMd compression method

Browse source 
(cherry picked from commit 1d3ba73af4)
This commit is contained in:
Alexander Koblov 2022-08-20 14:27:37 +03:00
commit b7c83fb25c
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
plugins/wcx/sevenzip/src/SevenZipOpt.pas
View file

@ -365,8 +365,16 @@ begin
AddWideStringProperty('0', GetCodecName(PluginConfig[AFormat].Method));
end;
end;
if MethodStandard and (Method <> cmCopy) and (Pos('D=', Parameters) = 0) then begin
AddWideStringProperty('D', WideString(IntToStr(PluginConfig[AFormat].Dictionary) + 'B'));
if MethodStandard then
begin
if (Method > cmCopy) and (Method < cmPPMd) and (Pos('D=', Parameters) = 0) then
begin
AddWideStringProperty('D', WideString(IntToStr(PluginConfig[AFormat].Dictionary) + 'B'));
end
else if (Method = cmPPMd) and (Pos('MEM=', Parameters) = 0) then
begin
AddWideStringProperty('MEM', WideString(IntToStr(PluginConfig[AFormat].Dictionary) + 'B'));
end;
end;
end;
end;