BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
1 r; O$ j& ~  V$ m$ t3 N4 IParams.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
仍在窗口类的CreateParam()成员函数，加入如下语句：
7 Z: \1 G, j' D, F' mChangeResolution(800,600);
Params.Width=800;
Params.Height=600;
' q- U2 {7 f; P( ]$ eParams.X=Params.Y=0;
  Z" _, F2 w( Y" z) v) z/ Y第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
* \$ p5 d* A: f% e然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
用WINAPI：ChangeDisplaySettings()修改显示模式。
, d6 i/ [+ V: B" Z: EChangeResolution()的完整代码：</P>
<>BOOL ChangeResolution(DWORD w, DWORD h) {
+ m6 N: ]; [. R7 T$ rDEVMODE devMode;
$ Z, ^# C' g( X! ?' x, [LONG modeSwitch;
1 r, j7 K6 u* m- ?# B  @LONG i;
CHAR buf[256];
i = 0;
do {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
& ^6 Q% b/ g4 B/ o0 h$ B- U$ U} while(( (devMode.dmBitsPerPel!=16)
8 Z! L$ a9 s2 |3 A  r6 F. b||(devMode.dmPelsWidth != w)
6 r& G- p' _3 o9 j||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
! W# \# i/ k1 v# l8 u5 \7 q0 {if (!modeSwitch) { }
# }6 ^! t  ~9 ielse {
8 o; {4 {- X& J- [) umodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
5 Q# k; p! E1 E( wif (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
{
% s5 i0 I/ G' V; k//Might be running in Windows95, let's try without the hertz change
devMode.dmBitsPerPel = 16;
: Z9 C5 m( m- d) I7 V3 ]" b% VdevMode.dmPelsWidth = w;
$ m6 `5 n7 f. a7 u9 qdevMode.dmPelsHeight = h;
devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
3 H! Y( D5 x5 e/ ^" nmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
}
}
return TRUE;
: X: [/ _1 t5 |7 R$ o0 Y2 {6 ?! B0 u}
! y$ V4 J% t+ K+ q5 j样本程序
说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>