Class TCard (unit Card)

Inherits from

TGraphicControl

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;



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;