?? unt_xmlmenu.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -