Class TfrmMain (unit CompressU)

Inherits from

TForm

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;



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;