Class TCard (unit TJCards)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;


procedure SetCardSuit(CardSuitValue: TCardSuit);


procedure SetCardValue(CardValue: TCardValue);


procedure SetSelectedCard(CardSelectedValue: Boolean);


procedure SetShowCard(CardShowValue: Boolean);


procedure Paint;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


Properties

property Card : TCardValue

Published declarations

property DragMode :


property SelectedCard : Boolean


property ShowCard : Boolean


property Suit : TCardSuit


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FCardSuit : TCardSuit;


FCardValue : TCardValue;

Protected declarations

FSelectedCard : Boolean;


FShowCard : Boolean;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;


procedure SetCardSuit(CardSuitValue: TCardSuit);


procedure SetCardValue(CardValue: TCardValue);


procedure SetSelectedCard(CardSelectedValue: Boolean);


procedure SetShowCard(CardShowValue: Boolean);


procedure Paint;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


Properties


property Card : TCardValue

Published declarations


property DragMode :


property SelectedCard : Boolean


property ShowCard : Boolean


property Suit : TCardSuit


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FCardSuit : TCardSuit;


FCardValue : TCardValue;

Protected declarations


FSelectedCard : Boolean;


FShowCard : Boolean;