| Class TColourSchemePropEd (unit LeColrEd) |
TForm
The form to be displayed when choosing the value of the property
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
procedure LabelEffectClick(Sender: TObject);
procedure LabelEffectDblClick(Sender: TObject);
procedure SetColourScheme(CsScheme: TColourScheme);| Properties |
property ColourScheme : TColourScheme| Events |
| Variables |
BitBtn2 : TBitBtn;
btnOK : TBitBtn;
LabelEffect1 : TLabelEffect;
LabelEffect2 : TLabelEffect;
LabelEffect3 : TLabelEffect;
LabelEffect4 : TLabelEffect;
LabelEffect5 : TLabelEffect;
FColourScheme : TColourScheme;| Constructors |
constructor Create(AOwner:TComponent);Initialise default values for internal fields
| Functions |
procedure LabelEffectClick(Sender: TObject);Set the form's ColourScheme property based on the value of the label selected
procedure LabelEffectDblClick(Sender: TObject);As above and exit
procedure SetColourScheme(CsScheme: TColourScheme);Set the ColourScheme property of the form and highlight appropriate label
| Properties |
property ColourScheme : TColourSchemePublic 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;
FColourScheme : TColourScheme;Private declarations