TJppCustomColorComboBox

type TJppCustomColorComboBox = class(TCustomComboBox)

protected

  procedure SetParent(); override;

  procedure Notification(); override;

  procedure CMVisibleChanged(); message;

  procedure CMEnabledChanged(); message;

  procedure CMBiDiModeChanged(); message;

  procedure PropsChanged();

  procedure RecreateItems;

  procedure Loaded; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CreateWnd; override;

  procedure AssignParams();

  procedure BeginUpdate;

  procedure EndUpdate();

  function UpdatingControl;

  procedure DrawItem(); override;

  procedure GetColorFromStr();

  function GetSelectedColor;

  procedure SetSelectedColor();

  procedure Change; override;

  procedure ShowColorDlg;

  procedure SetupInternalLabel;

  procedure SetupButtonCopyColor;

  procedure SetupButtonChangeColor;

  procedure SetupButtonPasteColor;

  procedure SetBounds(); override;

  procedure SetButtonsPosition;

  function IsSeparatorItem();

  function IsChangeColorItem();

  function IsColorItem();

  function ColorExists();

  function AddColor();

  procedure InsertColor();

  function AddChangeColorItem();

  procedure InsertChangeColorItem();

  function AddSeparatorItem();

  procedure InsertSeparatorItem();

  procedure AddColorsFromArray();

  function GetItemType();

  procedure GetItemInfo();

  function GetItemColor();

  function GetItemName();

  function GetColorIndex();

  function AsColorArray;

  procedure UpdateColorObject();

  procedure UpdateAllColorObjects;

  property SelectedColor: TColor; [rw]

  property BoundLabel: TJppControlBoundLabel; [r]

  property BoundLabelPosition: TLabelPosition; [rw]

  property BoundLabelSpacing: Integer; [rw]

  property ButtonsSpacing: Integer; [rw]

  property ButtonChangeColor: TJppComboButton; [r]

  property ButtonCopyColor: TJppComboButton; [r]

  property ButtonPasteColor: TJppComboButton; [r]

  property ButtonsAlignment: TVerticalAlignment; [rw]

  property Appearance: TJppColorComboBoxAppearance; [rw]

  property TagExt: TJppTagExt; [rw]

  property NoneColor: TColor; [rw]

  property ColorListSet: TColorListSet; [rw]

  property Options: TJppColorComboBoxOptions; [rw]

  property OnColorChanged: TNotifyEvent; [rw]

  property OnSelectSeparatorItem: TJppColorControlSelectSeparator; [rw]

  property OnSelectChangeColorItem: TJppColorControlSelectChangeColor; [rw]

  property OnGetColorStrValue: TJppColorControlGetColorStrValue; [rw]

  property OnBeforePaintItem: TJppColorComboBoxBeforePaintItem; [rw]

  property OnAfterPaintItem: TJppColorComboBoxAfterPaintItem; [rw]

  property OnGetItemBackgroundColor: TJppColorComboBoxGetItemBackgroundColor; [rw]

  property OnGetItemGradientColors: TJppColorComboBoxGetItemGradientColors; [rw]

  property OnGetItemTextColor: TJppColorComboBoxGetItemTextColor; [rw]

  property OnGetNumericItemTextColor: TJppColorComboBoxGetNumericItemTextColor; [rw]

  property AnchoredControls: TJppAnchoredControls; [rw]

end;

TJppCustomColorComboBox

TObject