| Class TfrmMain (unit CompressU) |
TForm
| Constructors |
| Functions |
procedure btnAbortClick(Sender: TObject);
procedure btnCompressClick(Sender: TObject);
procedure btnContinueClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure btnOpenClick(Sender: TObject);
procedure FormActivate(Sender: TObject);| Properties |
| Events |
| Variables |
btnAbort : TButton;
btnCompress : TButton;
btnContinue : TButton;
btnExit : TButton;
btnOpen : TButton;
edtCapacity : TEdit;
edtMax : TEdit;
edtVFileName : TEdit;
labCapacity : TLabel;
labMax : TLabel;
labVFileName : TLabel;
memIntro : TMemo;
Memo1 : TMemo;
nbkMain : TNotebook;
pbrDoIt : TProgressBar;| Constructors |
| Functions |
procedure btnAbortClick(Sender: TObject);Get file header data
procedure btnCompressClick(Sender: TObject);
procedure btnContinueClick(Sender: TObject);Now close the files and rename them
procedure btnExitClick(Sender: TObject);
procedure btnOpenClick(Sender: TObject);
procedure FormActivate(Sender: TObject);| Properties |
| Events |
| Variables |
btnAbort : TButton;
btnCompress : TButton;
btnContinue : TButton;
btnExit : TButton;
btnOpen : TButton;
edtCapacity : TEdit;
edtMax : TEdit;
edtVFileName : TEdit;
labCapacity : TLabel;
labMax : TLabel;
labVFileName : TLabel;
memIntro : TMemo;
Memo1 : TMemo;
nbkMain : TNotebook;
pbrDoIt : TProgressBar;