TCard -
TCardValueEditor -
Register -
TCardSuit
TCardValue
DEFAULT_CARD_HEIGHT
DEFAULT_CARD_WIDTH
CardBack
CardInstanceCount
CardMask
CardSet
CardWork
procedure Register;
TCardSuit = (Clubs, Diamonds, Hearts, Spades);
TCardValue =
(Ace, Deuce, Three, Four, Five, Six, Seven, Eight, Nine, Ten, Jack, Queen, King);
DEFAULT_CARD_HEIGHT = 96
DEFAULT_CARD_WIDTH = 71
Renamed from Cards.pas 6/11/1998 Paul Rice to avoid conflict with others' work. ** Cards Component ** *********************************************************************** ** This component allows you to produce a variety of card games. ** ** The code contained in this document is entirely free to use in ** ** both commercial and non-commercial applications. If this ** ** component is utilized in any way, shape, or form, I would ** ** appreciate a notification via email indicating this, as well as ** ** any comments or suggestions you may have. ** ** I can be reached at: ** ** elvis@sway.com ** ** Sincerely, ** ** T. J. Sobotka ** *********************************************************************** ** Properties: ** ** Card: Used to select card for individual component. Custom ** ** property editor was required to ensure correct ordering ** ** in the object inspector. ** ** SelectedCard: Used to determine the appearance of a card if ** ** an alternative is desired to indicate a selected card. ** ** ShowCard: Used to determine whether or not the card has its ** ** face or card back showing. ** ** Suit: Used to select card suit for individual component. **
CardBack : TBitmap
CardInstanceCount : LongInt = 0
CardMask : TBitmap
CardSet : TBitmap
CardWork : TBitmap