Het volgende Terminal commando kan dit doen:

open 'x-apple.systempreferences:com.apple.preference.security?Privacy'

In Lazarus kun je dit b.v. met RunCommand aanroepen.

Uiteraard hebben we hiervoor een TEdit (Edit1, enter search criteria) en een TButton (Button1) nodif.

...
Uses ... , StrUtils, LazUTF8;

...
function TForm1.FindInMemo(AString: String; StartPos: Integer): Integer;
begin
  Result := PosEx(AString, Memo1.Text, StartPos);

  if Result > 0 then
    begin
      Memo1.SelStart  := UTF8Length(PChar(Memo1.Text), Result - 1);
      Memo1.SelLength := Length(AString);
      Memo1.SetFocus;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  SearchStart : Integer = 0;
  SearchStr   : string = '';
begin
  if SearchStr <> Edit1.Text then
    begin
      SearchStart := 0;
      SearchStr := Edit1.Text;
    end;

  SearchStart := FindInMemo(SearchStr, SearchStart + 1);

  if SearchStart = 0 then beep;
end;                                 

Het onClick event can de button moeten we natuurlijk aan de Button1Click() procedure koppelen.

Ik heb als extra nog een popup menu gemaakt voor de TMemo zodat ik een toets-combinatie kan gebruiken om naar het volgende zoek resultaat te springen (Mac: Command+G, Windows/Linux: F3).

De meesten kennen vast de plist truck welke de icon verbergt (werkt in combinatie met de code!):

   <key>LSUIElement</key>
   <string>1</string>

In ons programma kunnen we dit echter niet zo maar veranderen.

Deze functie verbergt een dock icon van jouw applicatie, of maakt die weer zichtbaar.

Merk op:
- verbergen van de icon, zorgt er voor dat de form van jouw applicatie ook verborgen wordt (net als met form1.hide) maar met form1.show wordt het weer zichtbaar en blijft de icon verborgen.
- Blijkbaar geven "NSApplicationActivationPolicyAccessory" en "NSApplicationActivationPolicyProhibited" hetzelfde.

{$mode objfpc}{$H+}
{$modeswitch objectivec1}  


uses
  ... CocoaAll ...;


procedure t4a_ToggleDockIcon(ShowIcon:boolean);
begin
  if ShowIcon then
    NSApplication.sharedApplication.setActivationPolicy(NSApplicationActivationPolicyRegular)
  else
    NSApplication.sharedApplication.setActivationPolicy(NSApplicationActivationPolicyAccessory);
end;    

Dialoog voorbeeld:

Misschien heeft iemand er iets aan ... 😊 

unit Unit1;

{$mode objfpc}{$H+}
{$modeswitch objectivec1}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls
  , CocoaInt, CocoaAll;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

function MessageDlg( aCaption, aMsg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultButton: TMsgDlgBtn; const Sender:TForm): TModalResult;
var
  ButtonArrayPtr     : PLongint;            // Pointer to the button array
  ButtonCount        : Integer;             // Number of buttons
  Counter            : integer;
  NSParentWindow     : NSWindow;            // Parent Form that the sheet is attached to
  DlgTypeID          : longint;             // DialogType for conversion from TMsgDlgType
  ButtonIDs          : array of Longint;    // ButtonTypes for conversion from TMsgDlgBtn array
  ButtonPressed      : longint;             // ModalResult which gets converted to TModalResult
  aButton            : TMsgDlgBtn;
  DefaultButtonIndex : integer;
  ReversedButtons    : TMsgDlgButtons;
begin
  // Show regular message dialog if no form assigned or form not showing
  if (not Assigned(Sender)) or (not Sender.Visible) then
    begin
      Result := MessageDlg(aCaption, aMsg, DlgType, Buttons, HelpCtx, DefaultButton, Sender);
      exit;
    end;

  { Convert array of TMsgDlgBtn to idButtonXYZ (See LCLType) and convert default button (TMsgDlgBtn) to index }
  ButtonCount := 0;
  DefaultButtonIndex := -1;
  ReversedButtons := [];
  Result := mrNone;

  if Buttons<>[] then
    begin
      for aButton in Buttons do
        ReversedButtons :=  + ReversedButtons;

      for aButton in ReversedButtons do
        begin
          SetLength(ButtonIDs,ButtonCount+1);

          case aButton of
            mbYes      : ButtonIDs:= 4;
            mbNo       : ButtonIDs:= 5;
            mbOK       : ButtonIDs:= 1;
            mbCancel   : ButtonIDs:= 2;
            mbAbort    : ButtonIDs:= 7;
            mbRetry    : ButtonIDs:= 8;
            mbIgnore   : ButtonIDs:= 9;
            mbAll      : ButtonIDs:= 10;
            mbNoToAll  : ButtonIDs:= 12;
            mbYesToAll : ButtonIDs:= 11;
            mbHelp     : ButtonIDs:= 3;
            else         ButtonIDs:= 6; // mbClose
          end;

          if (aButton=DefaultButton) then
            DefaultButtonIndex := ButtonCount;

          inc(ButtonCount);
        end;
    end;

  if (ButtonCount>0) then
    ButtonArrayPtr:=@{%H-}ButtonIDs{%H+}
  else
    ButtonArrayPtr:=nil;


  { Convert TMsgDlgType to idDialogXYZ (See LCLType) }
  case DlgType of
    mtWarning      : DlgTypeID := $FF +1;
    mtError        : DlgTypeID := $FF +2;
    mtInformation  : DlgTypeID := $FF +3;
    mtConfirmation : DlgTypeID := $FF +4;
    else             DlgTypeID := $FF +5; //mtCustom:
  end;

  NSParentWindow := nil;
  if Assigned(Sender) then
    begin
      if not Sender.HandleAllocated then Exit;
      NSParentWindow := NSView(Sender.Handle).window;
    end
  else
    NSParentWindow := NSApplication.sharedApplication.keyWindow;

  if Assigned(NSParentWindow) then
    begin
      ButtonPressed := CocoaPromptUser(aCaption, aMsg ,DlgTypeID, ButtonArrayPtr, ButtonCount, DefaultButtonIndex, 0, NSParentWindow, true);

      case ButtonPressed of
        1  : Result := mrOK;
        2  : Result := mrCancel;
        //3:   Result := mrHelp  // Help does not return from modal;
        4  : Result := mrYes;
        5  : Result := mrNo;
        6  : Result := mrClose;
        7  : Result := mrAbort;
        8  : Result := mrRetry;
        9  : Result := mrIgnore;
        10 : Result := mrAll;
        11 : Result := mrYesToAll;
        12 : Result := mrNoToAll
        else Result := mrNone;
      end;
    end
  else
    Result := mrNone;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg('Caption','',mtInformation,,0,mbYes,self);
