BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
<>具体如下：</P>
0 z! l7 X; G+ J. W; I<>在窗口类的CreateParam()成员函数中加入如下语句：
0 m  n4 `! {0 H+ [4 C' [" v6 OParams.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
3 N  q: j9 L6 b4 f# n仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
Params.Width=800;
3 r& p( A- m8 N: P& R9 G" uParams.Height=600;
Params.X=Params.Y=0;
第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
<>BOOL ChangeResolution(DWORD w, DWORD h) {
DEVMODE devMode;
3 U7 m7 g: {" J  P! X6 Y7 ]LONG modeSwitch;
$ F* T7 U  S$ {% f$ d! CLONG i;
9 N* Z  J) ?  Z/ ^CHAR buf[256];
9 I3 M$ E* Y5 i0 [8 x  j$ g. M# ?i = 0;
; z2 Y  V4 ~7 [9 z6 v0 S+ d8 N( xdo {
3 m3 b: y% K" T, FmodeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
} while(( (devMode.dmBitsPerPel!=16)
  ^) m1 B: ?2 _6 ~) |4 x||(devMode.dmPelsWidth != w)
  ~3 o6 A/ @7 \4 P||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
+ S0 h( o) L* t; j1 a; X$ F- lif (!modeSwitch) { }
else {
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
; p& ?/ S5 L( s' U0 l9 N# I0 I{
//Might be running in Windows95, let's try without the hertz change
devMode.dmBitsPerPel = 16;
devMode.dmPelsWidth = w;
devMode.dmPelsHeight = h;
, b2 b+ P$ \6 Q! ~devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
$ v/ M, q( ]4 p9 a: v5 p* |  U}
}
return TRUE;
}
样本程序
说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>