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

Cocoa: Dark mode slightly improved

Browse Source
This commit is contained in:
rich2014 2023-07-19 19:20:16 +08:00
parent 1574149093
commit e069388a0e
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/cocoa/cocoa_extra.pas
View File

@ -77,6 +77,7 @@ type
{$endif}
function appearance: NSAppearance; message 'appearance'; // 10.14 (10.13)
procedure setAppearance(newValue:NSAppearance); message 'setAppearance:'; // 10.14 (10.13)
function effectiveAppearance: NSAppearance; message 'effectiveAppearance'; // 10.14 (10.13)
end;

12
lcl/interfaces/cocoa/cocoautils.pas
View File

@ -146,12 +146,6 @@ function NSEventRawKeyChar(ev: NSEvent): System.WideChar;
function AllocImageRotatedByDegrees(src: NSImage; degrees: double): NSImage;
function AllocCursorFromCursorByDegrees(src: NSCursor; degrees: double): NSCursor;
implementation
const
DarkName = 'NSAppearanceNameDarkAqua'; // used in 10.14
DarkNameVibrant = 'NSAppearanceNameVibrantDark'; // used in 10.13
var
NSSTR_DARK_NAME: NSString;
NSSTR_DARK_NAME_VIBRANT: NSString;
@ -160,6 +154,12 @@ var
NSSTR_LINE_SEPARATOR: NSString;
NSSTR_PARAGRAPH_SEPARATOR: NSString;
implementation
const
DarkName = 'NSAppearanceNameDarkAqua'; // used in 10.14
DarkNameVibrant = 'NSAppearanceNameVibrantDark'; // used in 10.13
procedure ApplicationWillShowModal;
begin
// Any place that would attempt to use Cocoa-native modality.