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: Delete last item from archive

Browse source
This commit is contained in:
Alexander Koblov 2015-04-19 14:51:41 +00:00
commit 798daffb9a
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
SevenZip archiver plugin
Copyright (C) 2014 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2014-2015 Alexander Koblov (alexx2000@mail.ru)
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
@ -485,8 +485,10 @@ begin
while not Terminated do
begin
FProgress.WaitFor(INFINITE);
// If the user has clicked on Cancel, the function returns zero
FArchive.CancelCurrentOperation:= (ProcessDataProcT(PWideChar(FArchive.Items[FArchive.CurrentItemIndex].PackedName), -FPercent) = 0) and AllowCancel;
if FArchive.ItemCount > 0 then begin
// If the user has clicked on Cancel, the function returns zero
FArchive.CancelCurrentOperation:= (ProcessDataProcT(PWideChar(FArchive.Items[FArchive.CurrentItemIndex].PackedName), -FPercent) = 0) and AllowCancel;
end;
end;
Result:= ReturnValue;
end;