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

cocoa: moved backingScaleFactor to cocoa_extra unit into NSWindowFix category. Removed conflicting (and hacky) NSWindow redeclaration

Browse Source 
git-svn-id: trunk@57677 -
This commit is contained in:
dmitry 2018-04-20 00:42:27 +00:00
parent 055d910ecd
commit fc6c0627a4
3 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -60,8 +60,11 @@ type
end;
NSWindowFix = objccategory external (NSWindow)
// 10.4-10.7
function userSpaceScaleFactor: CGFloat; message 'userSpaceScaleFactor'; //deprecated
// 10.7+
procedure toggleFullScreen(sender: id); message 'toggleFullScreen:';
function backingScaleFactor: CGFloat; message 'backingScaleFactor';
end;
{// private since 10.5, doesn't seam to do anything in 10.10

4
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -406,10 +406,6 @@ type
procedure mouseMoved(event: NSEvent); override;
end;
NSWindow = objcclass external(CocoaAll.NSWindow)
function backingScaleFactor: CGFloat; message 'backingScaleFactor';
end;
{ TCocoaWindow }
TCocoaWindowContent = objcclass;

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

@ -8,7 +8,7 @@ interface
uses
Types,
CGGeometry, CocoaAll,
CGGeometry, CocoaAll, cocoa_extra,
Classes, Controls, SysUtils,
//
WSControls, LCLType, LMessages, LCLProc, Graphics, Forms,
@ -1372,11 +1372,29 @@ end;
class function TCocoaWSWinControl.GetCanvasScaleFactor(const AControl: TControl
): Double;
var
obj: NSObject;
win: NSWindow;
begin
win := nil;
Result := 1;
if TWinControl(AControl).HandleAllocated then
Result := TCocoaWindow(TWinControl(AControl).Handle).backingScaleFactor // ToDo: use userSpaceScaleFactor for Mac OSX 10.6
else
Result := 1;
begin
obj := NSObject(TWinControl(AControl).Handle);
if obj.isKindOfClass_(NSView) then
win := NSView(obj).window
else if obj.isKindOfClass_(NSWindow) then
win := NSWindow(obj);
end;
if Assigned(win) then
begin
if win.respondsToSelector( NSSelectorFromString(NSSTR('backingScaleFactor'))) then
Result := win.backingScaleFactor
else if win.respondsToSelector( NSSelectorFromString(NSSTR('userSpaceScaleFactor'))) then // for older OSX
Result := win.userSpaceScaleFactor;
end;
end;
class procedure TCocoaWSWinControl.SetText(const AWinControl: TWinControl; const AText: String);