FIX: the issue that the List would refresh multiple times after updating the Archive (trigger EFileSourceOperationAborting)

This commit is contained in:
rich2014 2026-06-11 13:32:16 +08:00
commit a260581a01
2 changed files with 8 additions and 0 deletions

View file

@ -656,6 +656,10 @@ end;
procedure TMultiArchiveFileSource.DoReload(const PathsToReload: TPathsArray);
begin
// reset FAttributeData (updated timestamp) in TArchiveFileSource
// avoids Changed() still return True after ReadArchive()
self.Changed;
ReadArchive;
end;

View file

@ -984,6 +984,10 @@ end;
procedure TWcxArchiveFileSource.DoReload(const PathsToReload: TPathsArray);
begin
// reset FAttributeData (updated timestamp) in TArchiveFileSource
// avoids Changed() still return True after ReadArchive()
self.Changed;
ReadArchive;
end;