BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
( f& y: `: w& y3 [! Y& _' X' {<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
9 e/ S- l, |$ |& p( d9 v3 j& m将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
4 K& ]5 m2 p& L/ J1 A! y) x0 p仍在窗口类的CreateParam()成员函数，加入如下语句：
! _  {; v5 c1 Q- ^( ^ChangeResolution(800,600);
Params.Width=800;
Params.Height=600;
& c( ^' X! p% b1 H3 {1 _9 KParams.X=Params.Y=0;
第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
. ~% m9 M: D9 P0 j# S* g' F' C然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
6 E7 [7 X& y* d( m3 H  j用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
8 q  @1 Z6 C) C4 x  ?<>BOOL ChangeResolution(DWORD w, DWORD h) {
6 z$ _1 w% f& DDEVMODE devMode;
* ~" [; s" U+ z. n! PLONG modeSwitch;
+ K' k) R# W2 Y' pLONG i;
CHAR buf[256];
i = 0;
do {
1 f. l6 e  X1 `4 }1 u' W0 lmodeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
: h* |! e: ]6 N% b4 X2 F1 j( k( \i++;
" b5 L6 ~( M: v- r; h/ U} while(( (devMode.dmBitsPerPel!=16)
||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
: S( R* ^/ \; r! z4 n4 n2 I&amp;&amp; (modeSwitch) );
: H" l; t- ~- C# _/* Okay see if we found a mode */
3 U/ o6 R/ n3 F. M& `; _4 l* ?2 Eif (!modeSwitch) { }
else {
$ W" g4 m2 Q: w' o( m8 LmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
{
//Might be running in Windows95, let's try without the hertz change
# K* p' m% x' V! d7 J* r+ TdevMode.dmBitsPerPel = 16;
7 M# [7 q- Q8 W; F. i3 {# ^* H- VdevMode.dmPelsWidth = w;
devMode.dmPelsHeight = h;
+ g* x4 [* H8 B) ^9 h( EdevMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
}
; X& O' Z6 e: n7 y}
return TRUE;
  ~7 z: b- w2 b. J0 c0 L}
样本程序
' w; h9 w: W) ]5 f9 T1 N说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>