- if ForwardCompatible then
- begin
- SetLength(Attribs, Length(Attribs)+2);
- Attribs[4] := WGL_CONTEXT_FLAGS_ARB;
- Attribs[5] := WGL_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB;
- end
- else
- begin
- SetLength(Attribs, Length(Attribs)+2);
- Attribs[4] := WGL_CONTEXT_PROFILE_MASK_ARB;
- Attribs[5] := WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB;
- end;