actioninfoty

type actioninfoty = record

  action: tcustomaction;

  captiontext: msestring;

  caption1: richstringty;

  state: actionstatesty;

  options: menuactionoptionsty;

  shortcut: shortcutarty;

  shortcut1: shortcutarty;

  group: Integer;

  imagenr: imagenrty;

  imagenrdisabled: imagenrty;

  colorglyph: colorty;

  color: colorty;

  imagecheckedoffset: Integer;

  imagelist: tobject;

  hint: msestring;

  tag: Integer;

  tagpo: pointer;

  onexecute: notifyeventty;

  onbeforeexecute: accepteventty;

  onafterexecute: notifyeventty;

end;