用Delphi進行OpenGL編程學習心得(2)

也可以向下面這樣進行設置如：

var pfd: PixelFormatDescriptor;
　　nPixelFormat : Integer;
begin
　FillChar(pfd,SizeOf(pfd),0);
　with pfd do
　begin
　　nSize:=sizeof(pfd);
　　nVersion:=1;
dwFlags:=PFD_SUPPORT_OPENGL
or PFD_DRAW_TO_BITMAP
　　　　　　　　　　or PFD_DOUBLEBUFFER;
　　iPixelType:=PFD_TYPE_RGBA;
　　cColorBits:=32;
　　cDepthBits:=32;
　　iLayerType:=Byte（PFD_MAIN_PLANE);
　end;
　nPixelFormat:=ChoosePixelFormat(DC,@pfd);
　SetPixelFormat(DC,nPixelFormat,@pfd);
{ // 使用DescribePixelFormat檢查象素格式是否設置正確
　DescribePixelFormat(DC,nPixelFormat,SizeOf(pfd),@pfd);
if (pfd.dwFlags and PFD_NEED_PALETTE)
＜ ＞ 0 then SetupPalette(DC,pfd);
//SetupPalette是自定義函數
}end；

上述工作完成以後，最好先運行一遍，並檢查nPixelFormat的值。正常的話，該值應該是大於0的，否則就有問題。同樣的代碼，我在NT機器上能夠得到正確的大於0的值而在PWIN97或98的機器上得不到正確值，但是編譯時不會有問題，而且NT上編譯後在PWIN97機器上也能夠正確運行。現在可以創建著色描述表（RC）了。調用函數wglCreateContext、wglMakeCurrent，如下例示：

RC：HGLRC；
RC:=wglCreateContext(DC);
wglMakeCurrent(DC,RC);

在程序結束之前，要記得釋放所占用的資源。

wglMakeCurrent(0,0);
　if RC＜ ＞null then
　　wglDeleteContext(RC);
　if ghDC＜ ＞null then
　　ReleaseDC(Handle,DC);