【结贴】3002 版本，如何在右面版中显示新闻公告图片版块？**

565118680

3002 版本，如何在右面版中显示新闻公告图片版块？

565118680

3002 版本，如何在右面版中显示新闻公告图片版块？

565118680

?

shangxy

只要有我们的oa中的新闻公告就会有那个图片了。

565118680

晕，现在我不想有OA，还想要哪图片显示，以前可以呀，不会是强制的吧

shangxy

修改 业务模型\协同系统\面板功能\工作台\工作台 为下图中黑体部分
procedure TMAINFORM.BizFormCreate(Sender: TObject);
begin
  FVirtualPanel := TClientPanel.Create(Self);
  FVirtualPanel.Parent := Self;

  FClientPanel := TClientPanel.Create(Self);
  FClientPanel.Parent := Self;
  FClientPanel.BringToFront;
  FClientPanel.OnResize := ClientPanelResize;
  imgBG.Parent := FClientPanel;

  FMessageHandler := TRelevancyBizMessageHandler.Create;
  Context.AddMessageHandler(TRefreshRelevanciesMessage.GetName, FMessageHandler);

  Timer.Enabled := True;

  pnlSearch.Visible := TRTLConsts.HasDocSystem;
  [B]pnlNews.Visible := True;[/B]

  if not pnlSearch.Visible and pnlNews.Visible then
    pnlNews.Top := pnlSearch.Top;

  if pnlNews.Visible then
  begin
[B]    //ibNews.BizClassRef.BizURL.URL := SysUtils.ExtractFileDir(TRTLConsts.NewsDocURL);[/B]
    dvNews.DocFileName := SysUtils.ExtractFileName(TRTLConsts.NewsDocURL);
  end;

  pnlRight.Visible := pnlSearch.Visible or pnlNews.Visible;
end;

565118680

找不见这段代码呀？？3002版本

shangxy

业务模型\协同系统\面板功能\工作台信息\右面板
中找上面的代码

565118680

结！