paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-02 13:50:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: a better way of getting a selector to check

Browse Source 
git-svn-id: trunk@57678 -
This commit is contained in:
dmitry 2018-04-20 01:02:53 +00:00
parent fc6c0627a4
commit 871c41e289
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -1390,9 +1390,9 @@ begin
if Assigned(win) then
begin
if win.respondsToSelector( NSSelectorFromString(NSSTR('backingScaleFactor'))) then
if win.respondsToSelector( ObjCSelector('backingScaleFactor')) then
Result := win.backingScaleFactor
else if win.respondsToSelector( NSSelectorFromString(NSSTR('userSpaceScaleFactor'))) then // for older OSX
else if win.respondsToSelector( ObjCSelector('userSpaceScaleFactor')) then // for older OSX
Result := win.userSpaceScaleFactor;
end;
end;