- Function osRenderContext30Create(AWindow: TWindowID;
- ASharedContext: TRenderContextID)
- : TRenderContextID;
- Const
- DO_DIRECT_RENDERING: BYTEBOOL = TRUE;
- Var
- // Specify the Context attributes
- FBAttrib: Array[0..5] Of LongInt = (
- GLX_CONTEXT_MAJOR_VERSION_ARB, 3,
- GLX_CONTEXT_MINOR_VERSION_ARB, 3,
- 0, 0
- );
- LocalContextPtr,LocalSharedContextPtr: GLXContext; // Pointer
- LocalContextAsUInt: LongWord;
- IsActive: LongBool;
- Begin
- LocalSharedContextPtr:= GLXContext(ASharedContext);
- LocalContextPtr:= glxCreateContextAttribsARB(XDisplay,
- FBConfig,
- LocalSharedContextPtr,
- DO_DIRECT_RENDERING,
- @FBAttrib);
- // First map window, then activate Rendering context
- osWindowDisplay(AWindow,TRUE);
- LocalContextAsUInt:= LongWord(LocalContextPtr);
- IsActive:= osRenderContextActivate(AWindow,LocalContextAsUInt);
- Result:= LocalContextAsUInt;
- End;