【搞定】修改工作台布局（急！）**

cdz0451

如图： 要把工作台改成图的样子 。左边应该怎么分
着急 请尽快解答 谢谢

cdz0451

我在协同常量库里 代码这样写 看看有什么错误，为什么不是想要的图的效果

static function TRTLConsts.DesktopUnionRect: TRectArray;
begin
  Result := [Classes.Rect(0, 0, 2, 1),  //最新信息
             Classes.Rect(2, 0, 4, 1),  //交通信息
             Classes.Rect(4, 0, 5, 1),  //待办任务
             Classes.Rect(0, 1, 2, 2),  //工作动态
             Classes.Rect(2, 1, 4, 2),  //当前计划
             Classes.Rect(4, 1, 5, 2),  //提交任务
             Classes.Rect(0, 2, 4, 3),  //应用链接
             Classes.Rect(4, 2, 5, 3)]; //完成任务
            end;

lixy

http://bbs.justep.com/forum.php? ... =%B9%A4%D7%F7%CC%A8
看看5楼和6楼。  主要是修改协同常量库的代码

cdz0451

..大哥 这个就是我问的

cdz0451

Result := [{CreateDesktopPanel('待办任务',
                                 cNeedProcessDocURL,
                                 cTaskFuncURL,
                                 SysUtils.Format('-f%s -vvmTaskGrid -d待办',
                                 [TRTLConsts.NeedProcessTaskTypeStr])),}

            CreateDesktopPanel('最新信息',
                                 'Biz:\JTTXM\XXSJ.Info\XXCB.FormDoc',
                                 'Biz:\JTTXM\XXNR.Func',
                                 //'Biz:\JTTXM\XXCK1.Func',
                                 ''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),
             CreateDesktopPanel('交通信息','Biz:\JTTXM\XXSJJ.Info\JTXX.FormDoc','',''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),
             CreateDesktopPanel('待办任务',
                                 cNeedProcessDocURL,
                                 cTaskFuncURL,
                                 SysUtils.Format('-f%s -vvmTaskGrid -d待办',
                                 [TRTLConsts.NeedProcessTaskTypeStr])),
             CreateDesktopPanel('工作动态','Biz:\JTTXM\XXSJJ.Info\GZDT.FormDoc','',''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),
             CreateDesktopPanel('当前计划', cPlanDocURL, cPlanFuncURL, '-p'),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),
             CreateDesktopPanel('提交任务',
                                 cPostDocURL,
                                 cTaskFuncURL,
                                 SysUtils.Format('-vvmTaskGrid -f%s -d交办',
                                 [TRTLConsts.PostTaskTypeStr])),

             CreateDesktopPanel('应用链接', 'Biz:\JTTXM\CLJXX.Info\HGGLPT.FormDoc', '', ''),
             CreateDesktopPanel('空',cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('空',cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('空',cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('完成任务',
                                 'Biz:\COLLABORATION\TASKCENTERINFO.INFO\WCRW.FormDoc',
                                 'Biz:\COLLABORATION\TASKCENTERFUNC.FUNC',
                                 '')
             //CreateDesktopPanel('完成任务',cPlanURL, cTaskFuncURL, SysUtils.Format('-vvmTaskGrid -f%s -d交办', [TRTLConsts.PostTaskTypeStr])),
             ];

cdz0451

我这个是 5 *3的

cdz0451

请给解决下,挺着急的 看看我的代码 是不是 写错了

lixy

楼主，2楼不应当把最右边的 3个格子也合并哦 。把我 写好的给你，你看看效果，然后在这个基础上改下连接就好了

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('空', cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
             CreateDesktopPanel('空', cNeedProcessDocURL, '', ''),

             CreateDesktopPanel('提交任务', cPostDocURL, cTaskFuncURL, SysUtils.Format('-vvmTaskGrid -f%s -d交办', [TRTLConsts.PostTaskTypeStr])),
             CreateDesktopPanel('空', cPostDocURL, '', ''),


             CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
             CreateDesktopPanel('空', cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
             CreateDesktopPanel('空', cNeedProcessDocURL, '', ''),

             CreateDesktopPanel('空', cPostDocURL, '', ''),
             CreateDesktopPanel('空', cPostDocURL, '', ''),

             CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
             CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
             CreateDesktopPanel('当前计划', cPlanDocURL, cPlanFuncURL, '-p')





             ];
end;




static function TRTLConsts.DesktopUnionRect: TRectArray;
begin
   Result := [Classes.Rect(0, 0, 2, 1),  //最新信息
              Classes.Rect(0, 1, 2, 2),  //工作动态

               Classes.Rect(0, 2, 4, 3),  //应用链接

              Classes.Rect(2, 0, 4, 1),  //交通信息
              Classes.Rect(2, 1, 4, 2)  //当前计划
              ];
end;

cdz0451

Result := [Classes.Rect(0, 0, 2, 1),  //最新信息
              Classes.Rect(0, 1, 2, 2),  //工作动态

               Classes.Rect(0, 2, 4, 3),  //应用链接

              Classes.Rect(2, 0, 4, 1),  //交通信息
              Classes.Rect(2, 1, 4, 2)  //当前计划
              ];
你 这么写不是把 待办任务 提交任务 完成任务  给漏掉了吗?

cdz0451

按照8楼的代码,也不对.不是我要得效果.
8楼代码写完是这个效果 如图: