FIX: remove iCloudDriver's dependency on CurrentWorkingDirectory

This commit is contained in:
rich2014 2025-01-27 23:46:00 +08:00
commit 490d850cd1
2 changed files with 2 additions and 8 deletions

View file

@ -42,7 +42,6 @@ type
TMountedFileSource = class(TFileSystemFileSource, IMountedFileSource)
private
_mountPoints: TMountPoints;
_currentPath: String;
public
constructor Create; override;
destructor Destroy; override;
@ -100,7 +99,6 @@ constructor TMountedFileSource.Create;
begin
inherited Create;
_mountPoints:= TMountPoints.Create;
_currentPath:= self.GetRootDir;
end;
destructor TMountedFileSource.Destroy;
@ -141,13 +139,12 @@ end;
function TMountedFileSource.SetCurrentWorkingDirectory(NewDir: String): Boolean;
begin
_currentPath:= NewDir;
Result:= True;
end;
function TMountedFileSource.GetCurrentWorkingDirectory: String;
begin
Result:= _currentPath;
Result:= '';
end;
function TMountedFileSource.GetProcessor: TFileSourceProcessor;

View file

@ -75,10 +75,7 @@ var
fs: TiCloudDriverFileSource;
begin
fs:= params.fs as TiCloudDriverFileSource;
if IncludeTrailingPathDelimiter(fs.GetCurrentWorkingDirectory) <> fs.GetRootDir then
Exit;
image:= fs.getAppIconByPath( params.displayFile.FSFile.Path );
image:= fs.getAppIconByPath( params.displayFile.FSFile.FullPath );
if image = nil then
Exit;