BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
# Y, }* ]' Z8 b7 E, t$ a<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
+ D$ U1 Z4 O7 b4 ]5 o8 x7 HParams.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
  R% S" W' H7 ?9 ^" p( G2 e仍在窗口类的CreateParam()成员函数，加入如下语句：
# u! N6 ^, n2 _7 O: nChangeResolution(800,600);
Params.Width=800;
Params.Height=600;
Params.X=Params.Y=0;
第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
1 ^  w; r3 M: w! k; [然后修改窗体大小使之占满全屏。
$ u/ j6 Z! T- JChangeResolution()是一个自编的小函数，其原理如下：
. q+ \! I5 A. F$ {% o$ x  r7 r用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
<>BOOL ChangeResolution(DWORD w, DWORD h) {
- h7 R: [4 I6 \- u2 u0 V9 ]: P: S( ]DEVMODE devMode;
LONG modeSwitch;
) t& C* A+ ]& r+ W# u4 g+ gLONG i;
( h7 K- m0 B+ }: G4 ]" X' UCHAR buf[256];
, T1 L/ V# \( F: S# M* l$ yi = 0;
do {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
: n7 T( ~- v- s& [5 n# z" c} while(( (devMode.dmBitsPerPel!=16)
3 l) [* [: G+ G$ i4 W||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
: @! `& Z3 M9 E6 D: Q/ @% n, L/* Okay see if we found a mode */
/ T( P9 f( b1 o7 V: M- m# ?$ uif (!modeSwitch) { }
else {
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
( f# B) f; T& Lif (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
% K1 M0 ?5 N+ z! b9 _; Y) d3 P{
//Might be running in Windows95, let's try without the hertz change
9 [  ?  [$ I5 K, F1 K, YdevMode.dmBitsPerPel = 16;
devMode.dmPelsWidth = w;
devMode.dmPelsHeight = h;
devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
& w6 b8 H% S4 Q9 ^. F& \}
}
# ~0 l: [6 L2 u9 Wreturn TRUE;
; ^8 Z4 C8 {  ^/ F. R7 ^}
1 X* v+ r% H1 w样本程序
3 H5 }+ _$ k5 u& c# J说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>