登录
首页 » 其他 » Delphi纸牌游戏动画特效

Delphi纸牌游戏动画特效

于 2022-01-26 发布 文件大小:48.43 kB
0 10
下载积分: 2 下载次数: 1

代码说明:

一个基于Delphi编写的纸牌游戏动画特效,并不是一个完整的游戏,而是生成的纸牌动态效果,和图像处理有关的一个Delphi范例,如演示截图所示,生成的动画 效果还是挺不错的,或许可作为某方面的借鉴。部分代码如下:   FCardId:Cardinal ; //扑克的编号,0-51为各花色的1-K,52为大王,53小王   FFaceUp:bool; //是否正面朝上   procedure SetCardId(id:Cardinal);//设置扑克牌的编号   procedure SetFaceUp(Flag:Bool); //设置是否正面朝上   function GetValue:integer; //得到扑克牌的点数   function GetSuit:TCardSuit; //得到扑克牌的花色   procedure Paint; override; //画扑克牌的程序   constructor Create(AOwner:TComponent);overload;override; //构造函数   constructor Create(AOwner:TComponent;Id:Cardinal);overload;   procedure SetCard(Suit:TCardSuit;Value:Cardinal); //设置扑克牌的编号   property CardId:Cardinal read FCardId write SetCardId; //扑克牌编号   property FaceUp:bool read FFaceUp write SetFaceUp default False; //正面朝上   property Value:integer read GetValue; //扑克的点数,只读   property Suit:TCardSuit read GetSuit; //扑克的花色,只读

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • 526605资源总数
  • 44211会员总数
  • 348今日下载