paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 02:40:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

openglctrl: implement CarbonOpenGL control-only drawing. bug #17244

Browse Source 
git-svn-id: trunk@27164 -
This commit is contained in:
dmitry 2010-08-22 17:57:03 +00:00
parent 175c321577
commit 0544c85136
1 changed files with 41 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
components/opengl/glcarbonaglcontext.pas
View File

@ -115,6 +115,36 @@ begin
DisposeRgn(clipRgn);
end;
procedure ResizeOGLControl(AWidget: TCarbonWidget);
var
info : PAGLControlInfo;
r : array [0..3] of Integer;
bnd : HIRect;
str : MacOSAll.Rect;
begin
info:=GetAGLControlInfo(AWidget.Widget);
if not Assigned(info) then Exit;
HIViewGetBounds(AWidget.Widget, bnd);
HIViewConvertPoint(bnd.origin, AWidget.Widget, nil);
GetWindowBounds( HIViewGetWindow(AWidget.Widget), kWindowStructureRgn, str);
r[0]:=Round(bnd.origin.x);
r[1]:=Round((str.bottom-str.top)- bnd.origin.y-bnd.size.height);
r[2]:=Round(bnd.size.width);
r[3]:=Round(bnd.size.height);
aglEnable(info^.aglContext, AGL_BUFFER_RECT);
aglSetInteger(info^.aglContext, AGL_BUFFER_RECT, @r[0]);
end;
function CarbonGLControl_Resize(ANextHandler: EventHandlerCallRef;
AEvent: EventRef;
AWidget: TCarbonWidget): OSStatus; {$IFDEF darwin}mwpascal;{$ENDIF}
begin
Result:=CallNextEventHandler(ANextHandler, AEvent);
ResizeOGLControl(AWidget);
end;
function LOpenGLCreateContext(AWinControl: TWinControl;
WSPrivate: TWSPrivateClass; SharedControl: TWinControl;
DoubleBuffered, RGBA: boolean;
@ -127,6 +157,7 @@ var
AttrList: PInteger;
C: TCreateParams;
AGLInfo: PAGLControlInfo;
TempSpec: EventTypeSpec;
begin
Result:=0;
if AWinControl.Parent=nil then
@ -148,16 +179,19 @@ begin
aglContext := aglCreateContext (aglPixFmt, NIL);
aglDestroyPixelFormat(aglPixFmt);
// use the carbon window.
// TODO: find a way to use only the control for the context
aglSetDrawable(aglContext,
GetWindowPort(TCarbonWindow(GetParentForm(AWinControl).Handle).Window));
AGLControlInfo_FOURCC := MakeFourCC('ACI ');
AGLInfo:=CreateAGLControlInfo(Control.Widget, AGLContext, AWinControl);
if AGLInfo<>GetAGLControlInfo(Control.Widget) then
RaiseGDBException('GLCarbonAGLContext.LOpenGLCreateContext inconsistency');
ResizeOGLControl(Control);
TempSpec:=MakeEventSpec(kEventClassControl, kEventControlBoundsChanged);
InstallControlEventHandler(Control.Widget, RegisterEventHandler(@CarbonGLControl_Resize),
1, @TempSpec, Control, nil);
Result:=HWnd(Control);
//debugln(['LOpenGLCreateContext ',dbgs(Result)]);
end;
@ -250,5 +284,9 @@ begin
Result:=GetAGLControlInfo(TCarbonCustomControl(Control).Widget)^.AGLContext;
end;
initialization
finalization
end.