BCB中实现全屏幕OpenGL

韩冰

<>其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。</P>
<>具体如下：</P>
) N! [- ^% F1 d<>在窗口类的CreateParam()成员函数中加入如下语句：
# U$ B$ h0 H7 M- ?Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
仍在窗口类的CreateParam()成员函数，加入如下语句：
ChangeResolution(800,600);
Params.Width=800;
Params.Height=600;
/ x% T1 f  A# `9 v2 qParams.X=Params.Y=0;
第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
6 {4 A1 M% r/ R0 D1 S6 v! |, o然后修改窗体大小使之占满全屏。
ChangeResolution()是一个自编的小函数，其原理如下：
" }4 E! S/ e! E# ?- @5 A: X2 Q用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
0 G2 a; L# n, T- ?) E用WINAPI：ChangeDisplaySettings()修改显示模式。
ChangeResolution()的完整代码：</P>
2 U% K  x6 k7 }6 h% u<>BOOL ChangeResolution(DWORD w, DWORD h) {
DEVMODE devMode;
LONG modeSwitch;
/ J; _7 d, o' ]6 _8 a/ x! _7 SLONG i;
CHAR buf[256];
i = 0;
do {
modeSwitch = EnumDisplaySettings(NULL, i, &amp;devMode);
i++;
} while(( (devMode.dmBitsPerPel!=16)
% G: ^" B8 @  ^; ^- U+ B; Z||(devMode.dmPelsWidth != w)
2 Q$ w# @# d  X4 W: Z3 r1 d. G  b# s||(devMode.dmPelsHeight != h) )
0 X& z8 g0 _2 r% W&amp;&amp; (modeSwitch) );
/* Okay see if we found a mode */
% U  Y- l/ G. [3 S; Xif (!modeSwitch) { }
else {
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
' o6 E. ~( V$ K+ ]. H{
//Might be running in Windows95, let's try without the hertz change
8 B" {- q6 V# j9 H& B/ K& ndevMode.dmBitsPerPel = 16;
devMode.dmPelsWidth = w;
  o; N- f: v! y  TdevMode.dmPelsHeight = h;
, V7 [0 P, `" ?5 H" h$ ^" f* gdevMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
modeSwitch = ChangeDisplaySettings(&amp;devMode, 0);
! v1 M$ o* r7 z4 I$ a4 J9 U}
$ d; P  T  V8 o( f0 R! a* X}
return TRUE;
9 C/ [, @/ O" Z2 A}
/ z6 `1 p4 b% E, ~3 y, ]0 w! ^样本程序
" g. I4 f6 b4 H" W- \' n说明：通常这个程序运行时会看到屏幕底部有道白线，这是任务栏造成的，如果你将它的总在最前面(always on top)去掉或者将本程序窗口作成Always On Top型就不会再看到它了。 </P>