BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
) H, X- s0 P$ r2 R<>具体如下：</P>
<>在窗口类的CreateParam()成员函数中加入如下语句：
Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
3 D4 r" A8 }" W8 x7 f1 C仍在窗口类的CreateParam()成员函数，加入如下语句：
; H7 _4 V' J% C: p: V( v1 N! EChangeResolution(800,600);
Params.Width=800;
* h" V! L9 [3 [; X, ?/ C# eParams.Height=600;
Params.X=Params.Y=0;
% Q( R; E& N, {; _' T6 `第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
7 W6 @: @2 ^: Y% L" C$ E然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
& D- r: ^$ \4 b8 o用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
/ d9 E+ |4 d7 L用WINAPI：ChangeDisplaySettings()修改显示模式。
% v& H/ Q/ k1 M/ CChangeResolution()的完整代码：</P>
  Y! t: U/ U/ K0 d# w  e<>BOOL ChangeResolution(DWORD w, DWORD h) {
DEVMODE devMode;
/ {- h: J9 F$ o* h1 ]LONG modeSwitch;
LONG i;
CHAR buf[256];
% D  ?$ E7 G6 D1 J) i  w$ Yi = 0;
do {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
} while(( (devMode.dmBitsPerPel!=16)
||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
if (!modeSwitch) { }
8 a! @  u8 M8 z9 r% U' B) telse {
3 T5 [  N) |+ T! WmodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
5 z8 e% u& w' U6 ?9 s2 j{
//Might be running in Windows95, let's try without the hertz change
devMode.dmBitsPerPel = 16;
devMode.dmPelsWidth = w;
8 n4 ^1 P9 x0 u( idevMode.dmPelsHeight = h;
" N1 R# O; g# h- Y1 @5 }8 _devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
& c& b, w# u4 emodeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
/ M7 v. y! @! D% b) B1 g8 |$ {, I}
* ~" W: m2 _% |' u! D9 x) X4 e}
return TRUE;
+ M0 g- p3 b4 C7 v}
( {! O# g  X- B样本程序
说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>