Class TGraduateOptionPropEd (unit LeGradEd)

Inherits from

TForm

The form to be displayed when choosing the value of the property

Constructors


constructor Create(AOwner:TComponent);

Initialise default values for internal fields


Functions

procedure LabelEffectClick(Sender: TObject);

Set the form's GraduateOption property based on the value of the label selected

procedure LabelEffectDblClick(Sender: TObject);

As above and exit

procedure SetGraduateOption(GoOption: TGraduateOption);

Set the GraduateOption property of the form and highlight appropriate label

Properties

property GraduateOption : TGraduateOption

Public declarations } { Declare a public property to allow communication with the form

Events

Variables

BitBtn2 : TBitBtn;


btnOK : TBitBtn;


LabelEffect1 : TLabelEffect;


LabelEffect2 : TLabelEffect;

Each label has a different effect

LabelEffect3 : TLabelEffect;


FGraduateOption : TGraduateOption;

Private declarations


Constructors


constructor Create(AOwner:TComponent);

Initialise default values for internal fields


Functions


procedure LabelEffectClick(Sender: TObject);

Set the form's GraduateOption property based on the value of the label selected


procedure LabelEffectDblClick(Sender: TObject);

As above and exit


procedure SetGraduateOption(GoOption: TGraduateOption);

Set the GraduateOption property of the form and highlight appropriate label


Properties


property GraduateOption : TGraduateOption

Public declarations } { Declare a public property to allow communication with the form


Events


Variables


BitBtn2 : TBitBtn;


btnOK : TBitBtn;


LabelEffect1 : TLabelEffect;


LabelEffect2 : TLabelEffect;

Each label has a different effect


LabelEffect3 : TLabelEffect;


FGraduateOption : TGraduateOption;

Private declarations