Use the brand library with your own system without any resource, with a sleek effect, support Windows 98, Windows 2000 system.
The effect is as follows:
Also have custom image features, as shown below:
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;
Idspades10 = 49;
Idspadesjack = 50;
IDSPADESQUEEN = 51;
IDSPADESKING = 52;
Rankfirst = idclubsace;
Ranklast = IDCLUBSKING;
RankCount = Ranklast - Rankfirst 1;
IDFACEFIRST = IDCLUBSACE;
IDFaceLaset = idspadesking;
Facecount = idfacelast - idfacefirst;
Suitcount = 4;
IDDECKEMPTY = 53; {$ 35}
IDDeckPattern1 = 54; {$ 36}
IDDECKPATTERN2 = 55; {$ 37}
IDDECKROBOT = 56; {$ 38} IDDECKROSES = 57; {$ 39}
IDDECKFLOWERS1 = 58; {$ 3A}
IDDECKFLOWERS2 = 59; {$ 3b}
IDDECKFISHES = 60; {$ 3c}
IDDECKAQUARIUM = 61; {$ 3D}
IDDECKSHELL = 62; {$ 3e}
IDDECKCastle = 63; {$ 3F}
IDDeckPalmbeach = 64; {$ 40}
IDDeckCardHand = 65; {$ 41}
{There is no card # 66}
IDDECKCROSS = 67; {$ 43}
IDDECKCIRCLE = 68; {$ 44}
IDDECKFIRST = IDDECKEMPTY;
IDDECKLAST = IDDECKCardHand;
Deckcount = IDDECKLAST - IDDECKFIRST 1;
IDDECKSPECIALFIRST = IDDECKCROSS;
IDDECKSPECIALLAST = IDDECKCIRCLE;
Deckspecialcount = IDDECKSPECIALLAST - IDDECKSPECIALFIRST 1;
iDanimatecardhand1 = 678; {$ 02A6}
iDanimatecardhand2 = 679; {$ 02A7}
iDanimatecastle = 680; {$ 02A8}
iDanimatesunsmile = 681; {$ 02a9}
iDanimatesunsmiletongue = 682; {$ 02aa}
iDaniMaterobot1 = 683; {$ 02ab}
iDaniMaterobot2 = 684; {$ 02ac}
Type
TCardId = cardinal; {Win32 - 31-bit unsigned integer
Win16 - 16-bit unsigned integer}
TcardMode = (Mode1, Mode2, Mode3, Mode4, Mode5, Mode6, Mode7, Mode8, Mode9);
{Win32 - 31-bit unsigned integer
Win16 - 16-bit unsigned integer}
Tcoordinate = Integer; {Win32 - 32-bit Signed Integer
Win16 - 16-bit signed integer}
After the end, please see the next chapter.
