BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
% B0 j0 t  r9 C* K% X* w<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
3 s  ^& j. f9 ~. O' k将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
" E3 i3 Q7 c3 f仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
Params.Width=800;
Params.Height=600;
4 ]4 V8 n' h2 HParams.X=Params.Y=0;
& o. X) _- A( E2 U! E4 v- v/ U第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
, o4 n3 L! \$ \然后修改窗体大小使之占满全屏。
4 s' b+ i2 j, J6 ^' e6 ?ChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
: V  L# W: v7 J/ R+ [! OChangeResolution()的完整代码：</P>
2 B3 _8 H! q# P<>BOOL ChangeResolution(DWORD w, DWORD h) {
  h% @. B0 v: r" z* M4 ~DEVMODE devMode;
2 l9 b3 H9 f, ?# ]* ?, b' r% KLONG modeSwitch;
. p6 m  U; d+ aLONG i;
# k( F9 _  ~# @7 f7 X& PCHAR buf[256];
& L" e, t- |- t' x8 wi = 0;
  d: x' `; o5 S! ^3 g% Qdo {
4 L9 p5 j( i& v8 ?/ {modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
# ?0 f9 h* N& I$ R; ~+ Ai++;
: E1 d; O. C9 G& S( o} while(( (devMode.dmBitsPerPel!=16)
+ E' g" `' y/ y$ \||(devMode.dmPelsWidth != w)
! ?. r: D0 q1 J" F6 q* W% }||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
" {5 `4 v: q. O4 zif (!modeSwitch) { }
else {
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
- M, j7 }! @$ r# r$ h{
//Might be running in Windows95, let's try without the hertz change
7 F, \: h/ N/ r2 z8 `+ l; ?devMode.dmBitsPerPel = 16;
4 D+ Q. {4 [% I- {! }6 edevMode.dmPelsWidth = w;
* |0 E! c5 t5 {& wdevMode.dmPelsHeight = h;
: R1 \- V4 _1 i- j/ BdevMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
) Q! d2 G6 t' ^7 _! ?}
}
return TRUE;
7 W# K  H/ g8 p1 f* v5 ?/ b9 c" l}
样本程序
说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>