Class TEffectStylePropEd (unit LeEfctEd) |
Inherits from
TForm
The form to be displayed when choosing the value of the property
constructor Create(AOwner:TComponent);
- Initialise default values for internal fields
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
property EffectStyle : TEffectStyle
Public declarations } { Declare a public property to allow communication with the form
BitBtn2 : TBitBtn;
btnOK : TBitBtn;
LabelEffect1 : TLabelEffect;
LabelEffect2 : TLabelEffect;
Each label has a different effect
LabelEffect3 : TLabelEffect;
LabelEffect4 : TLabelEffect;
LabelEffect5 : TLabelEffect;
FEffectStyle : TEffectStyle;
Private declarations
constructor Create(AOwner:TComponent);
Initialise default values for internal fields
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
property EffectStyle : TEffectStyle
Public declarations } { Declare a public property to allow communication with the form
BitBtn2 : TBitBtn;
btnOK : TBitBtn;
LabelEffect1 : TLabelEffect;
LabelEffect2 : TLabelEffect;
Each label has a different effect
LabelEffect3 : TLabelEffect;
LabelEffect4 : TLabelEffect;
LabelEffect5 : TLabelEffect;
FEffectStyle : TEffectStyle;
Private declarations