Class TfrmMain (unit designu)

Inherits from

TForm

Constructors



Functions

procedure btnBackClick(Sender: TObject);

case 0

procedure btnDoitClick(Sender: TObject);


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;



Constructors


Functions


procedure btnBackClick(Sender: TObject);

case 0


procedure btnDoitClick(Sender: TObject);


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;