| Class TCard (unit Card) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
function DifferentFrom(FromCard: TCard): Boolean;
procedure RandomCard;
procedure SetCard(CValue: Integer; CSuit: TShortSuit);
procedure Turn;
procedure Paint;
procedure SetDeckType(DeckType: TDecks);
procedure SetShowDeck(ShowDeck: Boolean);
procedure SetSuit(Suit: TCardSuit);
procedure SetValue(Value : TCardValue);
procedure WMSize(var Message: TWMSize);| Properties |
property DeckType : TDecks
property ShowDeck : Boolean
property Suit : TCardSuit
property Value : TCardValue
property Height :
property Width : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FDeckType : TDecks;
FShowDeck : Boolean;
FSuit : TCardSuit;
FValue : TCardValue;| Constructors |
constructor Create(AOwner: TComponent);change here to set the palette page for the TCard component
| Functions |
destructor Destroy;
function DifferentFrom(FromCard: TCard): Boolean;
procedure RandomCard;
procedure SetCard(CValue: Integer; CSuit: TShortSuit);
procedure Turn;
procedure Paint;
procedure SetDeckType(DeckType: TDecks);
procedure SetShowDeck(ShowDeck: Boolean);
procedure SetSuit(Suit: TCardSuit);
procedure SetValue(Value : TCardValue);No resizing allowed !
procedure WMSize(var Message: TWMSize);| Properties |
property DeckType : TDecks
property ShowDeck : Boolean
property Suit : TCardSuit
property Value : TCardValue
property Height :
property Width : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FDeckType : TDecks;
FShowDeck : Boolean;
FSuit : TCardSuit;
FValue : TCardValue;