之前我写过一篇《使用Asphyre开发游戏的方式 》的文章。文章中简述了如果使用asphyre3.10来开发游戏。但是使用asphyre3.10来开发游戏有一个很麻烦的问题——如何来实现VCL中按钮等等控件的效果。以前使用3.10的时候，我使用的方法是：定义出一个区域来，判断鼠标点击的是不是在这个区域，如果是那么做相应的操作。这样虽然也可以实现，但是其代码量和逻辑关系比较难以控制。很是麻烦。
最近使用Asphyre4.10和SpriteEngine来开发游戏，觉得将这两个结合起来实现按钮效果非常方便。下面我就将如果实现这种效果写出来。
我使用的Asphyre版本是Asphyre4snapshot这个可以在火人的BLOG上下载（[url]http://www.huosoft.com/bbs/ShowPost.asp?ThreadID=20[/url]）使用的SpriteEngine也可以在这个页面上下载到。
首先在Delphi2006的LIBRARY中加入它们。
然后在自己创建的工程中引入AsphyreSprite, sphyreSpriteEffects,AsphyreSpriteUtils,AsphyreDevices,AsphyreDef,
AsphyreEffects,AsphyreTimer,AsphyreImages,
AsphyrePalettes单元。
AsphyreEffects,AsphyreTimer,AsphyreImages,
AsphyrePalettes单元。
我们创建一个按钮类
//
按钮类
TSpriteButton=class(TAnimatedSprite)
private
public
procedure DoMove(const MoveCount: Single); override;
procedure OnMouseClick; override;
procedure OnMouseLeave; override;
procedure OnMouseEnter; override;
procedure OnMouseUp; override;
end;
TSpriteButton=class(TAnimatedSprite)
private
public
procedure DoMove(const MoveCount: Single); override;
procedure OnMouseClick; override;
procedure OnMouseLeave; override;
procedure OnMouseEnter; override;
procedure OnMouseUp; override;
end;
并在界面的CREATE事件中加入一下代码：
procedure TSHFrm.FormCreate(Sender: TObject);
begin
inherited;
// 加载图片的XML文件
begin
inherited;
// 加载图片的XML文件
ImageGroups.ParseLink('/images.xml');
//
加载字体的XML文件
FontGroups.ParseLink('/fonts.xml');
FontGroups.ParseLink('/fonts.xml');
//
初始化Devices
Devices.InitEvent:=InitDevice;
Devices.DoneEvent:=DoneDevice;
Devices.Count:=1;
if(not Devices.Initialize(DevConfig,Self)) then
begin
close();
Exit;
end;
Devices.InitEvent:=InitDevice;
Devices.DoneEvent:=DoneDevice;
Devices.Count:=1;
if(not Devices.Initialize(DevConfig,Self)) then
begin
close();
Exit;
end;
//
初始化Timer
Timer.Enabled:=true;
Timer.OnTimer:=TimerEvent;
Timer.MaxFPS:= 4000;
Timer.Enabled:=true;
Timer.OnTimer:=TimerEvent;
Timer.MaxFPS:= 4000;
end;
procedure TSHFrm.InitDevice(Sender: TAsphyreDevice);
begin
inherited;
SpriteEngine := TSpriteEngine.Create(nil);
SpriteEngine.Device:=Sender;
SpriteEngine.Image := Sender.Images;
SpriteEngine.Canvas := Sender.Canvas;
SpriteEngine.DoMouseEvent := True;
// 设置界面的宽和高
begin
inherited;
SpriteEngine := TSpriteEngine.Create(nil);
SpriteEngine.Device:=Sender;
SpriteEngine.Image := Sender.Images;
SpriteEngine.Canvas := Sender.Canvas;
SpriteEngine.DoMouseEvent := True;
// 设置界面的宽和高
SpriteEngine.VisibleWidth:=1022;
SpriteEngine.VisibleHeight:=738;
SpriteEngine.VisibleHeight:=738;
//
创建系统按钮
CreateSystemButton;
end;
end;
procedure TSHFrm.DevConfig(Sender: TAsphyreDevice; Tag: TObject;
var Config: TScreenConfig);
begin
Config.Width := 1022;
Config.Height := 738;
Config.Windowed:= true;
Config.VSync := true;
Config.BitDepth:= bd24Bit;
Config.WindowHandle:= Self.Handle;
Config.HardwareTL := false;
Config.DepthStencil:= dsNone;
end;
var Config: TScreenConfig);
begin
Config.Width := 1022;
Config.Height := 738;
Config.Windowed:= true;
Config.VSync := true;
Config.BitDepth:= bd24Bit;
Config.WindowHandle:= Self.Handle;
Config.HardwareTL := false;
Config.DepthStencil:= dsNone;
end;
procedure TSHFrm.TimerEvent(Sender: TObject);
begin
Devices[0].Render(0, DevRender, Self, cRGB1(255,255,0));
Timer.Process();
end;
begin
Devices[0].Render(0, DevRender, Self, cRGB1(255,255,0));
Timer.Process();
end;
procedure TSHFrm.DevRender(Sender: TAsphyreDevice; Tag: TObject);
begin
inherited;
// 绘制背景
DrawEx(Sender.Canvas,Sender.Images.Image['gameback'], 0, 0, 0, clWhite4, fxuBlend);
{绘制用户信息}
//自己的信息
DrawOtherInfo(Sender);
SpriteEngine.Draw;
SpriteEngine.Move(1);
end;
begin
inherited;
// 绘制背景
DrawEx(Sender.Canvas,Sender.Images.Image['gameback'], 0, 0, 0, clWhite4, fxuBlend);
{绘制用户信息}
//自己的信息
DrawOtherInfo(Sender);
SpriteEngine.Draw;
SpriteEngine.Move(1);
end;
以上是一些必须写的代码下来看如何来实现最大化，最小化和关闭按钮。
在CreateSystemButton函数中创建系统按钮。
procedure TSHFrm.CreateSystemButton;
begin
// 最小化
with TSpriteButton.Create(SpriteEngine) do
begin
SetAnim('min',0,1,0,false); //按钮初始状态使用的图片
DoAnimate := true;
Width := 35; //按钮的宽
Height:=22; //按钮的高
X := 912; //按钮所在的X位置
Y := 0; //按钮所在的Y位置
Tag := 101; //按钮的TAG值
end;
begin
// 最小化
with TSpriteButton.Create(SpriteEngine) do
begin
SetAnim('min',0,1,0,false); //按钮初始状态使用的图片
DoAnimate := true;
Width := 35; //按钮的宽
Height:=22; //按钮的高
X := 912; //按钮所在的X位置
Y := 0; //按钮所在的Y位置
Tag := 101; //按钮的TAG值
end;
//
最大化
with TSpriteButton.Create(SpriteEngine) do
begin
SetAnim('max',3,3,0,false);
DoAnimate := true;
Width := 35;
Height:=22;
X := 947;
Y := 0;
Tag := 102;
end;
with TSpriteButton.Create(SpriteEngine) do
begin
SetAnim('max',3,3,0,false);
DoAnimate := true;
Width := 35;
Height:=22;
X := 947;
Y := 0;
Tag := 102;
end;
// 关闭
with TSpriteButton.Create(SpriteEngine) do
begin
SetAnim('close',0,1,0,false);
DoAnimate := true;
Width := 35;
Height:=22;
X := 982;
Y := 0;
Tag := 103;
end;
end;
在TSpriteButton按钮类的中实现DoMove函数
procedure TSpriteButton.DoMove(const MoveCount: Single);
begin
inherited;
ActiveRect:=Rect(Round(X), Round(Y), Round(X+40), Round(Y+40));
end;
begin
inherited;
ActiveRect:=Rect(Round(X), Round(Y), Round(X+40), Round(Y+40));
end;
处理按钮类中鼠标点击等事件
procedure TSpriteButton.OnMouseClick;
begin
inherited;
case Self.Tag of
101: // 最小化
begin
SetAnim('min', 2, 2, 0, false);
end;
102: //最大化
begin
SetAnim('max', 3, 3, 0, false);
end;
103: //关闭
begin
SetAnim('close', 2, 2, 0, false);
SHFrm.Close;
end;
begin
inherited;
case Self.Tag of
101: // 最小化
begin
SetAnim('min', 2, 2, 0, false);
end;
102: //最大化
begin
SetAnim('max', 3, 3, 0, false);
end;
103: //关闭
begin
SetAnim('close', 2, 2, 0, false);
SHFrm.Close;
end;
end;
end;
end;
procedure TSpriteButton.OnMouseEnter;
begin
inherited;
case Self.Tag of
101: // 最小化
begin
SetAnim('min', 1, 1, 0, false);
end;
102: //最大化
begin
SetAnim('max', 3, 3, 0, false);
end;
103: //关闭
begin
SetAnim('close', 1, 1, 0, false);
end;
begin
inherited;
case Self.Tag of
101: // 最小化
begin
SetAnim('min', 1, 1, 0, false);
end;
102: //最大化
begin
SetAnim('max', 3, 3, 0, false);
end;
103: //关闭
begin
SetAnim('close', 1, 1, 0, false);
end;
end;
end;
procedure TSpriteButton.OnMouseLeave;
begin
inherited;
101: // 最小化
begin
SetAnim('min', 0, 0, 0, false);
end;
102: //最大化
begin
SetAnim('max', 3, 3, 0, false);
end;
103: //关闭
begin
SetAnim('close', 0, 0, 0, false);
end;
begin
inherited;
101: // 最小化
begin
SetAnim('min', 0, 0, 0, false);
end;
102: //最大化
begin
SetAnim('max', 3, 3, 0, false);
end;
103: //关闭
begin
SetAnim('close', 0, 0, 0, false);
end;
end;
end;
end;
procedure TSpriteButton.OnMouseUp;
begin
inherited;
begin
inherited;
case Self.Tag of
101: // 最小化
begin
SetAnim('min', 0, 0, 0, false);
end;
102: //最大化
begin
SetAnim('max', 3, 3, 0, false);
end;
103: //关闭
begin
SetAnim('close', 0, 0, 0, false);
end;
101: // 最小化
begin
SetAnim('min', 0, 0, 0, false);
end;
102: //最大化
begin
SetAnim('max', 3, 3, 0, false);
end;
103: //关闭
begin
SetAnim('close', 0, 0, 0, false);
end;
end;
end;
end;
这样我们就实现了系统按钮的功能。通过以上的代码，大家不难看出对于鼠标事件的处理，主要是依照这个按钮对象的Tag 值。其实以上的方法也可以用来实现图片的移动效果，具体方法我就不在这里写了。
本文转自狗窝博客51CTO博客，原文链接http://blog.51cto.com/fxh7622/60975如需转载请自行联系原作者
fxh7622
