paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-23 12:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: fix compilation for fpc 3.0.4

Browse Source 
git-svn-id: trunk@63868 -
This commit is contained in:
dmitry 2020-09-05 19:12:43 +00:00
parent 959c6b9cd3
commit 796f05d611
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -197,6 +197,7 @@ type
{$endif}
// 10.14
function appearance: NSAppearance; message 'appearance'; // 10.14 (10.13)
function effectiveAppearance: NSAppearance; message 'effectiveAppearance'; // 10.14 (10.13)
end;
NSTableColumnFix = objccategory external (NSTableColumn)

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

@ -162,7 +162,7 @@ begin
Result := false;
Exit;
end;
if (not NSApplication(win).respondsToSelector(ObjCSelector('effectiveAppearance'))) then begin
if (not win.respondsToSelector(ObjCSelector('effectiveAppearance'))) then begin
Result := false;
Exit;
end;

2
lcl/interfaces/cocoa/cocoawindows.pas
View File

@ -308,7 +308,7 @@ procedure NSResponderHotKeys(asender: NSResponder; event: NSEvent; var handled:
var
undoManager: NSUndoManager;
ch : System.WideChar;
msk : NSEventModifierFlags;
msk : LongWord; //NSEventModifierFlags;
chr : NSString;
const
NSModsMask = NSShiftKeyMask