Revision 2 of 2, by Wp on 8-2-2019. The page as it is now.

TColorListBox

A TColorListBox is a component that shows a (scrollable) list of colors from which the user can select one. It is available from the Additional tab of the Component Palette.

Specific properties of TColorListBox are:

ColorRectOffset - margin around each color rectangle
ColorRectWidth - width of a color rectangle
Style - defines the items shown in the listbox, and how the colors are named
- cbStandardColors - includes the 16 LCL standard colors in the list, e.g. clRed or clBlue
- cbExtendedColors - includes the 4 LCL extended colors: clMoneyGreen, clSkyBlue, clCream, clMedGray
- cbSystemColors - includes the OS- and theme-dependent system colors
- cbIncludeNone - includes the special color clNone. Use the property NoneColorColor to determine the replacement color. If NoneColorColor is set to clNone the color rectangle displays a crossed-out box like in many drawing programs.
- cbIncludeDefault - include the special color clDefault. Property DefaultColorColor determines the actual color displayed.
- cbCustomColor - the first listbox item is customizable by means of the standard color dialog.
- cbPrettyNames - displays "pretty" color names next to the color boxes, e.g. 'Red'. Without this option the internal color names are used, e.g. 'clRed'.
- cbCustomColors - includes user-provided colors at the end of the list. The colors must be defined by a stringlist in the OnGetColors event, like this:

pascal

  procedure TForm1.ColorListBox1GetColors(Sender: TCustomColorListBox; Items: TStrings);
  begin
    Items.AddObject('Gold', TObject(PtrInt($00D7FF)));
    Items.AddObject('Chocolate', TObject(PtrInt($1E69D2)));
    Items.AddObject('Light blue', TObject(PtrInt($E6D8AD)));  
  end;

==See also==

From the Free Pascal wiki, page "TColorListBox", as it stood on 2019-08-02 after a change by Wp, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.