请问为什么在2619上修改协同常量库后主界面没有变化**

chenyongjun

请问为什么在2619上修改协同常量库后主界面没有变化.
我在2619上通过
Result := [CreateDesktopPanel('公告栏', cNoticeDocURL, cNoticeFuncURL, ''),
             CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
             CreateDesktopPanel('提交任务', cPostDocURL, cTaskFuncURL, SysUtils.Format('-vvmTaskGrid -f%s -d交办', [TRTLConsts.PostTaskTypeStr]))]
的修改然后再签入保存刷新,重起服务后主界面没有变化/
该怎么改才可以呢?

gaihl

从初始化运行是好用的吗？

chenyongjun

都不行啊

gaihl

看样子是没有编译
签出－＞重新编译－＞初始化运行
楼主，再试一下吧

gaihl

2619工作台的4个框是放上去的控件，可以隐掉
http://bbs.justep.com/forum.php?mod=viewthread&tid=15175

chenyongjun

上面的问题编译,重新登陆后解决了.谢谢答复.
还有两个问题是:
1.那条边界怎么处理掉.
2.怎么对:"更多"编码.

gaihl

先答一个
2.业务模型\协同系统\面板功能\工作台\工作台,
  FMoreLabel.Parent := FCenterImage;
  FMoreLabel.Caption := '更多>>';   //更多
  FMoreLabel.Left := FCenterImage.Width - 2 - FMoreLabel.Width;
  FMoreLabel.Top := 6;
  FMoreLabel.Cursor := Business.Forms.Controls.crHandPoint;
  FMoreLabel.Anchors := [TAnchorKind.akTop, TAnchorKind.akRight];
  FMoreLabel.Font.Color := 13395456;
  FMoreLabel.Transparent := True;
  FMoreLabel.OnClick := MoreLabelClick;    //单击事件

gaihl

第一个问题:也是在工作台代码中,333行左右

procedure TMAINFORM.InitPanels;   中
..............
  for I := Low(FPanels) to High(FPanels) do
    for J := Low(FPanels[I]) to High(FPanels[I]) do
    begin
      Index := I * lColCount + J;
      if (Index < lPanelCount) and (lPanelDescs[Index].Caption <> '') then
      begin
        lPanel := TDesktopPanel.Create(Self);
        lPanel.Parent := pnlClient;
        lPanel.Align := TAlign.alTop;           //增加的代码,叫它置顶
        lPanel.Init(lPanelDescs[Index]);
        FPanels[I][J] := lPanel;
      end
      else
        FPanels[I][J] := nil;
    end;

chenyongjun

谢谢您的回答
我想知道怎么样才能对我新建的公告栏后面的"更多"进行编码啊.
以为上面的编码都是动态生成的啊,不是固定的啊.
也就是通过点击我新建的公告栏后面的"更多"的时候触发我的代码.
谢谢

gaihl

当然更多的时候,触发了一个单击事件,其实调的是你定义的功能.下面是事件代码
procedure TDesktopPanel.MoreLabelClick(Sender: TObject);
begin
  TSystemCore.FuncManager.RunFunc(BizSys.GetComponentContext(Self),
    '', FuncURL, FuncParam, False, nil, False);
end;
如果你想做什么,可以写在功能的中,如Create事件中