paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 04:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: proper detection of the dark theme. patch by Zoë Peterson. bug #37617

Browse Source 
git-svn-id: trunk@63818 -
This commit is contained in:
dmitry 2020-08-23 22:44:35 +00:00
parent f89f1c10b4
commit f0b7aadfd8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/cocoa/cocoathemes.pas
View File

@ -147,12 +147,12 @@ begin
Result := false;
Exit;
end;
if (not NSApplication(NSApp).respondsToSelector(ObjCSelector('appearance'))) then begin
if (not NSApplication(NSApp).respondsToSelector(ObjCSelector('effectiveAppearance'))) then begin
Result := false;
Exit;
end;
Result := IsAppearDark(NSApplication(NSApp).appearance);
Result := IsAppearDark(NSApplication(NSApp).effectiveAppearance);
end;
function IsWinDark(win: NSWindow): Boolean;
@ -162,12 +162,12 @@ begin
Result := false;
Exit;
end;
if (not NSApplication(win).respondsToSelector(ObjCSelector('appearance'))) then begin
if (not NSApplication(win).respondsToSelector(ObjCSelector('effectiveAppearance'))) then begin
Result := false;
Exit;
end;
Result := IsAppearDark(win.appearance);
Result := IsAppearDark(win.effectiveAppearance);
end;
function IsPaintDark: Boolean;