Class TControlDialog (unit Cdialg16)

Inherits from

TForm

Renamed from Cdialog.pas 6/8/1998 Paul Rice to avoid conflict with Delphi 3 version.

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure CancelClick(Sender: TObject);

for

procedure FormShow(Sender: TObject);

no

procedure OKClick(Sender: TObject);


procedure RemoveClick(Sender: TObject);

if Not(TWincontrol(TheOwner).

procedure SelectClick(Sender: TObject);


Properties

Events

Variables

Available : TListBox;


Cancel : TSpeedButton;


Chosen : TListBox;


Label1 : TLabel;


Label2 : TLabel;


OK : TSpeedButton;


Remove : TSpeedButton;


Restore : TCheckBox;


Select : TSpeedButton;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure CancelClick(Sender: TObject);

for


procedure FormShow(Sender: TObject);

no


procedure OKClick(Sender: TObject);


procedure RemoveClick(Sender: TObject);

if Not(TWincontrol(TheOwner).Controls[i].ClassNameis('TResScale')) Then


procedure SelectClick(Sender: TObject);


Properties


Events


Variables


Available : TListBox;


Cancel : TSpeedButton;


Chosen : TListBox;


Label1 : TLabel;


Label2 : TLabel;


OK : TSpeedButton;


Remove : TSpeedButton;


Restore : TCheckBox;


Select : TSpeedButton;