TCustomColorListBox

type TCustomColorListBox = class(TCustomListBox)

protected

  procedure DrawItem(); override;

DrawItem - method to draw the nominated indexed item in the specified rectangle

  procedure SetColorList;

SetColorList - specifies the list of colours

  procedure Loaded; override;

  procedure InitializeWnd; override;

InitializeWnd - initialise the window for this control

  procedure DoGetColors; virtual;

DoGetColors - perform the code for getting the colours

  procedure DoSelectionChange(); override;

DoSelectionChange - perform a change in the selection

  function PickCustomColor; virtual;

PickCustomColor - if True, a custom colour is picked rather than one from the standard list

public

  constructor Create(); override;

Create - constructor for TCustomColorListBox: calls inherited Create, initialises style, default colours and sets colour list

  property Style: TColorBoxStyle; [rw]

Style of List Box - normal, owner-draw fixed, or owner-draw variable

  property Colors: TColor; [r]

The Colors specified by Index

  property ColorNames: String; [r]

ColorNames - the name of the indexed colour, stored as a string

  property Selected: TColor; [rw]

Selected - whether the Item with given Index has been selected

  property DefaultColorColor: TColor; [rw]

DefaultColorColor - the default colour, expressed as a Color value

  property NoneColorColor: TColor; [rw]

NoneColorColor - the colour to be used when no selection has been made, or when None is selected, stored as a TColor

  property OnGetColors: TLBGetColorsEvent; [rw]

OnGetColors - event handler for the instruction to Get Colours

end;

TCustomColorListBox

TCustomColorListBox - base class for TColorListBox

TCustomListBox

TCustomList Box : the base class for TListBox

TWinControl

TControl

TLCLComponent

TLCLComponent - base class for LCL components

TComponent,IUnknown,IInterfaceComponentReference

TPersistent

TObject