end;

end.

Ik vond het verrassend makkelijk m.b.v. een eigen TreeNode variant ...

TMyTreeNode = class(TTreeNode)
private
  fANewProperty: String;
public
  property ANewProperty: String read fANewProperty write fANewProperty;
end;

We moeten er bij het aanmaken van een nieuwe  node wel voor zorgen dat de treeview het juiste treenode type gaat gebruiken en dat doen we in onCreateNodeClass:

procedure TForm1.TreeView1CreateNodeClass(Sender: TCustomTreeView; var NodeClass: TTreeNodeClass);
begin
  NodeClass := TMyTreeNode;
end;

We kunnen de extra data nu schrijven/lezen met een type cast:

TMyTreeNode(TreeView1.Selected).ANewProperty := 'some text';

Merk op: ik gebruik hier een eenvoudige string, maar je kunt hier hele records aan hangen 😉 

1) In FPCUpDeluxe, installeren we de ARM compiler:

Klik op het tabblad "cross", vink "aarch64" en "darwin" aan en klik dan op de "Install Compiler" knop.
FPC installeerd nu de ARM compiler naast de Intel compiler.

2) In Lazarus, moeten we nu binaries maken voor zowel Intel als M1.

In Lazarus ga naar het menu "Project" - "Project Options". Onder "Compiler options" gaan we naar "Config and Target".
Voor zover ik heb ervaren hoef je alleen maar "CPU Family" op "aarch64" (M1) of "x86_64" (Intel) te zetten.
Kies er een en BUILD de binary. Hernoem de binary vervolgens en herhaal deze stappen voor de andere processor familie.

Voorbeeld: project1

Zet CPU target op Intel en Build the Intel (x86_64) binary, en hernoem het bestand naar b.v. "project1_x86".
Doe nu hetzelfde voor de M1 binary (aarch64) en build the M1 binary, en hernoem het naar zoiets als "project1_M1".

3) In Terminal maken we nu met lipo een Universal binary.

In Terminal:

lipo -create -output project1 project1_M1 project1_x86
strip project1

file project1

project1: Mach-O universal binary with 2 architectures:  
project1 (for architecture x86_64): Mach-O 64-bit executable x86_64
project1 (for architecture arm64): Mach-O 64-bit executable arm64

Merk op dat voor M1 hardware de binary gesigned MOET zijn anders werkt het gewoon niet.
Omdat ik zelf geen M1 hardware heb, kan ik het signen nog niet testen. Ik weet wel dat de standard sign methode (van de universal binary) prima werkt op Intel Macs.

Niet vergeten:

- {$modeswitch objectivec1}
- uses CocoaAll

unit Unit1;

{$mode objfpc}{$H+}
{$modeswitch objectivec1}
interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, CocoaAll;

type

  { TForm1 }

  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption :=  NSProcessInfo.ProcessInfo.operatingSystemVersionString.UTF8String;

  Label2.Caption := IntToStr( NSProcessInfo.ProcessInfo.OperatingSystemVersion.majorVersion ) + '.' +
                    IntToStr( NSProcessInfo.ProcessInfo.OperatingSystemVersion.minorVersion ) + '.' +
                    IntToStr( NSProcessInfo.ProcessInfo.OperatingSystemVersion.patchVersion );
end;

end.

In macOS zal het groene knopje (elke venster heeft die, links bovenin) een window schermvullend (fullscreen) maken en niet maximaliseren zoals we dat op andere besturingssystemen zien.

Daarom heb ik twee functies gemaakt die dit gedraag uitzetten (normaal maximaliseren) of weer aanzet (fullscreen).

procedure DisableFullscreenButton(theForm: TForm);
var
  theWindow: NSWindow;
begin
  theWindow := NSView(theForm.Handle).window;       // Form1 is the name of the main form - adjust as necessary
  theWindow.setCollectionBehavior(theWindow.collectionBehavior or NSWindowCollectionBehaviorFullScreenAuxiliary);
end;

procedure EnableFullscreenButton(theForm: TForm);
var
  theWindow: NSWindow;
begin
  theWindow := NSView(theForm.Handle).window;       // Form1 is the name of the main form - adjust as necessary
  theWindow.setCollectionBehavior(theWindow.collectionBehavior and NSWindowCollectionBehaviorFullScreenPrimary);
end;

function MemoryStreamToString(aMemoryStream: TMemoryStream): AnsiString;
begin
  SetString(Result, PAnsiChar(aMemoryStream.Memory), aMemoryStream.Size);
end;

Vergeet ik iets dus ?