TJppCustomBrushStyleComboBox

type TJppCustomBrushStyleComboBox = class(TCustomComboBox)

protected

  procedure SetParent(); override;

  procedure Notification(); override;

  procedure CMVisibleChanged(); message;

  procedure CMEnabledChanged(); message;

  procedure CMBiDiModeChanged(); message;

  procedure PropsChanged();

  procedure Loaded; override;

  procedure RecreateItems;

  function IsValidIndex();

  function BrushStyleExists();

  function GetBrushStyleIndex();

  function GetBrushStyleDisplayName();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CreateWnd; override;

  function TryGetItemBrushStyle();

  function AddBrushStyle();

  procedure BeginUpdate;

  procedure EndUpdate();

  function UpdatingControl;

  procedure DrawItem(); override;

  function GetSelectedBrushStyle;

  procedure SetSelectedBrushStyle();

  procedure Change; override;

  procedure SetupInternalLabel;

  procedure SetBounds(); override;

  property Selected: TBrushStyle; [rw]

  property BoundLabel: TJppControlBoundLabel; [r]

  property BoundLabelPosition: TLabelPosition; [rw]

  property BoundLabelSpacing: Integer; [rw]

  property Appearance: TJppBrushStyleComboAppearance; [rw]

  property TagExt: TJppTagExt; [rw]

  property OnGetDisplayName: TJppBrushStyleComboBoxGetDisplayName; [rw]

  property AnchoredControls: TJppAnchoredControls; [rw]

end;

TJppCustomBrushStyleComboBox

TObject