BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
. v$ I6 G! Z4 t  I: c将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
. F# }; c4 f# }! T, q仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
: V) I" Z& [( ~7 J1 ~" i, z- J& J# nParams.Width=800;
Params.Height=600;
Params.X=Params.Y=0;
- X3 x! z7 b) s+ t+ l5 K第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
然后修改窗体大小使之占满全屏。
- C3 ?. a( P* U! ~/ L. rChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
" c" B$ X! I- m+ e6 }* M<>BOOL ChangeResolution(DWORD w, DWORD h) {
3 Z! P  G+ m' O( }' E0 gDEVMODE devMode;
LONG modeSwitch;
) W5 X8 ]/ L3 N9 U" J4 rLONG i;
0 f' Z8 V2 f5 ~  ^; zCHAR buf[256];
i = 0;
$ o5 h- r: p/ f7 \do {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
7 C! G$ @8 \3 _( i; r} while(( (devMode.dmBitsPerPel!=16)
||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
7 _) i0 o4 V) S  {7 ^. g&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
if (!modeSwitch) { }
else {
3 |% I9 O8 o5 S0 T8 R+ UmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
8 j6 T5 j% c; ~$ e: B$ z6 Lif (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
{
//Might be running in Windows95, let's try without the hertz change
# ^. z  _- t2 W' k. K8 C( y" c; PdevMode.dmBitsPerPel = 16;
& x+ i8 x, q/ @; I2 B% t, hdevMode.dmPelsWidth = w;
devMode.dmPelsHeight = h;
$ t* V! X# y* R* e# NdevMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
* ?- ~; j; T: E9 g  \modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
" R0 _" r- V* I. ]}
}
return TRUE;
}
: q/ C. G) X+ h3 c3 A$ b% s  f样本程序
: M( \" z9 h0 @: T: X: y$ U- T说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>