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

opengl: comments

Browse Source 
git-svn-id: trunk@49639 -
This commit is contained in:
mattias 2015-08-11 09:45:03 +00:00
parent 73a5b52394
commit 806a858149
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/opengl/glcarbonaglcontext.pas
View File

@ -100,17 +100,16 @@ var
begin
Control:=TCarbonCustomControl(Handle);
Info:=GetAGLControlInfo(Control.Widget);
debugln(['LOpenGLMakeCurrent AAA0']);
debugln(['LOpenGLMakeCurrent got ingo...']);
if Info=nil then exit;
AGLContext:=Info^.AGLContext;
aglSetCurrentContext(AGLContext);
debugln(['LOpenGLMakeCurrent AAA1 ',dbgs(Handle)]);
debugln(['LOpenGLMakeCurrent AAA2']);
debugln(['LOpenGLMakeCurrent set current ',dbgs(Handle)]);
Form:=GetParentForm(Info^.WinControl);
debugln(['LOpenGLMakeCurrent AAA3']);
debugln(['LOpenGLMakeCurrent got parent form: ',DbgSName(Form)]);
Win:=TCarbonWindow(Form.Handle).Window;
debugln(['LOpenGLMakeCurrent ']);
debugln(['LOpenGLMakeCurrent set clipping ...']);
//GetWindowPortBounds(Win,b);
clipRgn:=NewRgn;
SetRectRgn(clipRgn,10,10,100,100);
@ -215,8 +214,8 @@ begin
InstallControlEventHandler(Control.Widget, RegisterEventHandler(@CarbonGLControl_Resize),
1, @TempSpec, Control, nil);
TempSpec:=MakeEventSpec(kEventClassControl, kEventControlOwningWindowChanged);
// The control might be embeded into a window, after the its creation
// the example of the situation is give at bug report #17244
// The control might be embeded into a window after its creation.
// See example for this in bug report #17244
InstallControlEventHandler(Control.Widget, RegisterEventHandler(@CarbonGLControl_WindowChange),
1, @TempSpec, Control, nil);