BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
6 z5 D' `5 _# f+ u; S- j; Y& G* |# w<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
6 S( T; t1 n# N* C3 eParams.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
% B; ?' q9 E) H* ~8 n! T8 T仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
Params.Width=800;
Params.Height=600;
0 S. N% V) V) [: p  I& B4 D% DParams.X=Params.Y=0;
第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
+ e7 H: M8 u$ H6 P- k5 Z* u$ t  W然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
& u3 }- E# V6 y  ]6 U. G' u) rChangeResolution()的完整代码：</P>
  r+ ?& G: o+ R# @. x9 s<>BOOL ChangeResolution(DWORD w, DWORD h) {
' J7 F' N" ]% B& [  X$ s; pDEVMODE devMode;
3 X! ~0 }, h3 e0 OLONG modeSwitch;
LONG i;
# Y9 E) y1 s9 D  m; I! MCHAR buf[256];
% i1 N( _7 G0 Ni = 0;
5 P+ j9 l/ }* f1 v1 `5 E; R6 \do {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
$ z- M7 C  t5 ^: o& Yi++;
} while(( (devMode.dmBitsPerPel!=16)
- F% ]4 w0 U5 M||(devMode.dmPelsWidth != w)
! _. H2 `% N# f- E; g||(devMode.dmPelsHeight != h) )
9 L/ T; f" a9 ^4 e; Y&amp;&amp; (modeSwitch) );
+ v# e% y( U2 G' ^/* Okay see if we found a mode */
if (!modeSwitch) { }
else {
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
! C0 A0 q$ i. a  O0 W) ?if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
6 f- O! t7 V6 `- x7 c7 p5 k6 p{
//Might be running in Windows95, let's try without the hertz change
# o: d3 f' j# gdevMode.dmBitsPerPel = 16;
devMode.dmPelsWidth = w;
" g# J& @, _4 bdevMode.dmPelsHeight = h;
  o6 h' u: q( X& o/ P4 B& Q# qdevMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
) i3 t) X) d; r. R8 e: ImodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
+ c# O; C1 A8 h/ R}
1 e3 |$ j6 Q4 }6 |/ Y}
9 a# \" M0 m+ _/ d5 Q& c' H# `return TRUE;
}
: O& i8 U0 z) E* Z7 K+ L: C样本程序
% B: ~/ J/ m2 K- r说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>