UPD: remove dependency of iCloudDriver in FileView

This commit is contained in:
rich2014 2025-01-29 17:05:23 +08:00
commit ece67c1b0a

View file

@ -607,8 +607,7 @@ implementation
uses
Clipbrd, Dialogs, LCLProc, LCLType, Forms, dmCommonData,
uShellExecute, fMaskInputDlg, uMasks, DCOSUtils, uOSUtils, DCStrUtils,
uDCUtils, uDebug, uLng, uShowMsg,
uFileSystemFileSource, uFileSourceUtil, {$IFDEF DARWIN}uiCloudDriver,{$ENDIF}
uDCUtils, uDebug, uLng, uShowMsg, uFileSystemFileSource, uFileSourceUtil,
uFileViewNotebook, uSearchTemplate, uKeyboard, uFileFunctions,
fMain, uSearchResultFileSource, uFileSourceProperty, uVfsModule, uFileViewWithPanels;
@ -2618,10 +2617,6 @@ begin
// allow it to read its configuration from FSNode.
if sFSType = 'FileSystem' then
aFileSource := TFileSystemFileSource.GetFileSource
{$IFDEF DARWIN}
else if sFSType = 'TiCloudDriverFileSource' then
aFileSource := TiCloudDriverFileSource.GetFileSource
{$ENDIF}
else begin
FileSourceClass := gVfsModuleList.FindFileSource(sFSType);
if Assigned(FileSourceClass) then aFileSource := FileSourceClass.Create;