TJppCustomColorListBox

type TJppCustomColorListBox = class(TCustomListBox)

protected

  procedure PropsChanged();

  procedure CreateWnd; override;

  procedure KeyPress(); override;

  procedure Loaded; override;

  procedure DrawItem(); override;

  procedure GetColorFromStr();

  procedure RecreateItems;

  procedure Notification(); override;

public

  procedure Click; override;

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  procedure AssignParams();

  procedure BeginUpdate;

  procedure EndUpdate();

  function UpdatingControl;

  procedure SelectAll; override;

  procedure UnselectAll;

  procedure InvertSelection;

  procedure RemoveSelectedItems;

  procedure ShowColorDialog;

  procedure GetItemInfo();

  function GetItemType();

  function GetItemColor();

  function GetItemName();

  function GetColorIndex();

  function SetItemColor();

  function SetItemName();

  function IsSeparatorItem();

  function IsColorItem();

  function IsChangeColorItem();

  function ColorExists();

  procedure AddColorsFromArray();

  procedure AddColorsFromColorListBox();

  function AddColor();

  procedure InsertColor();

  function AddChangeColorItem();

  procedure InsertChangeColorItem();

  function AddSeparatorItem();

  procedure InsertSeparatorItem();

  function AsColorArray;

  procedure UpdateColorObject();

  procedure UpdateAllColorObjects;

  procedure ScrollToLast;

  procedure ScrollToFirst;

  property SelectedColor: TColor; [rw]

  property Appearance: TJppColorListBoxAppearance; [rw]

  property TagExt: TJppTagExt; [rw]

  property NoneColor: TColor; [rw]

  property ColorListSet: TColorListSet; [rw]

  property Options: TJppColorListBoxOptions; [rw]

  property OnColorChanged: TNotifyEvent; [rw]

  property OnSelectSeparatorItem: TJppColorControlSelectSeparator; [rw]

  property OnSelectChangeColorItem: TJppColorControlSelectChangeColor; [rw]

  property OnGetColorStrValue: TJppColorControlGetColorStrValue; [rw]

  property OnBeforePaintItem: TJppColorListBoxBeforePaintItem; [rw]

  property OnAfterPaintItem: TJppColorListBoxAfterPaintItem; [rw]

  property OnGetItemBackgroundColor: TJppColorListBoxGetItemBackgroundColor; [rw]

  property OnGetItemGradientColors: TJppColorListBoxGetItemGradientColors; [rw]

  property OnGetItemTextColor: TJppColorListBoxGetItemTextColor; [rw]

  property OnGetNumericItemTextColor: TJppColorListBoxGetNumericItemTextColor; [rw]

  property AnchoredControls: TJppAnchoredControls; [rw]

end;

TJppCustomColorListBox

TObject