UPD: disable flatview in Stash

This commit is contained in:
rich2014 2026-06-18 09:22:19 +08:00
commit 487a3602cc
2 changed files with 8 additions and 0 deletions

View file

@ -324,6 +324,7 @@ end;
function TStashFileSource.GetProperties: TFileSourceProperties;
begin
Result:= _fileSystemFS.Properties;
Result-= [fspListFlatView];
Result+= [fspLinksToLocalFiles, fspDontChangePath, fspDontCreateDirectory];
end;

View file

@ -1271,6 +1271,13 @@ begin
AFileView.Reload;
Exit;
end;
if not (fspListFlatView in AFileSource.GetProperties) then
begin
msgWarning(rsMsgErrNotSupported);
Exit;
end;
AFileList := TFileTree.Create;
AFiles := AFileView.CloneSelectedFiles;
for J := 0 to AFiles.Count - 1 do