unt_xmlmenu.pas

来自「一个DELPHI下的菜单构件」· PAS 代码 · 共 69 行

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';  //菜单项标识, 对应数据库中功能编码,用于权限控制     属性 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.