paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-02 18:10:07 +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} {$endif}
// 10.14 // 10.14
function appearance: NSAppearance; message 'appearance'; // 10.14 (10.13) function appearance: NSAppearance; message 'appearance'; // 10.14 (10.13)
function effectiveAppearance: NSAppearance; message 'effectiveAppearance'; // 10.14 (10.13)
end; end;
NSTableColumnFix = objccategory external (NSTableColumn) NSTableColumnFix = objccategory external (NSTableColumn)

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

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

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

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