BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
+ s) \$ |% L2 a; ?<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
, a% D5 f/ \6 S" YParams.Width=800;
Params.Height=600;
Params.X=Params.Y=0;
第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
) r3 C4 J6 W: E  ?, s用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
$ I. K" s4 v; m) T+ f用WINAPI：ChangeDisplaySettings()修改显示模式。
0 p+ f2 |# }( CChangeResolution()的完整代码：</P>
<>BOOL ChangeResolution(DWORD w, DWORD h) {
1 G7 ?8 t' W2 K/ c- DDEVMODE devMode;
LONG modeSwitch;
LONG i;
* V+ k- C2 g$ NCHAR buf[256];
i = 0;
; }) [. U2 M6 O0 r/ pdo {
- j$ M0 N$ {1 [modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
  s+ A4 y2 c4 B& S. a} while(( (devMode.dmBitsPerPel!=16)
' M0 V$ S7 X9 K- v' U# g& R||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
" w/ V2 i/ o$ V5 g: yif (!modeSwitch) { }
else {
0 V6 O. g6 f9 d0 K. ~modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
5 ~5 P% F+ [8 j0 uif (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
4 b; Q* S1 ^7 r5 {, N& {  {% R; y{
! K; n9 S) z6 I9 A7 f( Y7 |//Might be running in Windows95, let's try without the hertz change
devMode.dmBitsPerPel = 16;
devMode.dmPelsWidth = w;
: j& }1 p& f4 {8 E; ~& a" O$ mdevMode.dmPelsHeight = h;
devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
: w1 h- ^$ b  FmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
' l) A3 R7 r: S$ ^6 o3 T$ i}
}
5 ?1 F, U/ V" S5 h* Hreturn TRUE;
}
样本程序
' m( Y" c# N$ m7 ~( d" e3 V% K7 a说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>