BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
8 t$ f$ J& u- T" J- ^* y<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
! v: r" [; g; }* Y7 d( z1 `将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
仍在窗口类的CreateParam()成员函数，加入如下语句：
/ A) z% }& B' r: D! ]6 YChangeResolution(800,600);
Params.Width=800;
- f9 x5 s# y" P! X; e& D3 ?Params.Height=600;
, Q" ^  |0 I5 v5 X$ B3 B5 S  d6 B( n7 ?Params.X=Params.Y=0;
  e  r1 ^; d; H; c$ j第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
2 O8 t- m8 F# f4 f; @: L0 z* t0 R用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
<>BOOL ChangeResolution(DWORD w, DWORD h) {
DEVMODE devMode;
! U- H+ h# q3 v& _  y9 iLONG modeSwitch;
  Y3 p: s4 g, Q4 Q9 |LONG i;
$ g8 o  n& C4 _# o2 O& gCHAR buf[256];
7 ?2 e1 G4 Y2 \- \5 ci = 0;
do {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
2 @6 g; S7 G  O; e7 K/ F3 w4 L+ oi++;
} while(( (devMode.dmBitsPerPel!=16)
* a9 z5 l/ }+ I' N||(devMode.dmPelsWidth != w)
0 M5 A( P) k; i# X/ U" q||(devMode.dmPelsHeight != h) )
5 s* N5 G& P8 _+ }' {3 D+ R; u% V) w&amp;&amp; (modeSwitch) );
: q, _4 S0 ?1 M& s4 X9 n/* Okay see if we found a mode */
if (!modeSwitch) { }
7 E9 P& I5 p8 w$ [- @else {
5 p0 D9 _; G. b; x- V# z" B$ fmodeSwitch = 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;
2 \* `, w8 K4 h. ~5 Y- {. R- [* ~devMode.dmPelsHeight = h;
devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
}
9 \, U1 I- G& ]# p+ {' {( q# ?}
return TRUE;
}
& f: x) Y% a3 w! ^5 G8 r样本程序
说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>