【结贴】做主界面**

vagrant

请问：在http://bbs.justep.com/forum.php? ... tid=24045下的第8)中的，也就是下面这段代码中的TUserBizTreeView是在什么地方定义的啊？？


procedure TMyMainForm.ShowFuncTree;
var
  i: Integer;
  lNode: TTreeNode;
  lFuncURLs: TStringList;
  tv: TUserBizTreeView;
begin
  tvFuncTree.Items.Clear;
  for i:=0 to TSystemCore.Operator.PositionCount-1 do
  begin
    lNode := tvFuncTree.Items.AddChildObject(nil, GetPositionStr(TSystemCore.Operator.Positions), TSystemCore.Operator.Positions);
    if TSystemCore.Operator.DefaultPosition=TSystemCore.Operator.Positions then
      lNode.Text := '缺省岗位:'+lNode.Text;
    if TOrgUtils.IsDeputized(TSystemCore.Operator.Positions) then
      lNode.Text := '代理岗位:'+lNode.Text;

    lFuncURLs := TStringList.Create;
    // 得到岗位的功能权限列表
    TContextUtils.GetAllocatedFuncs(TSystemCore.Operator.Positions.Context, lFuncURLs);
    tv := TUserBizTreeView.Create(nil);
    try
      tv.ShowOptions := [TBizObjectKind.boBizServer, TBizObjectKind.boSpace,
        TBizObjectKind.boFolder, TBizObjectKind.boBizFuncSpace, TBizObjectKind.boFunc];
      tv.Parent := Self;
      tv.ReloadTree;
      tv.IncludeFiles.Clear;
      // 把功能权限列表的URL转换成FileName的形式
      TSystemUtils.URLs2Files(lFuncURLs, tv.IncludeFiles);
      tv.UseIncludeFiles := True;
      ExpandBizTree(tv);
      CopyTreeToNode(TTreeView(tv), lNode);
      tvFuncTree.Images := tv.Images;
    finally
      tv.Free;
    end;
    lFuncURLs.Free;
  end;
end;

zfang

引用 资源集 ： ComponentsLib
在业务模型\系统空间\用户界面基础\界面库\组件库

vagrant

OK,结贴