Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Sommige gebruikers hebben het zogenaamde "Dark theme" op hun Mac actief staan ("System Preferences" -> "General" -> vink "Use dark menu bar and dock"), wat een mooie look geeft ...
Soms moet je echter in jouw programma weten of dit Dark Theme aanstaat, bijvoorbeeld om een geschikte Icon te kiezen voor een TTrayIcon.
Met een kleine truc kunnen we dat snel voor elkaar krijgen.
Voeg de unit "Process" toe aan de "Uses" clausule.
Deze functie geeft TRUE als het Dark Theme aanstaan, en FALSE als het standaard theme aanstaat.
function TForm1.DetectDarkTheme:boolean;
var s:ansistring;
begin
RunCommand('/usr/bin/defaults',['read','-g','AppleInterfaceStyle'],s);
DetectDarkTheme:=(pos('Dark',s)>0);
end;
