起步软件技术论坛-X3

 找回密码
 立即注册
搜索
楼主: cdz0451

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

[复制链接]
 楼主| 发表于 2008-2-29 16:58:17 | 显示全部楼层
哦,好的。尽快给答复
回复 支持 反对

使用道具 举报

发表于 2008-2-29 18:08:10 | 显示全部楼层
组件库
procedure TOperatorFuncNavBar.GetGroupNodes(ANodes: TStrings);
var
  lNodes: TStringList;
  I: Integer;
begin
  lNodes := TStringList.Create;
  try
    UserBizTree.GetChildrenBySeq(cRootGUID, lNodes);
    for I := 0 to lNodes.Count - 1 do
    begin
      if SysUtils.SameText(TUserBizNode(lNodes.Objects[I]).ObjectID, BizGroup) then
      begin
        //UserBizTree.GetChildrenBySeq(lNodes[I], ANodes);//注释掉这句,添加下面代码;
[B]        ANodes.AddObject(TUserBizNode(lNodes.Objects[I]).GUID, lNodes.Objects[I]);[/B]
        Break;
      end;
    end;
  finally
    lNodes.Free;
  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;
[B]  lBaseTreeView.ShowButtons := true;//False;
  lBaseTreeView.ShowLines := true;//False;[/B]
  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;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-2-29 18:22:57 | 显示全部楼层
我看看 明天给你答复
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-3 08:26:04 | 显示全部楼层
procedure TOperatorFuncNavBar.GetGroupNodes(ANodes: TStrings);  这个过程没找到,是不是写错了?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-3 09:04:27 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2008-3-3 09:18:19 | 显示全部楼层
楼主使用的是哪个版本?
业务模型\系统空间\用户界面基础\界面库\组件库
中是有的啊
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-3 09:20:30 | 显示全部楼层
我是2800 真的没有这个
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-3 10:01:39 | 显示全部楼层
这个问题挺着急,快点给回复
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-3 10:41:45 | 显示全部楼层
救命啊!人呢?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-3 11:18:51 | 显示全部楼层
大哥门,快来看看吧。我这催得紧啊。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-9 02:24 , Processed in 0.042083 second(s), 13 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表