cocoa: fix compilation for fpc 3.0.4

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

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)

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;

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