Delphi 组件编写--扑克牌组件[1]

                                                                   delphi 组件编写--扑克牌组件

                                                                                hunter

      在网上看了不少关于扑克牌组件的编写，大多是调用windows/system32下的cards.dll其实我们如果不调用这些函数也是可以作一个很好扑克牌组件。具体步骤如下：

       1、首先做一个位图文件，符合如下格式，所有的扑克牌均为同样大小，每种花色排一行，从a到k排列，花色按黑桃、红桃、方块、梅花排列。如果不想做可以从qq game 下的cardres.dll中导出，本组件就用的就是qq game的位图。然后建立一个文本文件名为card.rc，内容为 card bitmap “card.bmp“，然后用brcc32.exe编译成 card.res。

      2、该扑克牌组件自tgraphiccontrol继承。可以做为一个单个扑克牌使用。其主要的属性有cardid，是其牌的编号，faceup是扑克牌正面朝上还是朝下的属性。left,top,width,height，visual等属性均是继承于tgraphiccontrol，只需要说明一下即可。其源代码如下：

unit ucard;
//  单元：    可视化组件 ——扑克牌组件
//  作者：    黄涛
//  e_mail:   hunto@163.com
//  日期：    2004.12.7
//  修改日期: 2004.12.8

interface
uses windows,messages,classes,graphics,controls,dialogs;
type
  //朴克的花色定义，分别是黑桃、红心、方块、梅花
  tcardsuit=( csspade,csheart,csclub,csdiamond);
  tcard =class(tgraphiccontrol) //扑克的组件
  private
    fcardid:cardinal ;  //扑克的编号，0-51为各花色的1-k，52为大王，53小王
    ffaceup:bool;      //是否正面朝上
    procedure setcardid(id:cardinal);//设置扑克牌的编号
    procedure setfaceup(flag:bool); //设置是否正面朝上
    function getvalue:integer;     //得到扑克牌的点数
    function getsuit:tcardsuit;   //得到扑克牌的花色
  protected
    procedure paint; override;   //画扑克牌的程序
  public
    constructor create(aowner:tcomponent);overload;override; //构造函数
    constructor create(aowner:tcomponent;id:cardinal);overload;
    procedure setcard(suit:tcardsuit;value:cardinal); //设置扑克牌的编号
  published
    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;   //扑克的花色，只读
    property onclick;            //单击
    property ondblclick;         //双击
  end;
implementation
{$r card.res}
{ tcard }
var cardmap:tbitmap;  //扑克牌的图形，从card.res中获取
constructor tcard.create(aowner: tcomponent);
begin
  inherited;   //如果父控件是windowcontrol的话，设置其parent属性
  if aowner is twincontrol then self.parent := twincontrol(aowner);
  width:=cardmap.width div 14; //得到扑克牌的宽度
  height:=cardmap.height div 4; //得到扑克牌的高度
  faceup:=false;   //默认扑克牌朝下
end;
constructor tcard.create(aowner: tcomponent;id: cardinal);
begin
  create(aowner);
  cardid:=id; //设置扑克牌的编号
end;
procedure tcard.setcardid(id:cardinal);
begin
  if id<54 then fcardid:=id;  //设置扑克牌的编号
  paint;      //重新画扑克牌
end;
procedure tcard.setcard(suit:tcardsuit; value: cardinal);
begin
  dec(value);
  cardid:=value shl 2 + cardinal(suit) and 3;//设置扑克牌的编号并重画
end;
procedure tcard.paint; //画扑克牌
var x,y,tmp:integer;
begin
  if not assigned(parent) then exit;//如果没有定义父控件，直接退出，以免报错
  inherited;
  if faceup then tmp:=cardid //如果面朝上，则画正面
  else tmp:=54;              //反之画背面
  x:=(tmp shr 2)*width;     //该扑克牌在位图中横坐标的位置
  y:=(tmp and 3)*height;    //该扑克牌在位图中纵坐标的位置