Class TZipForm (unit tziplist) |
Inherits from
TForm
procedure Button2Click(Sender: TObject);
end with
procedure FillGrid;
first row is fixed, and used for titles
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure StringGrid1BeginSort(Sender: TObject; Col: Longint;
var SortOptions: TSortOptions);
This just shows you which column, datatype, and sort order will be used.
Button2 : TButton;
Label1 : TLabel;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
StringGrid1 : TSortGrid;
ZipFNameLabel : TLabel;
procedure Button2Click(Sender: TObject);
end with
procedure FillGrid;
first row is fixed, and used for titles
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure StringGrid1BeginSort(Sender: TObject; Col: Longint;
var SortOptions: TSortOptions);
This just shows you which column, datatype, and sort order will be used. } { This is keyed from the SortGrid's OnBeginSort event. } { You can remove this if you want.
Button2 : TButton;
Label1 : TLabel;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
StringGrid1 : TSortGrid;
ZipFNameLabel : TLabel;