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

yancm

你 这么写不是把 待办任务 提交任务 完成任务  给漏掉了吗?

这几个不用合并。static function TRTLConsts.DesktopUnionRect: TRectArray; 指的是需要融合的矩形区域。因此不需要写 待办任务 提交任务 完成任务

楼主，您设置的行数不对，是不是设成3行了？还有，先不要替换成您自己的连接，完全按照8楼的代码先做出效果来再修改。
static function TRTLConsts.DesktopColumnCount: Integer;
begin
  Result := 5;  //您这里不是5吧。否则按8楼的应该是您要的效果
end;

cdz0451

恩,对 改成5就对了  谢谢 结贴把

cdz0451

不对,还有一个问题

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)  //当前计划
              ];
你 这么写不是把 待办任务 提交任务 完成任务  给漏掉了吗?

yancm

11楼已经回答了。

cdz0451

哦 请 yancm 看看我问的Image控件的问题 觉得你回答的比较明白

cdz0451

如果 我要把这个工作台 做成8*3的  
static function TRTLConsts.DesktopUnionRect: TRectArray;
应该怎么分呢 我分完 报错了

cdz0451

代码给你看下
static function TRTLConsts.DesktopColumnCount: Integer;
begin
  Result := 8;
end;

Result := [
            CreateDesktopPanel('最新信息',
                                 'Biz:\JTTXM\XXSJ.Info\XXCB.FormDoc',
                                 'Biz:\JTTXM\XXNR.Func',
                                 //'Biz:\JTTXM\XXCK1.Func',
                                 ''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),

             CreateDesktopPanel('交通信息','Biz:\JTTXM\XXSJJ.Info\JTXX.FormDoc','',''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),

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

             CreateDesktopPanel('工作动态','Biz:\JTTXM\XXSJJ.Info\GZDT.FormDoc','',''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),

             CreateDesktopPanel('当前计划', cPlanDocURL, cPlanFuncURL, '-p'),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),

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

             CreateDesktopPanel('应用链接', 'Biz:\JTTXM\CLJXX.Info\HGGLPT.FormDoc', '', ''),
             CreateDesktopPanel('空',cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('空',cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('空',cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'',''),

             CreateDesktopPanel('完成任务',
                                 'Biz:\COLLABORATION\TASKCENTERINFO.INFO\WCRW.FormDoc',
                                 'Biz:\COLLABORATION\TASKCENTERFUNC.FUNC',
                                 ''),
             CreateDesktopPanel('空',cNeedProcessDocURL,'','')
                         ];

cdz0451

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

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

              Classes.Rect(3, 0, 6, 1),  //交通信息
              Classes.Rect(3, 1, 6, 2),  //当前计划

              Classes.Rect(6, 0, 8, 1),
              Classes.Rect(6, 1, 8, 2),
              Classes.Rect(6, 2, 8, 3)
              ];

cdz0451

我被这些可恶的坐标能晕了  呵呵 麻烦你了 帮看看