| Class TMainForm (unit sc_form) |
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);| 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;