BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
: }/ t: D9 X' K+ U<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
$ I7 P# \' _1 J' ]$ p# n仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
Params.Width=800;
Params.Height=600;
6 U! Z' }* J( \% D( D' qParams.X=Params.Y=0;
- \& h  n; J& M; ?第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
然后修改窗体大小使之占满全屏。
/ F$ [) q. S8 \  AChangeResolution()是一个自编的小函数，其原理如下：
, e/ J: c6 x# {4 o4 d0 g- \  M用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
/ D& P& U3 N: FChangeResolution()的完整代码：</P>
; y4 g$ b0 \5 c<>BOOL ChangeResolution(DWORD w, DWORD h) {
DEVMODE devMode;
LONG modeSwitch;
( x- ~. g( w& S' h4 r, xLONG i;
0 s9 @1 p, T9 b9 X# G) pCHAR buf[256];
+ [# D9 R. T8 [3 t/ K/ [i = 0;
do {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
3 p1 v' R( Q4 e, c& J$ E& ^i++;
} while(( (devMode.dmBitsPerPel!=16)
||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
" ~% B6 C; G! Q  r3 O* q8 p" m# w&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
6 p+ @: Q* X6 M) Eif (!modeSwitch) { }
4 _: u6 `! ~& G7 M3 e2 \) n0 b* ielse {
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
{
//Might be running in Windows95, let's try without the hertz change
devMode.dmBitsPerPel = 16;
" Q; i7 O. |" ?: O& C3 x* W1 e( E- EdevMode.dmPelsWidth = w;
6 Q: X' q7 g8 ^4 L. o( ?2 ddevMode.dmPelsHeight = h;
devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
9 c/ C: [- _5 ~4 }}
}
return TRUE;
}
2 x2 U& Z+ \$ A7 M5 f; g$ j样本程序
+ T$ z) X; v1 t9 ^" f# h说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>