BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
4 K$ h- {. |0 V0 ]7 X( v# V. q5 Z<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
! N" \# x) G/ ?& v将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
4 B* V) D2 o7 W# r8 d仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
Params.Width=800;
+ Z$ D' O& l: h' v8 uParams.Height=600;
; D+ n$ j1 z/ A: R0 B; k7 y. A3 [Params.X=Params.Y=0;
0 X, ]" n5 w9 e7 ?* @* B第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
4 m& B* u' i; \; h$ J用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
& T, |' a( r2 p' G' N用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
% ]" X# d: Q/ ]; r- D<>BOOL ChangeResolution(DWORD w, DWORD h) {
DEVMODE devMode;
LONG modeSwitch;
LONG i;
7 y% G2 r6 F( ACHAR buf[256];
i = 0;
do {
# d# H7 u1 W4 k8 v8 |0 hmodeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
} while(( (devMode.dmBitsPerPel!=16)
( `4 X( M$ R9 A. u  Q||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
( ~6 K' i% G# E% F2 u8 R# c&amp;&amp; (modeSwitch) );
- ^: q& P6 M& Z, U+ X/* Okay see if we found a mode */
if (!modeSwitch) { }
else {
# x" {8 x$ w2 u5 R1 f# [: LmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
{
//Might be running in Windows95, let's try without the hertz change
devMode.dmBitsPerPel = 16;
devMode.dmPelsWidth = w;
  u: n6 M' O% p4 |devMode.dmPelsHeight = h;
" e  M. U9 g, W# x) z7 y$ ^devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
9 m$ ], D% j. Q: S1 V}
% l2 u2 p" n; }4 a; j! o}
: w" @7 B; x- L' G3 R( areturn TRUE;
}
样本程序
( j  {9 o/ \1 d说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>