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; //扑克的花色，只读