如何实现对右面板的修改**

kcyjy

问题如图所示，谢谢

jiahaiming

协同系统\面板功能\工作台信息\右面板

注意：文档内部的布局是代码控制的。

kcyjy

但是我在协同系统\面板功能\工作台信息\右面板
上加了label后，运行，发现并不会显示

jiahaiming

最初由 jiahaiming 发布
[B]协同系统\面板功能\工作台信息\右面板

注意：文档内部的布局是代码控制的。 [/B]

被dvFavorites挡住了。需要楼主自己调整一下代码

kcyjy

我调整了这个代码
dvFavorites.Height := pnlRight.Height -80;
但是 dvFavorites 的高度并没有发生变化
麻烦写得具体些
发帖之前就知道要在2楼所说的地方调整，自己也试过了
如果只是随便自己试试就能试出来，我也不会发帖来浪费你的时间
所以请耐心把具体要改代码的地方告诉我，谢谢

zfang

把你改过的右面板的完整代码贴出来

kcyjy

procedure TRIGHTPANELDOC.FormDocCreate(Sender: TObject);
begin
  pnlSearch.Visible :=TRTLConsts.HasDocSystem;
  pnlNews.Visible :=TRTLConsts.HasOASystem;
  TFavoritesDocs(dvFavorites.Doc).OnFuncsChanged :=  DoFuncChangeExecute;
  if not pnlSearch.Visible then
  begin
    Container1.Top := pnlSearch.Top;
    if  TFavoritesDocs(dvFavorites.Doc).Funcs = nil then
    begin
      pnlNews.Top := 162;
      pnlNews.Height := 412;
    end
    else
    begin
      pnlNews.Top := GetBestHeight(TFavoritesDocs(dvFavorites.Doc).Funcs)+10;
    //  pnlNews.Height := 554-GetBestHeight(TFavoritesDocs(dvFavorites.Doc).Funcs)+10;
    end;
  end;
  if pnlNews.Visible then
  begin
    ibNews.BizClassRef.BizURL.URL := SysUtils.ExtractFileDir(TRTLConsts.NewsDocURL);
    dvNews.DocFileName := SysUtils.ExtractFileName(TRTLConsts.NewsDocURL);
  end
  else
  begin
    Container1.Height := pnlRight.Height - 62;
    dvFavorites.Height := pnlRight.Height -80; //修改了这里
  end;
end;

jiahaiming

还要修改
procedure TRIGHTPANELDOC.DoFuncChangeExecute(Sender: TObject);

kcyjy

procedure TRIGHTPANELDOC.DoFuncChangeExecute(Sender: TObject);
begin
  pnlSearch.Visible :=TRTLConsts.HasDocSystem;
  pnlNews.Visible :=TRTLConsts.HasOASystem;
  Container1.Height := GetBestHeight(TFavoritesDocs(dvFavorites.Doc).Funcs);
  //TFavoritesDocs(dvFavorites.Doc).Height:= GetBestHeight(TFavoritesDocs(dvFavorites.Doc).Funcs);//注销后没有作用，修改了静态值，也没有作用
  pnlNews.Top :=65  +GetBestHeight(TFavoritesDocs(dvFavorites.Doc).Funcs) ;
// pnlNews.Height :=440 -GetBestHeight(TFavoritesDocs(dvFavorites.Doc).Funcs) ;
  if not pnlSearch.Visible then
  begin
    Container1.Top := pnlSearch.Top;
    pnlNews.Top := GetBestHeight(TFavoritesDocs(dvFavorites.Doc).Funcs)+10;
  //  pnlNews.Height:= 554-GetBestHeight(TFavoritesDocs(dvFavorites.Doc).Funcs)+10;
  end;
  if pnlNews.Visible then
  begin
    ibNews.BizClassRef.BizURL.URL := SysUtils.ExtractFileDir(TRTLConsts.NewsDocURL);
    dvNews.DocFileName := SysUtils.ExtractFileName(TRTLConsts.NewsDocURL);
  end
  else
  begin
    Container1.Height := pnlRight.Height - 62;
  end;
  dvFavorites.Height := pnlRight.Height-80; ;) //没有作用
end;

static function TRIGHTPANELDOC.GetBestHeight(AFuncs: TStringList): Integer;
begin
{  if  AFuncs.Count<6 then
    Result := round((AFuncs.Count+1)/2)*76
  else
    Result := 228;}
    Result := 152;
end;

jiahaiming

你应该修改Container1