【文件属性】：
文件名称：Delphi纸牌游戏动画特效.rar
文件大小：48KB
文件格式：RAR
更新时间：2022-07-30 04:51:33
Delphi源码-图形处理
一个基于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; //扑克的花色，只读
【文件预览】：
codesc.net
----puke()
--------card.RES(242KB)
--------Project1.res(2KB)
--------Unit1.dfm(915B)
--------Unit1.ddp(51B)
--------card.dcu(5KB)
--------Unit1.pas(4KB)
--------说明.txt(381B)
--------Project1.dpr(232B)
--------Project1.dof(2KB)
--------Unit1.dcu(6KB)
--------card.pas(3KB)