Inherits from
TGraphicControl
constructor Create(AOwner: TComponent);
- change here to set the palette page for the TCard component
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);
property DeckType : TDecks
property ShowDeck : Boolean
property Suit : TCardSuit
property Value : TCardValue
property Height :
property Width :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FDeckType : TDecks;
FShowDeck : Boolean;
FSuit : TCardSuit;
FValue : TCardValue;
constructor Create(AOwner: TComponent);
change here to set the palette page for the TCard component
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);
property DeckType : TDecks
property ShowDeck : Boolean
property Suit : TCardSuit
property Value : TCardValue
property Height :
property Width :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FDeckType : TDecks;
FShowDeck : Boolean;
FSuit : TCardSuit;
FValue : TCardValue;