unit unt_XMLMenu;

interface

uses
  Menus, Classes, Dialogs, SysUtils, ComCtrls, TypInfo, Forms,
  ActiveX, xmldom, XMLIntf, msxmldom, XMLDoc;

const
  MyConfig  = 'MenuConfig';
  MyMenu    = 'MenuRoot';
  MyMenuItem= 'MenuItem';
  nTab      = #9;

  menuAutoCheck        = 'autocheck';        //菜單項的autocheck        屬性 True/False
  menuAutoHotkeys      = 'autohotkeys';      //菜單項的autohotkeys      屬性 maAutomatic/maManual/maParent
  menuAutoLineReduction= 'autolinereduction';//菜單項的autolinereduction屬性 maAutomatic/maManual/maParent
  menuBreak            = 'break';            //菜單項的break            屬性 mbBarBreak/mbBreak/mbNone
  menuCaption          = 'caption';          //菜單項的caption          屬性 string
  menuChecked          = 'checked';          //菜單項的checked          屬性 True/False
  menuDefault          = 'default';          //菜單項的default          屬性 True/False
  menuEnabled          = 'enabled';          //菜單項的enabled          屬性 True/False
  menuGroupIndex       = 'groupindex';       //菜單項的groupindex       屬性 Integer
  menuHelpContext      = 'helpcontext';      //菜單項的helpcontext      屬性 Integer
  menuHint             = 'hint';             //菜單項的hint             屬性 string
  menuImageIndex       = 'imageindex';       //菜單項的imageindex       屬性 Integer
  menuRadioItem        = 'radioitem';        //菜單項的radioitem        屬性 True/False
  menuShortCut         = 'shortcut';         //菜單項的shortcut         屬性 Ctrl+A
  menuTag              = 'tag';              //菜單項的tag              屬性 Integer
  menuVisible          = 'visible';          //菜單項的visible          屬性 True/False

  //wangji 20030901
  menuMenuID           = 'MenuID';  //菜單項標識, 對應(yīng)數(shù)據(jù)庫中功能編碼,用于權(quán)限控制     屬性 string

type
  PMNData = ^TMenuNodeData;
  TMenuNodeData = record
    mAutoCheck        : string;
    mAutoHotkeys      : string;
    mAutoLineReduction: string;
    mBreak            : string;
    mCaption          : string;
    mChecked          : string;
    mDefault          : string;
    mEnabled          : string;
    mGroupIndex       : string;
    mHelpContext      : string;
    mHint             : string;
    mImageIndex       : string;
    mRadioItem        : string;
    mShortCut         : string;
    mTag              : string;
    mVisible          : string;

    //wangji 2003
    mMenuID           : String;
  end;


implementation

initialization
  OleInitialize(nil);

finalization
  OleUninitialize;

end.