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

                                                                   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:   [email protected]
//  日期：    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;    //该扑克牌在位图中纵坐标的位置
  bitblt(Canvas.Handle,0,0,Width,Height,  //画图
    CardMap.Canvas.Handle ,x,y,SRCCOPY);
end;

procedure TCard.SetFaceUp(Flag: Bool);//设置牌面朝上还是朝下
begin
  FFaceUp:=Flag;
  Paint;         //重画
end;

function TCard.GetValue: integer;
begin
  Result:=CardId shr 2; //得到该牌的值
  inc(Result);
end;

function TCard.GetSuit:TCardSuit;
begin
  Result:=TCardSuit(CardId and 3);  //得到该牌的花色
end;

initialization  //单元初始化
  CardMap:=TBitmap.create ; //创建位图
  CardMap.LoadFromResourceName(HINSTANCE,'card');//从资源中导入
finalization
  CardMap.Free ;//清除位图
end.
   



  

本文地址：http://com.8s8s.com/it/it4518.htm