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

Cocoa: Allow sharing OpenGL context resources

Browse Source
This commit is contained in:
Michalis Kamburelis 2022-05-23 01:56:13 +01:00 committed by Maxim Ganetsky
parent 7995fdd441
commit 06215a7aa2
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/opengl/glcocoanscontext.pas
View File

@ -14,7 +14,6 @@
Mouse:
the TLCLCommonCallback mouse handlers check Owner.isEnabled, which
for a NSView always returns false.
SharedControl
}
unit GLCocoaNSContext;
@ -67,7 +66,6 @@ type
TCocoaOpenGLView = objcclass(NSOpenGLView)
public
Owner: TWinControl;
//nsGL: NSOpenGLContext;
callback: TLCLCommonCallback;
backingScaleFactor: Single;
function acceptsFirstResponder: LCLObjCBoolean; override;
@ -189,8 +187,7 @@ var
PixFmt: NSOpenGLPixelFormat;
p: NSView;
ns: NSRect;
aNSOpenGLContext: NSOpenGLContext;
CGLContext: CGLContextObj;
aNSOpenGLContext, SharedContext: NSOpenGLContext;
begin
Result:=0;
p := nil;
@ -204,7 +201,12 @@ begin
Attrs:=CreateOpenGLContextAttrList(DoubleBuffered,MajorVersion,MinorVersion, MultiSampling,AlphaBits,DepthBits,StencilBits,AUXBuffers);
try
PixFmt:=NSOpenGLPixelFormat(NSOpenGLPixelFormat.alloc).initWithAttributes(Attrs);
aNSOpenGLContext:=NSOpenGLContext(NSOpenGLContext.alloc).initWithFormat_shareContext(PixFmt,nil);
{ Use SharedControl to share OpenGL resources with another TOpenGLControl instance }
if SharedControl <> nil then
SharedContext := TCocoaOpenGLView(SharedControl.Handle).openGLContext
else
SharedContext := nil;
aNSOpenGLContext:=NSOpenGLContext(NSOpenGLContext.alloc).initWithFormat_shareContext(PixFmt,SharedContext);
if aNSOpenGLContext = nil then
debugln(['LOpenGLCreateContext Error']);
View := TCocoaOpenGLView(TCocoaOpenGLView.alloc).initWithFrame_pixelFormat(ns,PixFmt);
@ -217,7 +219,9 @@ begin
p.addSubview(View);
SetViewDefaults(View);
View.Owner:=AWinControl;
//View.nsGL := aNSOpenGLContext;
{ If we wouldn't set View.openGLContext, it would get automatically created.
But then aNSOpenGLContext is ignored, and so SharedContext and SharedControl don't work. }
View.setOpenGLContext(aNSOpenGLContext);
View.callback:=TLCLCommonCallback.Create(View, AWinControl);
LSetWantsBestResolutionOpenGLSurface(AMacRetinaMode, HWND(View));
//View.setPixelFormat(PixFmt);