BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
* I' H) }8 ]3 K4 n+ l, Q# ~Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
# |0 @& U) W( z2 m3 W将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
Params.Width=800;
Params.Height=600;
Params.X=Params.Y=0;
第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
然后修改窗体大小使之占满全屏。
8 p  `/ ~+ q" z: e$ hChangeResolution()是一个自编的小函数，其原理如下：
. ]5 ^: B* _; W8 |用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
; d0 F) m# ?& m' C% t( H用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
<>BOOL ChangeResolution(DWORD w, DWORD h) {
% @. p; L/ C/ X/ fDEVMODE devMode;
LONG modeSwitch;
LONG i;
CHAR buf[256];
i = 0;
do {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
/ ?& _3 ?5 }- A8 Y5 u* _7 ui++;
( t6 T" o1 {- n- z* y5 |1 ?} while(( (devMode.dmBitsPerPel!=16)
||(devMode.dmPelsWidth != w)
/ Y8 A! P5 e, M* L||(devMode.dmPelsHeight != h) )
& B; \) h- b1 i3 s) C9 C. b&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
if (!modeSwitch) { }
% d1 ?' d0 \" oelse {
5 s" H% ]8 l0 a3 B+ {: x( qmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
" Z  V: e1 h7 u* e- [if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
' C  C4 l0 a! Y% m* q2 ?1 I( |7 L' H+ S{
; x: f8 j. f* i9 h5 N9 ]//Might be running in Windows95, let's try without the hertz change
devMode.dmBitsPerPel = 16;
7 `* s- F7 G! V2 {: PdevMode.dmPelsWidth = w;
devMode.dmPelsHeight = h;
devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
) k) F. @: q" t) B/ I}
}
return TRUE;
  h2 {: v4 m8 C/ v}
4 G6 C) y, F5 c2 x; S3 x6 j& e样本程序
  P! ~1 U% e5 ], y7 q0 x说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>