Class TMainForm (unit FMain)

Inherits from

TForm

Constructors



Functions

procedure AddBackBtnClick(Sender: TObject);


procedure AddToolBtnClick(Sender: TObject);


procedure BackIndexBtnClick(Sender: TObject);


procedure CardMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FaceIndexBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure ShowBtnClick(Sender: TObject);


procedure SuitBtnClick(Sender: TObject);


procedure ToolIndexBtnClick(Sender: TObject);


procedure ValueBtnClick(Sender: TObject);


Properties

Events

Variables

AddBackBtn : TButton;


AddDialog : TOpenDialog;


AddToolBtn : TButton;


BackIndexBtn : TButton;


FaceIndexBtn : TButton;


PlayingCard1 : TPlayingCard;


PlayingCard2 : TPlayingCard;


PlayingCard3 : TPlayingCard;


ShowBtn : TButton;


SuitBtn : TButton;


ToolIndexBtn : TButton;


ValueBtn : TButton;


Card : TPlayingCard;

Private declarations


Constructors


Functions


procedure AddBackBtnClick(Sender: TObject);


procedure AddToolBtnClick(Sender: TObject);


procedure BackIndexBtnClick(Sender: TObject);


procedure CardMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FaceIndexBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure ShowBtnClick(Sender: TObject);


procedure SuitBtnClick(Sender: TObject);


procedure ToolIndexBtnClick(Sender: TObject);


procedure ValueBtnClick(Sender: TObject);


Properties


Events


Variables


AddBackBtn : TButton;


AddDialog : TOpenDialog;


AddToolBtn : TButton;


BackIndexBtn : TButton;


FaceIndexBtn : TButton;


PlayingCard1 : TPlayingCard;


PlayingCard2 : TPlayingCard;


PlayingCard3 : TPlayingCard;


ShowBtn : TButton;


SuitBtn : TButton;


ToolIndexBtn : TButton;


ValueBtn : TButton;


Card : TPlayingCard;

Private declarations