下载此文档

实例5--打地鼠(界面实现).doc

文档分类：IT计算机 | 页数：约8页举报非法文档有奖

1/8

下载提示

1.该资料是网友上传的，本站提供全文预览，预览什么样，下载就什么样。
2.下载该文档所得收入归上传者、原创者。
3.下载的文档，不会出现我们的网址水印。

同意并开始全文预览

(约 1-6 秒)

1/8 下载此文档

文档列表 文档介绍

实例五打地鼠(界面实现部分)
【程序阐明】
打地鼠是一种此前非常流行的游戏，这个游戏的版本也是层出不穷。虽然游戏界面始终在变换，但是它的核心代码却变化不大。由于程序的完整代码较长，这里分两个实例来阐明这个游戏：界面实现部分和主体OUND');
BufferBitmap := ;
:= ;
:= ;
:= ;
:= ;
OKUPButtonBitmap:= ;
(hInstance, 'OKUP');
OKDOWNButtonBitmap:= ;
(hInstance, 'OKDOWN');
CtrlBitmap := ;
(hInstance, 'CONTROL');
for btnOrder := btnOrderNEW to btnOrderABOUT do
begin
MenuButtonBitmap[btnOrder, btnUP] := ;
MenuButtonBitmap[btnOrder,btnUP].LoadFromResourceName(hInstance,
MenuButtonImageName[btnOrder, btnUP]);
MenuButtonBitmap[btnOrder, btnOVER] := ;
MenuButtonBitmap[btnOrder, btnOVER].LoadFromResourceName(hInstance,
MenuButtonImageName[btnOrder, btnOVER]);
MenuButtonBitmap[btnOrder, btnDown] := ;
MenuButtonBitmap[btnOrder, btnDown].LoadFromResourceName(hInstance,
MenuButtonImageName[btnOrder, btnDOWN]);
end;
{图像窗口的实现}
round := 128;
:=bsClear;
myRgn := 0;
GetWindowRgn(, myRgn);
DeleteObject(myRgn);
myRgn:= CreateroundRectRgn(0,0,

实例5--打地鼠(界面实现) 来自淘豆网www.taodocs.com转载请标明出处.