TCustomECImageMenu

type TCustomECImageMenu = class(TCustomListBox)

protected

const

  cDefSpacing = 5

protected

  CaptionYPos: Integer;

  DescYPos: Integer;

  ImageYPos: Integer;

  NeedCalculate: Boolean;

  procedure Calculate;

  procedure CalculatePreferredSize(); override;

  function DialogChar(); override;

  function DoMouseWheelDown(); override;

  function DoMouseWheelUp(); override;

  procedure DrawItem(); override;

  procedure InvalidateNonUpdated;

  procedure KeyDown(); override;

  procedure RecalcInvalidate;

  procedure SetAutoSize(); override;

  procedure SetBorderStyle(); override;

  procedure SetParent(); override;

public

  UpdateCount: SmallInt;

  constructor Create(); override;

  destructor Destroy; override;

  procedure BeginUpdate;

  procedure EndUpdate();

  procedure Invalidate; override;

  procedure Add();

  procedure Delete();

  procedure InitializeWnd; override;

  procedure Insert();

  property Alternate: Boolean; [rw]

  property CaptionAlign: SmallInt; [rw]

  property CaptionFontOptions: TFontOptions; [rw]

  property Images: TCustomImageList; [rw]

  property Layout: TObjectPos; [rw]

  property MenuItems: TImageMenuItems; [rw]

  property Spacing: SmallInt; [rw]

end;

TCustomECImageMenu

TObject