Class TPlayingCard (unit Cards)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

TPlayingCard methods


Functions

function AddBack(Bitmap: TBitmap): Integer;


function AddTool(Bitmap: TBitmap): Integer;


function LoadBack(const Filename: string): Integer;


function LoadTool(const Filename: string): Integer;


function GetBackCount: Integer;


function GetToolCount: Integer;


procedure Paint;


procedure SetBackIndex(AnIndex: Integer);


procedure SetFaceIndex(AnIndex: Integer);


procedure SetSelected(AValue: Boolean);


procedure SetShow(AnOption: TShowOption);


procedure SetSuit(ASuit: Integer);


procedure SetToolIndex(AnIndex: Integer);


procedure SetValue(AValue: Integer);


procedure UpdateFaceIndex;


Properties

property Align :


property BackIndex : Integer


property Cursor :


property DragCursor :

Existing properties

property DragMode :


property Enabled :


property FaceIndex : Integer

New properties

property Height :


property Hint :


property Left :


property ParentShowHint :


property PopupMenu :


property Selected : Boolean


property Show : TShowOption


property ShowHint :


property Suit : Integer


property ToolIndex : Integer


property Top :


property Value : Integer


property Visible :


property Width :


property BackCount : Integer


property ToolCount : Integer


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FBackIndex : Integer;


FFaceIndex : Integer;


FSelected : Boolean;


FShow : TShowOption;


FSuit : Integer;


FToolIndex : Integer;


FValue : Integer;



Constructors


constructor Create(AOwner: TComponent);

TPlayingCard methods


Functions


function AddBack(Bitmap: TBitmap): Integer;


function AddTool(Bitmap: TBitmap): Integer;


function LoadBack(const Filename: string): Integer;


function LoadTool(const Filename: string): Integer;


function GetBackCount: Integer;


function GetToolCount: Integer;


procedure Paint;


procedure SetBackIndex(AnIndex: Integer);


procedure SetFaceIndex(AnIndex: Integer);


procedure SetSelected(AValue: Boolean);


procedure SetShow(AnOption: TShowOption);


procedure SetSuit(ASuit: Integer);


procedure SetToolIndex(AnIndex: Integer);


procedure SetValue(AValue: Integer);


procedure UpdateFaceIndex;


Properties


property Align :


property BackIndex : Integer


property Cursor :


property DragCursor :

Existing properties


property DragMode :


property Enabled :


property FaceIndex : Integer

New properties


property Height :


property Hint :


property Left :


property ParentShowHint :


property PopupMenu :


property Selected : Boolean


property Show : TShowOption


property ShowHint :


property Suit : Integer


property ToolIndex : Integer


property Top :


property Value : Integer


property Visible :


property Width :


property BackCount : Integer


property ToolCount : Integer


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FBackIndex : Integer;


FFaceIndex : Integer;


FSelected : Boolean;


FShow : TShowOption;


FSuit : Integer;


FToolIndex : Integer;


FValue : Integer;