BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
' y$ a1 [. u+ X$ r<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
2 y( d1 N1 v! `" o7 F+ E5 @# F' JParams.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
' Y; L% R0 L3 f- r/ @6 q. {3 [# e将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
& A; [/ G7 E  \# o仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
Params.Width=800;
9 W) ~3 U+ L- p& s4 eParams.Height=600;
Params.X=Params.Y=0;
' k3 e9 s' N- A+ ~  G第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
* l. c' n' S1 B( m& S然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
/ @9 t+ |+ }, N6 sChangeResolution()的完整代码：</P>
<>BOOL ChangeResolution(DWORD w, DWORD h) {
DEVMODE devMode;
LONG modeSwitch;
# W5 f5 c' \0 u% uLONG i;
" h$ |; M" D8 ?6 x; O+ XCHAR buf[256];
i = 0;
do {
& F. J2 C: t7 o" @2 K1 u3 ?modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
  M; ]! @; c+ f4 u7 j# Pi++;
} while(( (devMode.dmBitsPerPel!=16)
||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
3 l4 @% N* y: a6 K8 D. @0 k/* Okay see if we found a mode */
if (!modeSwitch) { }
else {
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
{
; x& a$ Y& s: ]6 U//Might be running in Windows95, let's try without the hertz change
' a% q. m2 L! _; n4 D2 EdevMode.dmBitsPerPel = 16;
1 J8 T* W) M: s& S7 o# F5 `devMode.dmPelsWidth = w;
devMode.dmPelsHeight = h;
# S# N4 ^" ]! y  y. M0 H+ e: ]devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
2 }( A* }  @8 P( }& P+ zmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
* n6 [' x% M! H2 D& o}
& F* P3 C: ^+ J* R3 e- @* M}
return TRUE;
4 Q- |" B. l$ t" K8 |0 ]0 n* t}
样本程序
说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>