[Overview][Types][Classes][Procedures and functions][Index] | Reference for unit 'ColorBox' (#lcl)

# TCustomColorListBox

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

TCustomColorListBox - base class for TColorListBox

## Declaration

Source position: colorbox.pas line 153

`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;`

## Inheritance

`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`

The latest version of this document can be found at lazarus-ccr.sourceforge.net .