BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
9 g+ l. \' @4 ~9 `- @Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
! d9 d. Q$ j; q& _仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
Params.Width=800;
* Y5 K; R- D/ F: L* kParams.Height=600;
Params.X=Params.Y=0;
) {; n$ A) o3 T* e. T4 m; Q5 @第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
. ~2 I( y8 J0 W7 m$ M  m0 u然后修改窗体大小使之占满全屏。
7 K% R7 R, r' G! N" hChangeResolution()是一个自编的小函数，其原理如下：
7 u! N4 z( d2 n, ?9 b% A/ j' I用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
$ W' ~0 v. i5 t  ?+ f* \1 y<>BOOL ChangeResolution(DWORD w, DWORD h) {
* t  S* ~6 T  s- pDEVMODE devMode;
LONG modeSwitch;
LONG i;
9 s; r9 a. w. Y7 `4 iCHAR buf[256];
i = 0;
9 L6 H% t" c% M3 o+ vdo {
8 m" f  }( ?$ q0 D2 }" f4 V9 b, @modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
} while(( (devMode.dmBitsPerPel!=16)
1 C) W, q% s' ]; V) y||(devMode.dmPelsWidth != w)
1 Z! E/ T9 j& {  W7 j/ J; T( j- u4 q$ c||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
if (!modeSwitch) { }
else {
2 ?# P" o0 O& r/ X) YmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
4 R' f+ r4 |# g9 r1 d, Fif (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
* N7 W# w" _% w" W1 U{
//Might be running in Windows95, let's try without the hertz change
6 V5 S. v0 ?+ F6 W% y1 g3 ?devMode.dmBitsPerPel = 16;
7 q7 c& }+ M$ o- q5 VdevMode.dmPelsWidth = w;
# p, g7 s6 M% \7 OdevMode.dmPelsHeight = h;
& m$ I1 `' p. w) I2 rdevMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
' m/ z2 h4 {6 N9 GmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
# T& B* P# e& r) W}
}
return TRUE;
}
样本程序
说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>