BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
; ]& N8 J3 w2 A. k7 ~/ J& k<>具体如下：</P>
; W% t1 @$ ]. @3 |! C<>在窗口类的CreateParam()成员函数中加入如下语句：
Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
仍在窗口类的CreateParam()成员函数，加入如下语句：
: O& }9 }7 F9 }# U: ~& wChangeResolution(800,600);
Params.Width=800;
7 [: s; r8 j3 eParams.Height=600;
/ ?: u) f$ j2 g+ ^! @4 MParams.X=Params.Y=0;
第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
4 _; `, M: z  x然后修改窗体大小使之占满全屏。
. E9 L2 h! C& K' z) ?$ f$ LChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
& J: Q1 }5 m0 M* fChangeResolution()的完整代码：</P>
/ N% v+ r# X: `* ]<>BOOL ChangeResolution(DWORD w, DWORD h) {
DEVMODE devMode;
LONG modeSwitch;
LONG i;
5 [+ U- _2 O5 VCHAR buf[256];
i = 0;
: v2 Q' H4 K  ?1 m7 Ydo {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
0 Q" `2 n$ A8 _9 l1 q! }i++;
} while(( (devMode.dmBitsPerPel!=16)
  b' h$ k6 Z5 }( S1 q||(devMode.dmPelsWidth != w)
3 a. e9 S. _, D2 y' E||(devMode.dmPelsHeight != h) )
* L+ B8 Y- E8 y9 M9 ]/ A7 ^&amp;&amp; (modeSwitch) );
( w% g5 _; p/ X* ^3 P/* Okay see if we found a mode */
; k  I9 P- ~  _# u- J7 J; Oif (!modeSwitch) { }
else {
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
: R$ y. p+ S7 ]% j2 m{
//Might be running in Windows95, let's try without the hertz change
devMode.dmBitsPerPel = 16;
devMode.dmPelsWidth = w;
devMode.dmPelsHeight = h;
devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
6 {) g' K/ R; g! x* Q% BmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
}
# K: v: O- [- w5 x) n}
$ k- l# V; q' e3 z  t& Ureturn TRUE;
}
样本程序
说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>