Class TMultiColourControl (unit MultiColour)

Inherits from

TGraphicControl

Constructors


constructor Create (AOwner: TComponent);



Functions

function ListToString: string;


procedure StringToList (const Value: string);


function GetNumColours: integer;


procedure SetNumColours (Value: integer);


procedure SetStandardColours;

now set up some default values

Properties

property Colours : string


property NumColours : integer


Events

event OnColourChange : TNotifyEvent


Variables

ColourArray : array [0..max_colours-1] of TColor;


FNumColours : integer;


FOnColourChange : TNotifyEvent;



Constructors


constructor Create (AOwner: TComponent);


Functions


function ListToString: string;


procedure StringToList (const Value: string);


function GetNumColours: integer;


procedure SetNumColours (Value: integer);


procedure SetStandardColours;

now set up some default values


Properties


property Colours : string


property NumColours : integer


Events


event OnColourChange : TNotifyEvent


Variables


ColourArray : array [0..max_colours-1] of TColor;


FNumColours : integer;


FOnColourChange : TNotifyEvent;