paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 10:42:49 +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;
p := nil;
if (AParams.WndParent <> 0) then
p := CocoaUtils.GetNSObjectView(NSObject(AParams.WndParent));
p := NSObject(AParams.WndParent).lclContentView;
if Assigned(p) then
LCLToNSRect(types.Bounds(AParams.X, AParams.Y, AParams.Width, AParams.Height),
p.frame.size.height, ns)