BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
% F' N9 x2 g# OParams.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
( E# y/ [6 }6 R& k9 x将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
1 B2 Q" ]9 C3 t仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
Params.Width=800;
5 \' k; E! |* f6 \Params.Height=600;
' D2 ^, R5 _$ ^; D7 m; GParams.X=Params.Y=0;
) z4 S! }6 A8 t0 g' ^& \$ g第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
$ K! d9 x/ G: z1 Q) ]然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
6 Y8 _6 y2 y. [" F9 O0 ]用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
- s% J) }* {: t' R$ x6 F<>BOOL ChangeResolution(DWORD w, DWORD h) {
4 O8 L' ~6 F$ P4 E. V- f6 XDEVMODE devMode;
LONG modeSwitch;
6 K" h" F, k: o7 D+ }5 ALONG i;
& x' C) ]' l% ^+ p6 w0 NCHAR buf[256];
i = 0;
do {
' I: e# l( {; ^) N- g/ ImodeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
) k! a/ E2 j" ji++;
} while(( (devMode.dmBitsPerPel!=16)
||(devMode.dmPelsWidth != w)
) U: P5 g3 \# d4 U8 g0 n1 M||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
7 b! P5 y9 _) e2 e# B' Y3 rif (!modeSwitch) { }
else {
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;
devMode.dmPelsWidth = w;
. |; A' j  ~3 r; G, tdevMode.dmPelsHeight = h;
devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
2 Y  [" G# U2 i; umodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
2 D4 m% T: ]- L" H1 X; N2 T}
}
) f6 m6 P& l0 e0 Areturn TRUE;
8 M, V6 H( W5 R0 o}
' L" ~( Y2 Q4 I" v7 q/ K; P% s* I样本程序
7 |6 A( S( f, I0 ~, R说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>