mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: icon for iCloud Driver (in Vfs List)

Browse source
This commit is contained in:
rich2014 2025-01-30 17:59:28 +08:00
commit 282fb12b7a
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
pixmaps/macOS/cloud.fill.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 3.7 KiB

11
src/platform/unix/darwin/uiclouddriver.pas
View file

@ -6,7 +6,7 @@ unit uiCloudDriver;
interface
uses
Classes, SysUtils, URIParser, Menus,
Classes, SysUtils, Menus,
uFile, uDisplayFile,
uFileSource, uMountedFileSource, uFileSourceManager, uVfsModule,
uDCUtils, uLng, uMyDarwin,
@ -27,10 +27,10 @@ type
class function isSeedFiles(aFiles: TFiles): Boolean;
public
constructor Create; override;
destructor Destroy; override;
class function IsSupportedPath(const Path: String): Boolean; override;
destructor Destroy; override;
procedure mountAppPoint( const appName: String );
function getAppIconByPath( const path: String ): NSImage;
procedure download( const aFile: TFile );
@ -39,6 +39,7 @@ type
public
class function GetFileSource: TiCloudDriverFileSource;
function GetUIHandler: TFileSourceUIHandler; override;
class function GetMainIcon(out Path: String): Boolean; override;
function GetRootDir(sPath : String): String; override;
function IsSystemFile(aFile: TFile): Boolean; override;
@ -305,6 +306,12 @@ begin
Result:= iCloudDriverUIProcessor;
end;
class function TiCloudDriverFileSource.GetMainIcon(out Path: String): Boolean;
begin
Path:= 'pixmaps/macOS/cloud.fill.png';
Result:= True;
end;
procedure TiCloudDriverFileSource.downloadAction(Sender: TObject);
begin
if _files = nil then