工作台配置时，如何合并（急）

pangshaowei · 发表于 2010-7-9 10:40:13

配置工作台时，如何合并相领的区域，急

atiger · 发表于 2010-7-9 10:49:57

http://bbs.justep.com/forum.php?mod=viewthread&tid=18770

pangshaowei · 发表于 2010-7-9 13:12:07

在二楼链接里面所提的协同系统\公共资源\协同常量库

我在static function TRTLConsts.DesktopUnionRect: TRectArray; 设置断点，调试跟踪不到

shangxy · 发表于 2010-7-9 13:24:14

那个版本、贴图描述一下想如何合并？
system登陆后的系统面板配置功能不能满足么？

pangshaowei · 发表于 2010-7-9 13:36:12

要实现的布局如图所示

版本 3158

用system登录后，我没配置出来

客户明天开大会要演示

zfang · 发表于 2010-7-9 13:52:19

直接配置是不行的。你看2楼给你的连接中5、6、9楼的例子，你参考一下试试。

pangshaowei · 发表于 2010-7-9 14:09:17

static function TRTLConsts.DesktopColumnCount: Integer;
begin
  Result := 2;
end;

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, ''),
         CreateDesktopPanel('空 ', cNeedProcessDocURL, '', ''),
         CreateDesktopPanel('空 ', cNeedProcessDocURL, '', ''),
         CreateDesktopPanel('空 ', cNeedProcessDocURL, '', ''),
         CreateDesktopPanel('空 ', cNeedProcessDocURL, '', ''),
         CreateDesktopPanel('空 ', cNeedProcessDocURL, '', ''),
         CreateDesktopPanel('空 ', cNeedProcessDocURL, '', '')
         ];
end;

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

pangshaowei · 发表于 2010-7-9 14:10:25

我就是仿照这个例子改的

1、用system登录后没效果
2、调试时设置断点不执行

atiger · 发表于 2010-7-9 14:33:07

不执行？是没有执行到你的这个代码吗？
如果是，请问，你这段代码写到哪里了？是你自己定义的界面方案吗？如果是，那么需要配置一下 \X3 Server\conf\config.justep.xml 这个文件，把
...
<uitheme default="Biz:\System\CompactStyle" allowuser="false"></uitheme>
...

中的|Biz:\System\CompactStyle“修改为你的界面方案所在的BizURL就可以了

pangshaowei · 发表于 2010-7-9 14:40:24

那个例子是修改协同系统\公共资源\协同常量库，没有修改界面方案

		自动登录	找回密码
密码			立即注册