【搞定】如何把左侧功能显示换成树型列表**

cdz0451

有没有人管了？

cdz0451

顶，不能沉！

shangxy

这个两个版本间代码变动很大，做起来恨是困难哪。我们也一直努力去找，楼主耐心等等。

cdz0451

好的，这么久你也没反映。我不确定你在不在。我的版本是2800

cdz0451

怎么样了？

cdz0451

怎么样了，到什么程度了？

lixy

用3002版本，按22楼的改。效果。

cdz0451

嗯，但是我的是2800 这个怎么改？

cdz0451

2800怎么实现这个效果，人呢？ 谁来帮看看。好几天了都

lixy

2827修改方法
function TOperatorFuncNavBar.CreateTreeView(AGroup: TdxNavBarGroup;
  const AFromGUID: string): TBaseTreeView;
begin                                          //lxy
  Result := inherited CreateTreeView(AGroup, '-1'); //AFromGUID
  Result.Color := $f7dfd6;
end;




procedure TBaseNavBar.Reload;
var
  I: Integer;
  lNodes: TStringList;
begin
  Groups.Clear;
  FGroups.Clear;
  FTreeViews.Clear;

  if FBaseTree <> nil then
  begin
    EnsureRoot;
    lNodes := TStringList.Create;
    try
      BaseTree.GetChildrenBySeq(cRootGUID, lNodes);
     // for I := 0 to lNodes.Count - 1 do      //lxy
        if CanAddGroup(lNodes.Objects[I] as TBaseNode) then
          DoAddGroup(lNodes.Objects[I] as TBaseNode);
    finally
      lNodes.Free;
    end;
  end;
end;


function TBaseNavBar.CreateTreeView(AGroup: TdxNavBarGroup;
  const AFromGUID: string): TBaseTreeView;
var
  lBaseTreeView: TBaseTreeView;
  lNode: TTreeNode;
begin
  lBaseTreeView := DoCreateTreeView(AGroup.Control);
  lBaseTreeView.Parent := AGroup.Control;
  lBaseTreeView.BorderStyle := TFormBorderStyle.bsNone;
  lBaseTreeView.BevelEdges := [TBevelEdge.beLeft];
  lBaseTreeView.BevelOuter := TBevelCut.bvSpace;
  lBaseTreeView.BevelInner := TBevelCut.bvSpace;
  lBaseTreeView.BevelKind := TBevelKind.bkFlat;
  lBaseTreeView.BevelWidth := 4;
  lBaseTreeView.ShowButtons := true; //lxy
  lBaseTreeView.ShowLines := true;   //lxy
  lBaseTreeView.Align := TAlign.alClient;
  lBaseTreeView.Images := LargeImages;
  lBaseTreeView.BaseTree := BaseTree;
  lBaseTreeView.Show;
  lBaseTreeView.HandleNeeded;
  CommCtrl.TreeView_SetItemHeight(lBaseTreeView.Handle, 28);
  lBaseTreeView.BaseTree.GetChildren(AFromGUID, lBaseTreeView.StartWithNodes, False);
  if lBaseTreeView.StartWithNodes.Count > 0 then
    lBaseTreeView.ReloadTree;

  // 解决系统缺省把第一个节点打开了
  lNode := lBaseTreeView.Items.GetFirstNode;
  if lNode <> nil then
  begin
    lNode.Collapse(False);
    lBaseTreeView.Selected := nil;
  end;

  Result := lBaseTreeView;
end;