- with pfd do
- begin
- nSize := SizeOf(TPIXELFORMATDESCRIPTOR);
- nVersion := 1;
- dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
- iPixelType := PFD_TYPE_RGBA;
- cColorBits := 32;
- cRedBits := 0;
- cRedShift := 0;
- cGreenBits := 0;
- cGreenShift := 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;
- end;
- Pixelformat := ChoosePixelFormat(Handle, @pfd);