|
发表于 2007-6-21 10:00:03
|
显示全部楼层
修改主界面代码:
procedure TSTANDARDSTYLEMAINFORM.InitBarPosition;
begin
DockStub.InitControlConfigs(['FuncNavBar'], ['业务功能'], [ImgFuncTree.Picture], //直接修改业务功能字符串内容
180, 100, TDockKind.dkAutoHide,
TDockSide.alRight, False,
[TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
[TDockKind.dkAutoHide, TDockKind.dkDocking]);
{DockStub.InitControlConfigs(['OrgTreeView'], 180, 100, TDockKind.dkAutoHide,
TDockSide.alLeft, False,
[TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
[TDockKind.dkAutoHide, TDockKind.dkDocking]);}
DockStub.InitControlConfigs(['RelevancyNavBar'], ['关联信息'], [ImgRelation.Picture], 180, 100, TDockKind.dkAutoHide,
TDockSide.alRight, False,
[TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
[TDockKind.dkAutoHide, TDockKind.dkDocking]);
//Add by wdx 20060724
DockStub.InitControlConfigs(['DocRelevancyNavBar'], ['文档关联'], [ImgRelation.Picture], 180, 100, TDockKind.dkAutoHide,
TDockSide.alRight, False,
[TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
[TDockKind.dkAutoHide, TDockKind.dkDocking]);
end; |
|