Class TAddByTypeForm (unit AssocSel)

Inherits from

TForm

Constructors



Functions

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);

if i
procedure ListBox1Click(Sender: TObject);


procedure ListBox1DblClick(Sender: TObject);


procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; aRect: TRect; State: TOwnerDrawState);


procedure ListBox1MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);


procedure LoadFileTypes;


Properties

Events

Variables

ATShell1 : TATShell;


Button1 : TButton;


Button2 : TButton;


Label2 : TLabel;


ListBox1 : TListBox;


Selection : string;

Public declarations


Constructors


Functions


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);

if i


procedure ListBox1Click(Sender: TObject);


procedure ListBox1DblClick(Sender: TObject);


procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; aRect: TRect; State: TOwnerDrawState);


procedure ListBox1MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);


procedure LoadFileTypes;


Properties


Events


Variables


ATShell1 : TATShell;


Button1 : TButton;


Button2 : TButton;


Label2 : TLabel;


ListBox1 : TListBox;


Selection : string;

Public declarations