| Class TfrmMain (unit Testkeyu) |
TForm
| Constructors |
| Functions |
procedure btnBackClick(Sender: TObject);
procedure btnDoitClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure btnNextClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure pnlContrastClick(Sender: TObject);
procedure SetButtonsEnabled;| Properties |
| Events |
| Variables |
btnBack : TButton;
btnDoit : TButton;
btnExit : TButton;
btnNext : TButton;
clrdlgShow : TColorDialog;
edtKeyLength : TEdit;
labCreateKetFile : TLabel;
labKeyLength : TLabel;
labPause : TLabel;
labTestKey : TLabel;
memStart : TMemo;
nbkMain : TNotebook;
pbrFill : TProgressBar;
pnlButtons : TPanel;
pnlContrast : TPanel;
rgpCharCase : TRadioGroup;
rgpMethod : TRadioGroup;
rgpStart : TRadioGroup;| Constructors |
| Functions |
procedure btnBackClick(Sender: TObject);case 0
procedure btnDoitClick(Sender: TObject);DeleteFile('SAMPLE.KEY'); DeleteFile('_SAMPLE.KEY');
procedure btnExitClick(Sender: TObject);
procedure btnNextClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure pnlContrastClick(Sender: TObject);
procedure SetButtonsEnabled;Private declarations
| Properties |
| Events |
| Variables |
btnBack : TButton;
btnDoit : TButton;
btnExit : TButton;
btnNext : TButton;
clrdlgShow : TColorDialog;
edtKeyLength : TEdit;
labCreateKetFile : TLabel;
labKeyLength : TLabel;
labPause : TLabel;
labTestKey : TLabel;
memStart : TMemo;
nbkMain : TNotebook;
pbrFill : TProgressBar;
pnlButtons : TPanel;
pnlContrast : TPanel;
rgpCharCase : TRadioGroup;
rgpMethod : TRadioGroup;
rgpStart : TRadioGroup;