Skip to content

Latest commit

 

History

History
104 lines (90 loc) · 3.8 KB

README.md

File metadata and controls

104 lines (90 loc) · 3.8 KB
Raw

Macapi.Dialogs

Simplified NSOpenPanel and NSSavePanel Delphi bridge using MacApi default units #DelphiCocoaFlavored

Lily Stilson // 2019 - 2020

Usage

This unit is meant to be working with RAD Studio 10.3.2. Other remain untested, but probably will work too.

InvokeNSOpenPanel

Simplified NSOpenPanel creation.

function InvokeNSOpenPanel (const Title: String; const InitialDir: String; 
                            const Flags: String; const AllowedFileTypes: TArray<String>; 
                            var ADir: String): Boolean
  • Title - NSOpenPanel Title
  • InitialDir - Initial NSOpenPanel directory
  • Flags - A string set of flags separated with space, that will enable or disable certain NSOpenPanel features
    • multiple - Enable multiple file selection
    • others - Enable file types other than AllowedFileTypes ones
    • create - Allow NSOpenPanel to create folders
    • hidden - Enable hidden directories
  • AllowedFileTypes - An array of allowed file types for NSOpenPanel
  • ADir - Returnable value of path to opened file / files

InvokeNSSavePanel

Simplified NSSavePanel creation.

function InvokeNSSavePanel (const Title: String; const InitialDir: String; 
                            const Flags: String; const FileTypesDescription: TArray<String>;
                            const AllowedFileTypes: TArray<String>; var ADir: String): Boolean
  • Title - NSSavePanel Title
  • InitialDir - Initial NSSavePanel directory
  • Flags - A string set of flags separated with space, that will enable or disable certain NSSavePanel features
    • others - Enable file types other than AllowedFileTypes ones
    • create - Allow NSSavePanel to create folders
    • hidden - Enable hidden directories
  • FileTypesDescription - An array of names of allowed file types for NSSavePanel
  • AllowedFileTypes - An array of allowed file types for NSSavePanel
  • ADir - Returnable value of path to saved file

InvokeNSOpenDirPanel

Simplified NSOpenPanel creation in Directory selection mode.

function InvokeNSOpenDirPanel(const Title: String; const InitialDir: String; 
                              const Flags: String; var ADir: String): Boolean
  • Title - NSOpenPanel Title
  • InitialDir - Initial NSOpenPanel directory
  • Flags - A string set of flags separated with space, that will enable or disable certain NSOpenPanel features
    • multiple - Enable multiple file selection
    • create - Allow NSOpenPanel to create folders
    • hidden - Enable hidden directories
  • ADir - Returnable value of path to selected directory / directories

Examples

// NSOpenPanel // Form contains TButton and TEdit.
procedure TNSDialogsTestForm.NSOpenPanelButtonClick (Sender: TObject);
var
  ADir: String;
begin
  if InvokeNSOpenPanel ('Select Photoshop project', '/Applications/', 'multiple others create', ['psd', 'psb'], ADir) then
    NSOpenPanelPath.Text := ADir
  else
    NSOpenPanelPath.Text := '';
end;
// NSSavePanel // Form contains TButton and TEdit
procedure TNSDialogsTestForm.NSSavePanelButtonClick (Sender: TObject);
var
  ADir: String;
begin
  if InvokeNSSavePanel ('Save database', '', 'others create hidden', ['Database Files', 'Plain Text Files'], ['db', 'txt'], Adir) then
    NSSavePanelPath.Text := ADir
  else
    NSSavePanelPath.Text := '';
begin
end;
// NSOpenPanel in Directory selection mode // Form contains TButton and TEdit
procedure TNSDialogsTestForm.NSOpenDirPanelButtonClick (Sender: TObject);
var
  ADir: String;
begin
  if InvokeNSOpenDirPanel ('Select project directory', '', 'hidden', ADir) then
    NSOpenDirPanelPath.Text := ADir
  else
    NSOpenDirPanelPath.Text := '';
end;