mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-21 05:59:13 +02:00
cocoa: fix compilation for fpc 3.0.4
git-svn-id: trunk@63868 -
This commit is contained in:
parent
959c6b9cd3
commit
796f05d611
@ -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)
|
||||
|
@ -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;
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user