Class TCards (unit TomCard)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

fake a BM header to keep LoadFromStream happy


Functions

destructor Destroy;


procedure Paint;

Protected declarations

procedure GetCardFromDLL;


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


procedure LoadResBmp(Name:string;Dest:TBitmap);


procedure SetCardBackStyle(value:integer);


procedure SetState(value:TCardState);


procedure SetSuit(value:TCardSuit);


procedure SetValue(value:integer);


Properties

property CardBackStyle : integer

Published declarations

property Cursor :


property DragMode :


property Enabled :


property Height :


property Hint :


property Left :


property Name :


property ShowHint :


property State : TCardState


property Suit : TCardSuit


property Tag :


property Top :


property Value : integer


property Visible :


property Width :


property Canvas :

Public declarations

Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FBitmap : TBitmap;

Private declarations

FCardBackStyle : integer;


FState : TCardState;


FSuit : TCardSuit;


FValue : integer;



Constructors


constructor Create(AOwner: TComponent);

fake a BM header to keep LoadFromStream happy


Functions


destructor Destroy;


procedure Paint;

Protected declarations


procedure GetCardFromDLL;


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


procedure LoadResBmp(Name:string;Dest:TBitmap);


procedure SetCardBackStyle(value:integer);


procedure SetState(value:TCardState);


procedure SetSuit(value:TCardSuit);


procedure SetValue(value:integer);


Properties


property CardBackStyle : integer

Published declarations


property Cursor :


property DragMode :


property Enabled :


property Height :


property Hint :


property Left :


property Name :


property ShowHint :


property State : TCardState


property Suit : TCardSuit


property Tag :


property Top :


property Value : integer


property Visible :


property Width :


property Canvas :

Public declarations


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FBitmap : TBitmap;

Private declarations


FCardBackStyle : integer;


FState : TCardState;


FSuit : TCardSuit;


FValue : integer;