Class TEffectStylePropEd (unit LeEfctEd)

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 EffectStyle property based on the value of the label selected

procedure LabelEffectDblClick(Sender: TObject);

As above and exit

procedure SetEffectStyle(EsStyle: TEffectStyle);

Set the EffectStyle property of the form and highlight appropriate label

Properties

property EffectStyle : TEffectStyle

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;


LabelEffect4 : TLabelEffect;


LabelEffect5 : TLabelEffect;


FEffectStyle : TEffectStyle;

Private declarations


Constructors


constructor Create(AOwner:TComponent);

Initialise default values for internal fields


Functions


procedure LabelEffectClick(Sender: TObject);

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


procedure LabelEffectDblClick(Sender: TObject);

As above and exit


procedure SetEffectStyle(EsStyle: TEffectStyle);

Set the EffectStyle property of the form and highlight appropriate label


Properties


property EffectStyle : TEffectStyle

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;


LabelEffect4 : TLabelEffect;


LabelEffect5 : TLabelEffect;


FEffectStyle : TEffectStyle;

Private declarations