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

cdz0451 · 发表于 2007-12-24 16:52:05

如图

cdz0451 · 发表于 2007-12-24 16:58:56

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)
            ];

这个代码你看对不对

alang · 发表于 2007-12-24 17:04:23

参考 http://bbs.justep.com/forum.php? ... =%B9%A4%D7%F7%CC%A8
坐标画错了
工作动态的左上角是 (0,1) 不是 (1,0)

cdz0451 · 发表于 2007-12-24 17:09:00

我标的是01 啊

alang · 发表于 2007-12-24 17:13:27

不过32楼好像没有问题
你的错误信息是什么？

cdz0451 · 发表于 2007-12-24 17:48:18

刚才我是着急表错了。代码没错怎么工作台代码报错

alang · 发表于 2007-12-25 08:33:09

不管哪里报错，错误信息是什么？

cdz0451 · 发表于 2007-12-25 08:37:31

报的错误是这个

cdz0451 · 发表于 2007-12-25 08:39:20

代码的错误位置是如图:

cdz0451 · 发表于 2007-12-25 09:01:08

我按8*3 这样分看看这个代码对不对

         CreateDesktopPanel('最新信息',
                              'Biz:\JTTXM\XXSJ.Info\XXCB.FormDoc',
                              'Biz:\JTTXM\XXNR.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,'','')

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