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

opengl: getting rid of cocoa GetNSObjectView

Browse Source 
git-svn-id: trunk@61767 -
This commit is contained in:
dmitry 2019-08-27 19:25:49 +00:00
parent 6a0eef0c01
commit 159d5cc8cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/opengl/glcocoanscontext.pas
View File

@ -195,7 +195,7 @@ begin
Result:=0; Result:=0;
p := nil; p := nil;
if (AParams.WndParent <> 0) then if (AParams.WndParent <> 0) then
p := CocoaUtils.GetNSObjectView(NSObject(AParams.WndParent)); p := NSObject(AParams.WndParent).lclContentView;
if Assigned(p) then if Assigned(p) then
LCLToNSRect(types.Bounds(AParams.X, AParams.Y, AParams.Width, AParams.Height), LCLToNSRect(types.Bounds(AParams.X, AParams.Y, AParams.Width, AParams.Height),
p.frame.size.height, ns) p.frame.size.height, ns)