freepascal.ru

Код: Выделить всё

  устройство GDI Generic
  производитель Microsoft Corporation
  версия драйвера 1.1.0 

Код: Выделить всё

        with pfd do
        begin
          nSize           := SizeOf(TPIXELFORMATDESCRIPTOR); // Size Of This Pixel Format Descriptor
          nVersion        := 1;                    // The version of this data structure
          dwFlags         := PFD_DRAW_TO_WINDOW    // Buffer supports drawing to window. Should be off for Voodoo2 ?..
                             or PFD_SUPPORT_OPENGL // Buffer supports OpenGL drawing
                             or PFD_DOUBLEBUFFER;  // Supports double buffering
          iPixelType      := PFD_TYPE_RGBA;        // RGBA color format
          //cColorBits      := 32;                   // OpenGL color depth
          //cDepthBits      := 16;
          iLayerType      := PFD_MAIN_PLANE;       // Ignored
        end;

        // Пытаемся подобрать формат пикселя, поддерживаемый контекстом устройства,
        //  наиболее близкий к желаемому... Почему-то очень часто роняло Win98
        //  если запрашивался буфер глубины больше 16 бит... :(
        // P.S. Сколько лет этому куску кода?
        if Mother^.Debug.Verbose then AddLog('Calling wglChoosePixelFormat()...');
        // in Win98 calling ChoosePixelFormat() often caused a system-wide crash... :(

        PixelFormat := wglChoosePixelFormat(display, @pfd);
        if (PixelFormat = 0)
          then Die(MI_ERROR_CANTINITOPENGL,['wglChoosePixelFormat() returned 0']);

        if Mother^.Debug.Verbose then AddLog('chosen pixel format = %0.',[PixelFormat]);

        // Устанавливаем для нашего контекста устройства подобранный формат пикселя
        if not wglSetPixelFormat(display, PixelFormat, @pfd)
          then  Die(MI_ERROR_CANTINITOPENGL,['wglSetPixelFormat() returned FALSE.']);

        // Создаём рисовальный контекст OpenGL..
        RenderingContext := wglCreateContext(display);
        if (RenderingContext = 0)
          then Die(MI_ERROR_CANTINITOPENGL, ['wglCreateContext() returned 0']);

        if Mother^.Debug.Verbose then AddLog('rendering context = %0',[RenderingContext]);

        // ..и делаем его текущим.
        if (not wglMakeCurrent(display, RenderingContext))
          then Die(MI_ERROR_CANTINITOPENGL, ['wglMakeCurrent() call failed']);

Код: Выделить всё

NVIDIA Corporation
GeForce GT 330M/PCIe/SSE2