1、就是我想在“用户面板控制”设置系统桌面,或者将设置好的一个用户桌面改成系统桌面。
2、改了,好像不管用。
static function TRTLConsts.DefaultDesktopPanelDesc: TDesktopPanelDescArray;
const
cTaskFuncURL = 'Biz:\COLLABORATION\MyTaskFunc.Func';
cPlanFuncURL = 'Biz:\COLLABORATION\PlanCenterFunc.Func';
//cCustomerFuncURL = 'Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func';
cNeedProcessDocURL = 'Biz:\COLLABORATION\TaskCenterInfo.Info\NeedProcessNav.FormDoc';
cPlanDocURL = 'Biz:\COLLABORATION\PlanCenterInfo.Info\PlanNav.FormDoc';
cPostDocURL = 'Biz:\COLLABORATION\TaskCenterInfo.Info\PostNav.FormDoc';
//cCustomerDocURL = 'Biz:\OPERATION\CRMSPACE\CustomerInfo.Info\CustomerNav.FormDoc';
begin
Result := [CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
CreateDesktopPanel('当前计划', cPlanDocURL, cPlanFuncURL, '-p'),
CreateDesktopPanel('提交任务', cPostDocURL, cTaskFuncURL, SysUtils.Format('-vvmTaskGrid -f%s -d交办', [TRTLConsts.PostTaskTypeStr]))
//CreateDesktopPanel('我的客户', cCustomerDocURL, cCustomerFuncURL, '')
];
end;
我把“我的客户”给注释掉了,但还是能看到并添加“我的客户”这个面板。 |