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: Call FsStatusInfo with FS_STATUS_OP_CALCSIZE

Browse source
This commit is contained in:
Alexander Koblov 2019-11-02 17:14:03 +00:00
commit 11fe440916
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/filesources/wfxplugin/uwfxplugincalcstatisticsoperation.pas
View file

@ -13,6 +13,8 @@ uses
type
{ TWfxPluginCalcStatisticsOperation }
TWfxPluginCalcStatisticsOperation = class(TFileSourceCalcStatisticsOperation)
private
@ -30,6 +32,7 @@ type
procedure Initialize; override;
procedure MainExecute; override;
procedure Finalize; override;
end;
implementation
@ -54,6 +57,11 @@ procedure TWfxPluginCalcStatisticsOperation.Initialize;
begin
// Get initialized statistics; then we change only what is needed.
FStatistics := RetrieveStatistics;
with FWfxPluginFileSource do
begin
WfxModule.WfxStatusInfo(Files.Path, FS_STATUS_START, FS_STATUS_OP_CALCSIZE);
end;
end;
procedure TWfxPluginCalcStatisticsOperation.MainExecute;
@ -66,6 +74,14 @@ begin
end;
end;
procedure TWfxPluginCalcStatisticsOperation.Finalize;
begin
with FWfxPluginFileSource do
begin
WfxModule.WfxStatusInfo(Files.Path, FS_STATUS_END, FS_STATUS_OP_CALCSIZE);
end;
end;
procedure TWfxPluginCalcStatisticsOperation.ProcessFile(aFile: TFile);
begin
FStatistics.CurrentFile := aFile.Path + aFile.Name;