【搞定】如何修改工作台布局如下图

cdz0451

想做成如下图布局样式，请问，如何修改

565118680

跟贴！

cdz0451

今天不放假吧

cdz0451

各位哥哥姐姐们，帮小第把这问题看一下吧，我们这个项目马上要结了，着急啊~！！！！

alang

在 协同系统公共资源\协同常量库
我做了如下修改
static function TRTLConsts.DesktopColumnCount: Integer;
begin
  Result := 3;
end;

static function TRTLConsts.DefaultDesktopPanelDesc: TDesktopPanelDescArray;
const
  cTaskFuncURL = 'Biz:COLLABORATIONMyTaskFunc.Func';
  cPlanFuncURL = 'Biz:COLLABORATIONPlanCenterFunc.Func';
  cCustomerFuncURL = 'Biz:OPERATIONCRMSPACECustomerMngFunc.Func';
  cNeedProcessDocURL = 'Biz:COLLABORATIONTaskCenterInfo.InfoNeedProcessNav.FormDoc';
  cPlanDocURL = 'Biz:COLLABORATIONPlanCenterInfo.InfoPlanNav.FormDoc';
  cPostDocURL = 'Biz:COLLABORATIONTaskCenterInfo.InfoPostNav.FormDoc';
  cCustomerDocURL = 'Biz:OPERATIONCRMSPACECustomerInfo.InfoCustomerNav.FormDoc';
begin
  Result := [CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
             CreateDesktopPanel('空', cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('我的桌面文档', 'BizZJCDGZTXX.InfoWDZMWD.FormDoc', 'BizZCKWDGDNR.Func', ''),
             CreateDesktopPanel('当前计划', cPlanDocURL, cPlanFuncURL, '-p'),
             CreateDesktopPanel('空', cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('空', cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('提交任务', cPostDocURL, cTaskFuncURL, SysUtils.Format('-vvmTaskGrid -f%s -d交办', [TRTLConsts.PostTaskTypeStr])),
             CreateDesktopPanel('空', cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('空', cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('我的客户', cCustomerDocURL, cCustomerFuncURL, ''),
             CreateDesktopPanel('空', cNeedProcessDocURL, '', ''),
             CreateDesktopPanel('空', cNeedProcessDocURL, '', '')
             ];
end;

static function TRTLConsts.DesktopUnionRect: TRectArray;
begin
  Result := [Classes.Rect(0, 0, 2, 1), Classes.Rect(0, 1, 2, 2), Classes.Rect(0, 2, 2, 3),
    Classes.Rect(0, 3, 2, 4), Classes.Rect(2, 0, 3, 4)];//[Classes.Rect(0, 1, 3, 2), Classes.Rect(1, 2, 3, 3)];
end;

运行起来的效果

alang

DesktopUnionRect是定义桌面上融合用的
融合的方法，见下面的坐标定义，每一个都定义它的左上角的坐标和右下角的坐标

cdz0451

我试试看

cdz0451

[错误]Biz:\COLLABORATION\COMMONRESFOLDER\COLLABORATIONCONSTS.LIBRARY.PAS(62, 21): 方法 'DesktopColumnCount' 重复实现

alang

DesktopColumnCount是指主界面上Panel的列数，象我的例子中是3列
DefaultDesktopPanelDesc是定义的每一个桌面Panel，上面我的例子是3X4，一共12个格子，因此这里必须定义12个，从左到右的顺序定义，被合并掉的格子可以任意写（必须写，不能不写）

alang

8楼的错误是因为你直接把我的代码贴上去了，应该是找到代码部分，修改原来的