Class TForm1 (unit Compress)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure RBtnAutoClick(Sender: TObject);

Fast

procedure RBtnFastClick(Sender: TObject);

does autodetect, really

procedure RBtnGoodClick(Sender: TObject);


procedure ThresholdExit(Sender: TObject);


procedure DisableButtons;


procedure EnableButtons;


procedure Loaded;


Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Compressor : Tlzrw1;


InputFile : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


OutputFile : TEdit;


RBtnAuto : TRadioButton;


RBtnFast : TRadioButton;


RBtnGood : TRadioButton;


RgrpComprMode : TRadioGroup;


Threshold : TSpinEdit;


CompressionMode : TcompressMode;

Private declarations


Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure RBtnAutoClick(Sender: TObject);

Fast


procedure RBtnFastClick(Sender: TObject);

does autodetect, really


procedure RBtnGoodClick(Sender: TObject);


procedure ThresholdExit(Sender: TObject);


procedure DisableButtons;


procedure EnableButtons;


procedure Loaded;


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Compressor : Tlzrw1;


InputFile : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


OutputFile : TEdit;


RBtnAuto : TRadioButton;


RBtnFast : TRadioButton;


RBtnGood : TRadioButton;


RgrpComprMode : TRadioGroup;


Threshold : TSpinEdit;


CompressionMode : TcompressMode;

Private declarations