| Class TCards (unit TomCard) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Paint;
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
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 : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FBitmap : TBitmap;
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 : integerPublished 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;