|
请问工作台页面布局怎么改成如图的样子,(四行)工作任务第一行,待办任务第二行,提交任务第三行,当前计划第四行。
我的代码:
begin
Result := [
CreateDesktopPanel('工作任务', 'Biz:OPERATIONSXYYWXX1.INFODESKTOPDOCCHILD.FORMDOC', 'Biz:OPERATIONSXYYWGN2.FUNC', ''),
CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
CreateDesktopPanel('提交任务', cPostDocURL, cTaskFuncURL, SysUtils.Format('-vvmTaskGrid -f%s -d交办', [TRTLConsts.PostTaskTypeStr])),
CreateDesktopPanel('当前计划', cPlanDocURL, cPlanFuncURL, '-p')
];
end;
static function TRTLConsts.DesktopUnionRect: TRectArray;
begin
Result :=[];
end;
|
|