BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
<>具体如下：</P>
* n& E* v/ A4 k; w' ?0 ?; [. _<>在窗口类的CreateParam()成员函数中加入如下语句：
- q! w% b6 ~) O  H* n! k% rParams.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
/ a6 U" ~/ Z4 V/ a0 @3 d# M将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
5 d0 C7 H' k& e' {5 NParams.Width=800;
Params.Height=600;
: i/ X0 Y- O+ F; c" VParams.X=Params.Y=0;
' g) V' M. R; m4 U0 p第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
然后修改窗体大小使之占满全屏。
. }' D6 `/ w0 m: K- B- gChangeResolution()是一个自编的小函数，其原理如下：
/ o8 Y, u' O: [7 i用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
$ m2 G% b0 Z/ [4 B<>BOOL ChangeResolution(DWORD w, DWORD h) {
! u! L" v& f, [/ G6 s& \( LDEVMODE devMode;
# s8 b6 C2 `5 Z! ~# s! p9 a4 |# L; ALONG modeSwitch;
# }5 R+ o" V( M* hLONG i;
CHAR buf[256];
i = 0;
& y( Y8 r* b; q  k* K- o& hdo {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
( |, Y4 J  A% {& I} while(( (devMode.dmBitsPerPel!=16)
||(devMode.dmPelsWidth != w)
+ `# @- e, s0 {0 Y0 t||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
if (!modeSwitch) { }
else {
& n# l5 z7 I+ j9 Y2 j. JmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
% J# Z8 ~5 N  f7 ~) l/ G0 _( Jif (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
0 R2 T, O+ t& `{
//Might be running in Windows95, let's try without the hertz change
' A0 g2 k2 E; R: W' _devMode.dmBitsPerPel = 16;
devMode.dmPelsWidth = w;
+ n+ y- j. R' ?9 N" m; ^devMode.dmPelsHeight = h;
6 N  u$ `- g6 p4 `devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
}
}
return TRUE;
4 m8 g) W, B0 s# K0 p& o/ G. p}
3 a- |* G8 i6 v. X  M( R& A2 r* r" _7 z样本程序
说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>