Class TIconSelForm (unit Calmuniv)

Inherits from

TForm

Constructors



Functions

procedure BrowseBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure GridDrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


procedure GridSelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);


procedure SearchFile(const filename: TFilename);


Properties

property Index : Integer

Public declarations

Events

Variables

BrowseBtn : TSpeedButton;


CancelBtn : TBitBtn;


FileEdit : TEdit;


Grid : TDrawGrid;


Label1 : TLabel;


Label2 : TLabel;


OKBtn : TBitBtn;


OpenDialog : TOpenDialog;


FIndex : Integer;


Icons : TList;

Private declarations


Constructors


Functions


procedure BrowseBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure GridDrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


procedure GridSelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);


procedure SearchFile(const filename: TFilename);


Properties


property Index : Integer

Public declarations


Events


Variables


BrowseBtn : TSpeedButton;


CancelBtn : TBitBtn;


FileEdit : TEdit;


Grid : TDrawGrid;


Label1 : TLabel;


Label2 : TLabel;


OKBtn : TBitBtn;


OpenDialog : TOpenDialog;


FIndex : Integer;


Icons : TList;

Private declarations