| Class TPlayingCard (unit Cards) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| 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 :
property DragMode :
property Enabled :
property FaceIndex : Integer
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 : IntegerNew 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;