Class TMain (unit UMain)

Inherits from

TForm

Constructors



Functions

procedure BrowseDialog1SelectionChanged(Sender: TObject; Wnd: Integer; Path: string; var ShowText: string; var OKButtonState: TOKButtonState);


procedure Button1Click(Sender: TObject);


procedure SetFilesToList(CurDir: string);

Private 錾

Properties

Events

Variables

BrowseDialog1 : TBrowseDialog;


Button1 : TButton;


Edit1 : TEdit;


FileList : TListView;


IconList : TImageList;


Label1 : TLabel;


Panel1 : TPanel;



Constructors


Functions


procedure BrowseDialog1SelectionChanged(Sender: TObject; Wnd: Integer; Path: string; var ShowText: string; var OKButtonState: TOKButtonState);


procedure Button1Click(Sender: TObject);


procedure SetFilesToList(CurDir: string);

Private 錾


Properties


Events


Variables


BrowseDialog1 : TBrowseDialog;


Button1 : TButton;


Edit1 : TEdit;


FileList : TListView;


IconList : TImageList;


Label1 : TLabel;


Panel1 : TPanel;