BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
<>具体如下：</P>
: P0 A2 P- T$ E- v" n; \5 @<>在窗口类的CreateParam()成员函数中加入如下语句：
. Y( |& z) ^; M( ?Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
! P' O% _$ O5 R7 ?将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
仍在窗口类的CreateParam()成员函数，加入如下语句：
: x+ O) ]8 ^' V' LChangeResolution(800,600);
Params.Width=800;
. d9 Y5 z9 w# p" L' g* PParams.Height=600;
Params.X=Params.Y=0;
+ ^! K% X( r4 I! M: f第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
: c% \! n: \* D  w然后修改窗体大小使之占满全屏。
$ f* ^" @4 L/ J! d8 w) k( _ChangeResolution()是一个自编的小函数，其原理如下：
) _. e  f9 Z$ Q; K$ Z8 \% B2 q" j用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
# m, D& w0 W9 o. {5 m用WINAPI：ChangeDisplaySettings()修改显示模式。
6 v+ G7 h  k/ Q4 XChangeResolution()的完整代码：</P>
<>BOOL ChangeResolution(DWORD w, DWORD h) {
9 r( U: X% \. d: l8 d8 rDEVMODE devMode;
7 F" S. H7 K) P) ?) i8 M1 CLONG modeSwitch;
LONG i;
CHAR buf[256];
. C; [4 Y8 J6 t. R, k+ l! xi = 0;
2 ~! k9 M8 |+ c! {/ {# K2 f' }  Qdo {
/ K6 p0 S) _- f, M: x! Q9 b& X+ gmodeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
: p9 {# l. v' t9 H" ]0 Ii++;
} while(( (devMode.dmBitsPerPel!=16)
||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
* O& }& ^6 i$ `/ L8 r: s&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
% p5 D0 G9 H7 U+ A3 ]: ~! @' Cif (!modeSwitch) { }
else {
1 L+ Q2 E3 j6 d/ t: K( jmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
/ N# {* P- l! m) \1 k{
//Might be running in Windows95, let's try without the hertz change
  F/ P8 V) a0 q0 `. Z) xdevMode.dmBitsPerPel = 16;
devMode.dmPelsWidth = w;
devMode.dmPelsHeight = h;
  k+ U$ M& Y1 ~) G+ t1 MdevMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
* r: l$ Q$ ^9 X9 S- WmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
$ K/ e1 b; e$ h}
}
* Y9 V) U7 d, L  A: O) j0 vreturn TRUE;
1 U7 n6 Q1 [5 c, {}
  S  J5 D$ @/ x2 o4 x样本程序
* E, ^6 m, T  S! V  `  `说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>