Class TMainForm (unit sc_form)

Inherits from

TForm

Constructors



Functions

procedure CabinetReader1CopyFile(Sender: TObject; const FileName: String; UncompressedSize: Integer; Date, Time, Attribs: Smallint; var Action: TFileCopyAction; var DestFileHandle: Integer);


procedure CompressBtnClick(Sender: TObject);


procedure ExtractBtnClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure Log (const Text : string);


procedure Status (const Text : string);

Private declarations

Properties

Events

Variables

BetterCheckBox : TCheckBox;


CabinetReader1 : TCabinetReader;


CabinetWriter1 : TCabinetWriter;


CompressBtn : TButton;


DestEdit : TEdit;


ExtractBtn : TButton;


FilesEdit : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


ListBox1 : TListBox;


NameEdit : TEdit;


StatusBar1 : TStatusBar;


StreamCabinetFileHandler1 : TStreamCabinetFileHandler;



Constructors


Functions


procedure CabinetReader1CopyFile(Sender: TObject; const FileName: String; UncompressedSize: Integer; Date, Time, Attribs: Smallint; var Action: TFileCopyAction; var DestFileHandle: Integer);


procedure CompressBtnClick(Sender: TObject);


procedure ExtractBtnClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure Log (const Text : string);


procedure Status (const Text : string);

Private declarations


Properties


Events


Variables


BetterCheckBox : TCheckBox;


CabinetReader1 : TCabinetReader;


CabinetWriter1 : TCabinetWriter;


CompressBtn : TButton;


DestEdit : TEdit;


ExtractBtn : TButton;


FilesEdit : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


ListBox1 : TListBox;


NameEdit : TEdit;


StatusBar1 : TStatusBar;


StreamCabinetFileHandler1 : TStreamCabinetFileHandler;