BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
' @0 t4 R. ~# G( E' H  h8 j0 ?<>具体如下：</P>
( M" w8 T7 y1 ~0 ?1 b7 V; I+ [<>在窗口类的CreateParam()成员函数中加入如下语句：
Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
6 ?( A$ |8 r+ u. m* l2 Z仍在窗口类的CreateParam()成员函数，加入如下语句：
" \- v) K: I# `9 |1 tChangeResolution(800,600);
Params.Width=800;
Params.Height=600;
' _# R# N* H$ j! f% u; _Params.X=Params.Y=0;
4 o4 _6 I/ `, ^2 D3 \: ^' c0 \第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
然后修改窗体大小使之占满全屏。
8 T; q/ N% T! v2 GChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
, C4 V2 J: F6 f7 o/ R5 r用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
; A  S- h4 |; C. \<>BOOL ChangeResolution(DWORD w, DWORD h) {
( l+ ]4 M% l2 u7 Q$ l- NDEVMODE devMode;
- O9 u1 p2 y: @; e. w3 KLONG modeSwitch;
2 j6 L8 V9 K& r9 C# X/ f8 }LONG i;
3 \6 ^+ t3 [+ y. m$ W4 DCHAR buf[256];
i = 0;
+ Z2 m. T6 F' |7 `, Ndo {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
  ]# ?- q& J6 K, @} while(( (devMode.dmBitsPerPel!=16)
||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
5 r: T7 @0 C$ ^) ?&amp;&amp; (modeSwitch) );
% N: v' ?+ J/ J8 [, O+ B/* Okay see if we found a mode */
& S) s+ U' {1 t2 f" j7 @& J4 nif (!modeSwitch) { }
5 r8 L. A, d6 [5 n  Gelse {
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
  ^2 j) @# w0 [! q+ O# A3 \if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
{
" b, F6 w6 `' c9 Z: O//Might be running in Windows95, let's try without the hertz change
+ V6 @- f9 L4 B& X. q, hdevMode.dmBitsPerPel = 16;
+ j1 J( A+ o& e+ c! h# j( i, ydevMode.dmPelsWidth = w;
6 C% V- a% b4 ydevMode.dmPelsHeight = h;
8 ?8 b0 `# [' i+ ~- e0 ndevMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
) ^  @  g( y8 ^- w( EmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
}
}
/ d: ^: c4 {/ M4 z- Breturn TRUE;
}
样本程序
  c" i  @0 b' N: L说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>