| Class TMainForm (unit FMain) |
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;| 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