Class TColourSchemePropEd (unit LeColrEd)

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 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 : TColourScheme

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;


FColourScheme : TColourScheme;

Private declarations


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 : TColourScheme

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;


FColourScheme : TColourScheme;

Private declarations