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

UPD: Increase dictionary size

Browse source
This commit is contained in:
Alexander Koblov 2015-09-27 17:42:02 +00:00
commit 20638fa153
2 changed files with 23 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

4
plugins/wcx/sevenzip/src/SevenZipDlg.pas
View file

@ -420,7 +420,7 @@ begin
begin
for Index:= Low(LZMADict) to High(LZMADict) do
begin
ComboBoxAdd(hwndDlg, IDC_COMP_DICT, FormatFileSize(LZMADict[Index]), PtrInt(LZMADict[Index]));
ComboBoxAdd(hwndDlg, IDC_COMP_DICT, FormatFileSize(LZMADict[Index], False), PtrInt(LZMADict[Index]));
end;
for Index:= Low(LZMAWordSize) to High(LZMAWordSize) do
begin
@ -440,7 +440,7 @@ begin
begin
for Index:= Low(PPMdDict) to High(PPMdDict) do
begin
ComboBoxAdd(hwndDlg, IDC_COMP_DICT, FormatFileSize(PPMdDict[Index]), PtrInt(PPMdDict[Index]));
ComboBoxAdd(hwndDlg, IDC_COMP_DICT, FormatFileSize(PPMdDict[Index], False), PtrInt(PPMdDict[Index]));
end;
for Index:= Low(PPMdWordSize) to High(PPMdWordSize) do
begin

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

@ -62,7 +62,7 @@ const
cKilo * 900
);
LZMADict: array[0..12] of PtrInt =
LZMADict: array[0..21] of PtrInt =
(
cKilo * 64,
cMega,
@ -76,10 +76,19 @@ const
cMega * 24,
cMega * 32,
cMega * 48,
cMega * 64
cMega * 64,
cMega * 96,
cMega * 128,
cMega * 192,
cMega * 256,
cMega * 384,
cMega * 512,
cMega * 768,
cMega * 1024,
cMega * 1536
);
PPMdDict: array[0..17] of PtrInt =
PPMdDict: array[0..19] of PtrInt =
(
cMega,
cMega * 2,
@ -98,7 +107,9 @@ const
cMega * 192,
cMega * 256,
cMega * 384,
cMega * 512
cMega * 512,
cMega * 768,
cMega * 1024
);
DeflateWordSize: array[0..11] of PtrInt =
@ -170,7 +181,7 @@ type
end;
function GetNumberOfProcessors: LongWord;
function FormatFileSize(ASize: Int64): UTF8String;
function FormatFileSize(ASize: Int64; AGiga: Boolean = True): UTF8String;
procedure SetArchiveOptions(AJclArchive: IInterface);
@ -221,16 +232,16 @@ begin
Result:= SystemInfo.dwNumberOfProcessors;
end;
function FormatFileSize(ASize: Int64): UTF8String;
function FormatFileSize(ASize: Int64; AGiga: Boolean): UTF8String;
begin
if (ASize div cGiga) > 0 then
Result:= IntToStr(ASize div cGiga) + 'Gb'
if ((ASize div cGiga) > 0) and AGiga then
Result:= IntToStr(ASize div cGiga) + ' GB'
else
if (ASize div cMega) >0 then
Result:= IntToStr(ASize div cMega) + 'Mb'
Result:= IntToStr(ASize div cMega) + ' MB'
else
if (ASize div cKilo) > 0 then
Result:= IntToStr(ASize div cKilo) + 'Kb'
Result:= IntToStr(ASize div cKilo) + ' KB'
else
Result:= IntToStr(ASize);
end;