Class TZipForm (unit tziplist)

Inherits from

TForm

Constructors



Functions

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.

Properties

Events

Variables

Button2 : TButton;


Label1 : TLabel;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


StringGrid1 : TSortGrid;


ZipFNameLabel : TLabel;



Constructors


Functions


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.


Properties


Events


Variables


Button2 : TButton;


Label1 : TLabel;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


StringGrid1 : TSortGrid;


ZipFNameLabel : TLabel;