1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TSonnensystem.SetDCPixelFormat(Handle: HDC);
var
  nPixelFormat: GLUint;
const
  pfd          : PIXELFORMATDESCRIPTOR = (
      nSize    : sizeof( PIXELFORMATDESCRIPTOR );
      nVersion : 1;
      dwFlags  : PFD_DRAW_TO_WINDOW
      or PFD_SUPPORT_OPENGL
      or PFD_DOUBLEBUFFER;
      iPixelType      : PFD_TYPE_RGBA;
      cColorBits      : 16;
      cRedBits        : 0;
      cRedShift       : 0;
      cGreenBits      : 0;
      cBlueBits       : 0;
      cBlueShift      : 0;
      cAlphaBits      : 0;
      cAlphaShift     : 0;
      cAccumBits      : 0;
      cAccumRedBits   : 0;
      cAccumGreenBits : 0;
      cAccumBlueBits  : 0;
      cAccumAlphaBits : 0;
      cDepthBits      : 16;
      cStencilBits    : 0;
      cAuxBuffers     : 0;
      iLayerType      : PFD_MAIN_PLANE;
      bReserved       : 0;
      dwLayerMask     : 0;
      dwVisibleMask   : 0;
      dwDamageMask    : 0
  );
begin
    nPixelFormat:=ChoosePixelFormat(h_DC, @pfd);
    SetpixelFormat(h_DC,nPixelFormat,@pfd);
end;