BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
8 J& h+ V8 Y/ D6 i" I' N6 I<>具体如下：</P>
. G6 M% }2 Z1 G2 u7 q9 n<>在窗口类的CreateParam()成员函数中加入如下语句：
# J2 q( U% t1 z  a/ G4 `* HParams.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
0 p. T+ j9 W/ P  H6 K6 P# J仍在窗口类的CreateParam()成员函数，加入如下语句：
, w8 |% \6 y3 @9 D7 ?ChangeResolution(800,600);
Params.Width=800;
1 M) D- e  {/ NParams.Height=600;
6 k+ K8 a1 h7 k5 `Params.X=Params.Y=0;
第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
) @3 J$ n7 |3 l- ]; ?2 H) g然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
<>BOOL ChangeResolution(DWORD w, DWORD h) {
. R  p. X: r. ]& GDEVMODE devMode;
LONG modeSwitch;
9 S0 j, W5 _% i% l0 K" R0 tLONG i;
CHAR buf[256];
i = 0;
$ g/ e3 l6 g3 H6 `do {
: v* n3 E: D+ {0 w; ImodeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
% r& _+ ~2 i! B# i' \: p/ ji++;
8 c- m; Y/ H' t! r# F} while(( (devMode.dmBitsPerPel!=16)
||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
8 B+ Z; g+ T4 |&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
if (!modeSwitch) { }
! K4 W1 `, i7 s" jelse {
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;
devMode.dmPelsHeight = h;
devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
1 J  b% V2 J% F& c" E}
$ |& M: @. W& l' O) O3 Q+ f2 x}
return TRUE;
4 q, L! M1 ^; W/ j1 b}
样本程序
" X* i! |. O* Q/ }1 X# R  P5 ^( Y说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>