In der IDE: mit dem Paketmanager das Paket pl_Win_Darkstyle hinzufügen und komplett neu kompilieren.

Im Projekt: im Projektinspektor pl_Win_Darkstyle in die Packages aufnehmen.

Im Sourcecode:

  uses
    .., uWin32WidgetSetDark, uDarkStyleSchemes, uMetaDarkStyle, uDarkStyleParams, ..
 
 
  initialization  
    PreferredAppMode := pamAllowDark;
    uMetaDarkStyle.ApplyMetaDarkStyle(DefaultDark);
  end.

Zur Änderung des Modus ist immer ein Neustart der App erforderlich.

Dafür gibts die Unit jmrestart.pas.

unit jmRestart;
 
{
Diese Unit als ERSTE in die Uses Klausel des Projektquelltextes einbinden.
Soll die Anwendung sich selbst neu starten, so muss ReStartProgram := True gesetzt
werden und anschließend die laufende Applikation beendet werden.
}
 
{$mode ObjFPC}{$H+}
 
interface
 
var
  RestartProgram: boolean = false;
 
implementation
uses Windows;
 
procedure DoReStart;
var
  StartupInfo: TStartupInfo;
  ProcessInformation: TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.wShowWindow := sw_ShowNormal;
  CreateProcess(PChar(ParamStr(0)), '', nil, nil, False, 0, nil, nil, StartupInfo, ProcessInformation);
end;
 
initialization
finalization
if RestartProgram then DoReStart;
 
end.

Download für Windows: Konverter77

Bedienung: Projektverzeichnis auswählen und updaten.

Änderungen mit einem beliebigem Texteditor durchführen:

Ersetze „pl_BGRAuecontrols“ durch „pl_BGRAextra“.

Ersetze „pl_BGRAuecontrols“ durch „pl_BGRAextra“.

Ersetze alle „TuELED“ durch „TbgraLedEx“.

Im uses-Bereich: ersetze „ueled“ durch „bgraExLed“

Nachfolgend: Alle Variablendeklaratioinen vom Typ „TuELED“ durch „TbgraLedEx“ ersetzen.

Danach das Projekt mit CT Version 7.7 öffnen und im Projektinspektor auf verwaiste Abhängigkeiten kontrollieren.