TCustomECAccordion

type TCustomECAccordion = class(TCustomControl)

protected

const

  cDefGlyphCollapse = egdArrowUp

  cDefGlyphExpand = egdArrowDown

  cDefItemHeight = 21

  cDefSpacing = 5

protected

  ExpandedHeight: Integer;

  Hovered: Integer;

  ItemIndexLFM: Integer;

  ListItems: TFPObjectList;

  procedure AnchorActiveItem;

  procedure ChangeOrder();

  function ChildClassAllowed(); override;

  function DialogChar(); override;

  function DoMouseWheelDown(); override;

  function DoMouseWheelUp(); override;

  procedure InvalidateNonUpdated;

  class function GetControlClassDefaultSize; override;

  procedure Loaded; override;

  procedure MakeNewOrder;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure Paint; override;

  procedure RemoveFromItems();

  procedure WMSize(); message;

public

  UpdateCount: SmallInt;

  constructor Create(); override;

  destructor Destroy; override;

  function AddItem();

  procedure BeginUpdate;

  procedure ClearItems;

  procedure DeleteItem();

  procedure EndUpdate;

  procedure FindNextItem;

  procedure FindPreviousItem;

  function InsertItem();

  procedure MoveItemDown;

  procedure MoveItemUp;

  property ActiveItem: TAccordionItem; [rw]

  property Alignment: TAlignment; [rw]

  property BevelWidth: SmallInt; [rw]

  property ColorGradBottom: TColor; [rw]

  property ColorGradTop: TColor; [rw]

  property Count: Integer; [r]

  property FullExpand: Boolean; [rw]

  property GlyphCollapse: TGlyphDesign; [rw]

  property GlyphExpand: TGlyphDesign; [rw]

  property Images: TCustomImageList; [rw]

  property ItemHeight: SmallInt; [rw]

  property ItemIndex: SmallInt; [rw]

  property Items []: TAccordionItem; [r]

  property OnChange: TNotifyEvent; [rw]

  property OnDrawItem: TDrawAccordionItem; [rw]

  property SelectedFontOptions: TFontOptions; [rw]

  property Spacing: SmallInt; [rw]

  property Style: TAccordionStyle; [rw]

end;

TCustomECAccordion

TObject