Delphi-Quellcode:
// ARB wgl extensions
wglGetExtensionsStringARB:
function(
DC: HDC): PChar;
stdcall;
{$EXTERNALSYM wglGetExtensionsStringARB}
wglGetPixelFormatAttribivARB:
function(
DC: HDC; iPixelFormat, iLayerPlane: Integer; nAttributes: Cardinal;
const piAttributes: PInteger; piValues : PInteger) : BOOL;
stdcall;
{$EXTERNALSYM wglGetPixelFormatAttribivARB}
wglGetPixelFormatAttribfvARB:
function(
DC: HDC; iPixelFormat, iLayerPlane: Integer; nAttributes: Cardinal;
const piAttributes: PInteger; piValues: PGLFloat) : BOOL;
stdcall;
{$EXTERNALSYM wglGetPixelFormatAttribfvARB}
wglChoosePixelFormatARB:
function(
DC: HDC;
const piAttribIList: PInteger;
const pfAttribFList: PGLFloat;
nMaxFormats: Cardinal; piFormats: PInteger; nNumFormats: PCardinal) : BOOL;
stdcall;
{$EXTERNALSYM wglChoosePixelFormatARB}
{$endif}
Hier ist ein Code aus der OpenGL12 die aufgerufen wird.Da kommt halt die fehlermeldung.
Habe in der Unit1 unter Type neu deklariert wie vorgeschlagen aber funzt leider trotzdem nicht.