TMenuView

type TMenuView = object(TView)

  ParentMenu: PMenuView;

  Menu: PMenu;

  Current: PMenuItem;

  OldItem: PMenuItem;

  constructor Init();

  constructor Load();

  function Execute; virtual;

  function GetHelpCtx; virtual;

  function GetPalette; virtual;

  function FindItem();

  function HotKey();

  function NewSubView(); virtual;

  procedure Store();

  procedure HandleEvent(); virtual;

  procedure GetItemRect(); virtual;

end;

TMenuView

TView

TObject