Class TMainform (unit mainunit) |
Inherits from
TForm
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.
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.
procedure StringGrid1ClickSort(Sender: TObject; Col, Row: Longint;
var SortOptions: TSortOptions);
Convert .
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 );
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;
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 );
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;