纸牌控件的编写(上)

使用了系统自带的纸牌库，无需任何资源，具有边角圆滑的效果，支持Windows 98、Windows 2000系统。

效果如下图：

还具有自定义图象功能，如下图所示：

unit ZFPlayCard;

{

2003.11.27

xzhifei

}

interface

uses

  Windows, WinTypes, Messages, SysUtils, Classes, Controls, Graphics;

const

  idClubsAce = 1;

  idClubs2 = 2;

  idClubs3 = 3;

  idClubs4 = 4;

  idClubs5 = 5;

  idClubs6 = 6;

  idClubs7 = 7;

  idClubs8 = 8;

  idClubs9 = 9;

  idClubs10 = 10;

  idClubsJack = 11;

  idClubsQueen = 12;

  idClubsKing = 13;

  idDiamondsAce = 14;

  idDiamonds2 = 15;

  idDiamonds3 = 16;

  idDiamonds4 = 17;

  idDiamonds5 = 18;

  idDiamonds6 = 19;

  idDiamonds7 = 20;

  idDiamonds8 = 21;

  idDiamonds9 = 22;

  idDiamonds10 = 23;

  idDiamondsJack = 24;

  idDiamondsQueen = 25;

  idDiamondsKing = 26;

  idHeartsAce = 27;

  idHearts2 = 28;

  idHearts3 = 29;

  idHearts4 = 30;

  idHearts5 = 31;

  idHearts6 = 32;

  idHearts7 = 33;

  idHearts8 = 34;

  idHearts9 = 35;

  idHearts10 = 36;

  idHeartsJack = 37;

  idHeartsQueen = 38;

  idHeartsKing = 39;

  idSpadesAce = 40;

  idSpades2 = 41;

  idSpades3 = 42;

  idSpades4 = 43;

  idSpades5 = 44;

  idSpades6 = 45;

  idSpades7 = 46;

  idSpades8 = 47;

  idSpades9 = 48;

[1] [2]  下一页

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18