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

Delphi纸牌游戏动画特效

于 2022-01-26 发布 文件大小:48.43 kB
0 180
下载积分: 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 个回复

  • demo(S50)源代码
    应用背景D8 读卡器S50DEMO源代码,用于技术开发,和卡片个人化应用关键技术// rfvcDlg.cpp : implementation file // #include "stdafx.h" #include "rfvc.h" #include "rfvcDlg.h" #include "dcrf32.h" #include "General.h" #ifdef _DEBUG #define new DEBUG_NEW #undef THIS_FILE static char THIS_FILE[] = __FILE__; #endif //dc_HANDLE icdev; HANDLE icdev; unsigned long cardsnr; ///////////////////////////////////////////////////////////////////////////// // CRfvcDlg dialog CRfvcDlg::CRfvcDlg(CWnd* pParent /*=NULL*/) : CDialog(CRfvcDlg::IDD, pParent) { //{{AFX_DATA_INIT(CRfvcDlg) //}}AFX_DATA_INIT // Note that LoadIcon does not require a subsequent DestroyIcon in Win32 m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME); }
    2022-02-16 02:14:23下载
    积分:1
  • 改变byteblasterii SCH
    altera byteblasterII sch
    2022-01-25 16:22:37下载
    积分:1
  • machines dedicated flashplaymobile
    专用于flashplaymobile的机器
    2023-01-01 09:05:03下载
    积分:1
  • 电脑常用知识,dos下的一些应用
    电脑常用知识,dos下的一些应用-Commonly used computer knowledge, dos applications under
    2022-02-11 22:36:24下载
    积分:1
  • 基于DM642的网络传输,协议为TCP/ip协议,很不错
    基于DM642的网络传输,协议为TCP/ip协议,很不错-network transmission, the agreement for TCP/ip agreement is pretty good
    2022-09-14 21:30:03下载
    积分:1
  • 一个非常有用的桌面管理程序
    一个非常有用的桌面管理程序-a very useful desktop management procedures
    2022-02-28 19:08:03下载
    积分:1
  • 自定义行列颜色的CListCtrl控件,包括改变字体大小及颜色。
    自定义行列颜色的CListCtrl控件,包括改变字体大小及颜色。-Custom color ranks CListCtrl control, including changing the font size and color.
    2022-02-01 03:42:59下载
    积分:1
  • 此程序完成N皇后问题。大家可以互相讨论学习。
    此程序完成N皇后问题。大家可以互相讨论学习。-N Queen"s problem. We can learn from each other discussions.
    2022-06-14 16:24:50下载
    积分:1
  • given a multiple launch, under multi
    给出了多发射,多接收天线下MIMO信道容量的计算,采用灌水法则进行功率的分配。-given a multiple launch, under multi-receiver antenna MIMO channel capacity, used for irrigation power law distribution.
    2022-07-13 20:07:21下载
    积分:1
  • SSD1928英文数据手册,48页,很详细。
    SSD1928英文数据手册,48页,很详细。-SSD1928 Data Sheet in English, 48 pages, very detailed.
    2022-02-26 20:43:21下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载