BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
, N5 K2 Z" o$ C( D5 u1 q<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
% @6 x9 Y. k6 a5 t0 P7 EParams.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
0 w, K% b0 y/ Q; T7 a$ K- G& h; q将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
仍在窗口类的CreateParam()成员函数，加入如下语句：
, q" k5 t' W/ J) M$ FChangeResolution(800,600);
* x9 R2 R+ `7 Z0 g; LParams.Width=800;
Params.Height=600;
9 r# s7 ^* v( f# s, iParams.X=Params.Y=0;
/ C% T! G( b9 R" Y第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
) v' [7 c' v* t( p* }! \2 c$ ^" K然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
6 ]; Q/ x! Y' z" ?* m! r9 }用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
: F+ a! k& j- w/ S<>BOOL ChangeResolution(DWORD w, DWORD h) {
( s8 p' s2 l( _$ ~* sDEVMODE devMode;
/ ?$ D3 H: H; w( y& jLONG modeSwitch;
LONG i;
# B3 K/ F& @% O6 `1 g. DCHAR buf[256];
# u% e  {' `% J8 hi = 0;
do {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
} while(( (devMode.dmBitsPerPel!=16)
5 J- J' c: d4 X2 \||(devMode.dmPelsWidth != w)
8 T* x$ D2 k$ y7 S. I1 {||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
; {6 t0 N. z1 _" s6 P5 H, wif (!modeSwitch) { }
9 V) O, n) ?  D+ Relse {
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
{
4 k6 ^- {3 z9 c0 C4 e/ w1 _//Might be running in Windows95, let's try without the hertz change
. y: T! M6 n0 f7 sdevMode.dmBitsPerPel = 16;
; w# ]6 t8 i1 ]2 @) z, SdevMode.dmPelsWidth = w;
3 Y6 n& E: M. i, bdevMode.dmPelsHeight = h;
devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
) L) F/ F: o& q' vmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
}
+ l; V  Y# x4 ~}
return TRUE;
}
: ^3 u: K: Z4 b- P5 g0 g样本程序
说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>