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:

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

• TColorListBox doc
• TColorBox
• TListBox

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.