|
发表于 2007-6-23 14:34:01
|
显示全部楼层
//Add by wdx 20060724
DockStub.InitControlConfigs(['DocRelevancyNavBar'], ['文档关联'], [nil], 180, 100, TDockKind.dkAutoHide,
TDockSide.alRight, False,
[TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
[TDockKind.dkAutoHide, TDockKind.dkDocking]);
//文档关联
// procedure DoEditDocRelevancy(Sender: TObject; var Accept: Boolean);
procedure DoEditDocRelevancy(Sender: TObject; var Accept: Boolean; var AFileName: string);
procedure ReloadDocRelevancyNavBar;
procedure HideDocRelevancyNavBar;
procedure ShowDocRelevancyNavBar;
procedure DoRelevancyPopuMenuPopup(Sender: TObject);
procedure ReLoadEditLogNavBar;
procedure ShowEditLogNavBar;
procedure HideEditLogNavBar;
procedure HideNavBar(ANavBar: TdxNavBar);
procedure ShowNavBar(const ID: string; ANavBar: TdxNavBar);
function CanShowNavBar(ANavBar: TdxNavBar): Boolean;
procedure UpdateActionLists(AActionLists: TList);
function GetFuncNavBar: TOperatorFuncNavBar;
procedure FuncNavBarGroupClick(Sender: TObject; AGroup: TdxNavBarGroup);
protected
procedure ApplySetting; |
|