BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
<>具体如下：</P>
+ ^' A2 f% r2 F1 a8 l0 |4 ]<>在窗口类的CreateParam()成员函数中加入如下语句：
# K/ M2 n" @" N+ u" m6 xParams.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
  h% p) @  {7 N3 p将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
; v9 N" X+ p5 G0 @" j# a5 n8 z仍在窗口类的CreateParam()成员函数，加入如下语句：
4 i# W3 B( i9 uChangeResolution(800,600);
Params.Width=800;
1 z2 a' g  I, [, X3 W! EParams.Height=600;
- b. ?' ?" b$ M  c  R6 dParams.X=Params.Y=0;
第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
; J  b% f3 k7 a' R% i# _然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
<>BOOL ChangeResolution(DWORD w, DWORD h) {
: G: b3 W* v5 f- o8 mDEVMODE devMode;
7 b' e; X  d) x/ r0 MLONG modeSwitch;
, o$ Q2 b; p6 e. K" aLONG i;
% E* P7 P7 G; h9 }% m* kCHAR buf[256];
i = 0;
+ |$ I0 C+ M7 l  W4 ]' o& ndo {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
9 O+ v: ^7 a+ @3 t! w} while(( (devMode.dmBitsPerPel!=16)
, G9 `; }: r5 f||(devMode.dmPelsWidth != w)
* A! r) T1 H5 U& ~% e6 O! ~5 I||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
4 i, e+ y2 R0 P+ h6 `) W/* Okay see if we found a mode */
" s" [& O7 L. e- i% E  [if (!modeSwitch) { }
else {
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
{
//Might be running in Windows95, let's try without the hertz change
' `) m1 H$ e# adevMode.dmBitsPerPel = 16;
devMode.dmPelsWidth = w;
devMode.dmPelsHeight = h;
: ^, O" E' x5 a: R2 GdevMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
}
}
return TRUE;
4 E- k$ A6 X4 J6 W6 }}
6 {% \$ a& [1 b" q* C6 v1 O! Y6 v样本程序
" N1 |% w) K( j7 c# |: b说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>