| Class TMainform (unit mainunit) |
TForm
| Constructors |
| Functions |
procedure AddButClick(Sender: TObject);
procedure CloseButClick(Sender: TObject);
procedure ConvertButClick(Sender: TObject);
procedure DeleteButClick(Sender: TObject);
procedure DeleteZipButClick(Sender: TObject);
procedure ExtractButClick(Sender: TObject);
procedure FillGrid;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure MsgButClick(Sender: TObject);
procedure NewZipButClick(Sender: TObject);
procedure StringGrid1ClickSort(Sender: TObject; Col, Row: Longint;
var SortOptions: TSortOptions);
procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
procedure TestButClick(Sender: TObject);
procedure ZipMaster1DirUpdate(Sender: TObject);
procedure ZipMaster1Message(Sender: TObject; ErrCode: Integer;
Message: string);
procedure ZipMaster1Progress(Sender: TObject; ProgrType: ProgressType;
FileName: string; FileSize: Longint);
procedure ZipOpenButClick(Sender: TObject);
procedure SetZipFName( aCaption: String );| Properties |
| Events |
| Variables |
AddBut : TButton;
Bevel1 : TBevel;
Bevel2 : TBevel;
CloseBut : TButton;
ConvertBut : TButton;
DeleteBut : TButton;
DeleteZipBut : TButton;
ExtractBut : TButton;
FilesLabel : TLabel;
ImageList1 : TImageList;
Label1 : TLabel;
Label2 : TLabel;
Label4 : TLabel;
MsgBut : TButton;
NewZipBut : TButton;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
StringGrid1 : TSortGrid;
TestBut : TButton;
TimeLabel : TLabel;
TraceCB : TCheckBox;
VerboseCB : TCheckBox;
ZipFName : TLabel;
ZipMaster1 : TZipMaster;
ZipOpenBut : TButton;
DoIt : Boolean;
GSortCol : Longint;
GSortOptions : TSortOptions;| Constructors |
| Functions |
procedure AddButClick(Sender: TObject);end with
procedure CloseButClick(Sender: TObject);if mil > 9 then smil := inttostr(mil) else smil := '0' + inttostr(mil);
procedure ConvertButClick(Sender: TObject);
procedure DeleteButClick(Sender: TObject);reset the progress bar and filename } { ShowMessage('In OnProgress type 3');
procedure DeleteZipButClick(Sender: TObject);end with
procedure ExtractButClick(Sender: TObject);Don't use the new name
procedure FillGrid;If we had args on the cmd line, then try to open the first one as a zip/exe file. This is most useful in case user has an association to ".zip" that causes this program to run when user dble clicks on a zip file in Explorer.
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);Put this message into the message form's memo
procedure MsgButClick(Sender: TObject);This will really do a test
procedure NewZipButClick(Sender: TObject);Set the caption after assigning the filename. This way, the filename will be null if the open failed.
procedure StringGrid1ClickSort(Sender: TObject; Col, Row: Longint;
var SortOptions: TSortOptions);Convert .ZIP to .EXE } { NOTE: If you put the ZIPSFX.BIN file into the WINDOWS or WINDOWS SYSTEM dir, then you don't need to set the SFXPath property below: } { ZipMaster1.SFXPath:='c:\windows\system\zipsfx.bin';
procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
procedure TestButClick(Sender: TObject);
procedure ZipMaster1DirUpdate(Sender: TObject);end with
procedure ZipMaster1Message(Sender: TObject; ErrCode: Integer;
Message: string);This is the "OnMessage" event handler
procedure ZipMaster1Progress(Sender: TObject; ProgrType: ProgressType;
FileName: string; FileSize: Longint);
procedure ZipOpenButClick(Sender: TObject);
procedure SetZipFName( aCaption: String );| Properties |
| Events |
| Variables |
AddBut : TButton;
Bevel1 : TBevel;
Bevel2 : TBevel;
CloseBut : TButton;
ConvertBut : TButton;
DeleteBut : TButton;
DeleteZipBut : TButton;
ExtractBut : TButton;
FilesLabel : TLabel;
ImageList1 : TImageList;
Label1 : TLabel;
Label2 : TLabel;
Label4 : TLabel;
MsgBut : TButton;
NewZipBut : TButton;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
StringGrid1 : TSortGrid;
TestBut : TButton;
TimeLabel : TLabel;
TraceCB : TCheckBox;
VerboseCB : TCheckBox;
ZipFName : TLabel;
ZipMaster1 : TZipMaster;
ZipOpenBut : TButton;
DoIt : Boolean;Public declarations
GSortCol : Longint;
GSortOptions : TSortOptions;