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

FIX: Plugin hangs when opening .wim archive

Browse source
This commit is contained in:
Alexander Koblov 2015-04-29 19:10:32 +00:00
commit afd5d28645
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -456,7 +456,6 @@ begin
Create;
FArchive:= Archive;
Archive.OnPassword:= JclCompressionPassword;
Archive.OnProgress:= JclCompressionProgress;
end;
destructor TSevenZipUpdate.Destroy;
@ -483,6 +482,7 @@ function TSevenZipUpdate.Update: Integer;
var
AllowCancel: Boolean;
begin
FArchive.OnProgress:= JclCompressionProgress;
AllowCancel:= not (FArchive is TJclUpdateArchive);
while not Terminated do
begin
@ -537,6 +537,7 @@ end;
function TSevenZipHandle.Update: Integer;
begin
FArchive.OnProgress:= JclCompressionProgress;
while not Terminated do
begin
// Wait progress event
@ -556,7 +557,6 @@ procedure TSevenZipHandle.SetArchive(AValue: TJclDecompressArchive);
begin
FArchive:= AValue;
AValue.OnPassword := JclCompressionPassword;
AValue.OnProgress := JclCompressionProgress;
AValue.OnExtract := JclCompressionExtract;
end;

2
plugins/wcx/sevenzip/src/SevenZipWcx.lpi
View file

@ -21,7 +21,7 @@
<UseVersionInfo Value="True"/>
<MajorVersionNr Value="15"/>
<MinorVersionNr Value="4"/>
<RevisionNr Value="25"/>
<RevisionNr Value="29"/>
<CharSet Value="04B0"/>
<StringTable ProductVersion=""/>
</VersionInfo>