Class TCards (unit Tomcard2)

Inherits from

TImage

Constructors


constructor Create(AOwner: TComponent);

Public declarations

fake a BM header to keep LoadFromStream happy



Functions

procedure DisplayCard;


procedure LoadDLLBmp(FileName:string; BmpId:Integer; Dest:TBitmap);


procedure SetCardBackStyle(value:integer);


procedure SetDeckValue(value:integer);


procedure SetState(value:TCardState);


procedure SetSuit(value:TCardSuit);


procedure SetValue(value:integer);


Properties

property CardBackStyle : integer


property Deckvalue : Integer


property State : TCardState

Published declarations

property Suit : TCardSuit


property Value : integer


property SuitColor : TSuitColor


Events

Variables

FCardBackStyle : integer;


FDValue : Integer;


FState : TCardState;

Private declarations

FSuit : TCardSuit;


FSuitColor : TSuitColor;


FValue : integer;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

fake a BM header to keep LoadFromStream happy


Functions


procedure DisplayCard;


procedure LoadDLLBmp(FileName:string; BmpId:Integer; Dest:TBitmap);


procedure SetCardBackStyle(value:integer);


procedure SetDeckValue(value:integer);


procedure SetState(value:TCardState);


procedure SetSuit(value:TCardSuit);


procedure SetValue(value:integer);


Properties


property CardBackStyle : integer


property Deckvalue : Integer


property State : TCardState

Published declarations


property Suit : TCardSuit


property Value : integer


property SuitColor : TSuitColor


Events


Variables


FCardBackStyle : integer;


FDValue : Integer;


FState : TCardState;

Private declarations


FSuit : TCardSuit;


FSuitColor : TSuitColor;


FValue : integer;