Форум программистов [Powered by Invision Power Board]

Код

function InitMultisample(hInstance: HINST; hWnd: HWND; pfd: PIXELFORMATDESCRIPTOR): boolean;  // Inicializace multisamplingu
var
  wglChoosePixelFormatARB: function(hdc: HDC; const piAttribIList: PGLint; const pfAttribFList: PGLfloat; nMaxFormats: GLuint; piFormats: PGLint; nNumFormats: PGLuint): BOOL; stdcall;
  h_dc: HDC;
  pixelFormat: integer;
  valid: boolean;
  numFormats: UINT;
  fAttributes: array of GLfloat;
  iAttributes: array [0..11] of integer;
begin
  if not WGLisExtensionSupported('WGL_ARB_multisample') then                    
    begin
    arbMultisampleSupported := false;
    Result := false;
    exit;
    end;
  wglChoosePixelFormatARB := wglGetProcAddress('wglChoosePixelFormatARB');      
  if not Assigned(wglChoosePixelFormatARB) then                                          
    begin
    arbMultisampleSupported := false;
    Result := false;
    exit;
    end;
  h_dc := GetDC(hWnd);


  iAttributes[0]  := WGL_DRAW_TO_WINDOW_ARB;
  iAttributes[1]  := 1;
  iAttributes[2]  := WGL_SUPPORT_OPENGL_ARB;
  iAttributes[3]  := 1;
  iAttributes[4]  := WGL_SAMPLE_BUFFERS_ARB;
  iAttributes[5]  := 1;
  iAttributes[6]  := WGL_SAMPLES_ARB;
  iAttributes[7]  := 4;
  iAttributes[8]  := WGL_DOUBLE_BUFFER_ARB;
  iAttributes[9]  := 1;
  iAttributes[10] := 0;
  iAttributes[11] := 0;

  valid := wglChoosePixelFormatARB(h_dc,@iattributes,@fattributes,1,@pixelFormat,@numFormats);
  if valid and (numFormats >= 1) then                                          
    begin
    arbMultisampleSupported := true;
    arbMultisampleFormat := pixelFormat;
    Result := arbMultisampleSupported;
    exit;
    end;
  iAttributes[7] := 2;                                                        
  valid := wglChoosePixelFormatARB(h_dc,@iAttributes,@fAttributes,1,@pixelFormat,@numFormats);
  if valid and (numFormats >= 1) then
    begin
    arbMultisampleSupported := true;
    arbMultisampleFormat := pixelFormat;
    Result := arbMultisampleSupported;
    exit;
    end;
  Result :=  arbMultisampleSupported;                                           
end;