procedure TMAINFORM.Button1Click(Sender: TObject);
var lOrgUnit: TOrgUnit;
lBizNode: TBizNode;
lBizURL: TBizURL;
begin
lBizUrl :=TBizURL.Create;
lBizUrl.URL :='Org:\ROOT';
lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL);
if lBizNode <> nil then
CheckBizTreeView.StartWithNodes.AddObject(lBizNode.GUID, lBizNode);
CheckBizTreeView.ShowOptions := [TOrgUnitKind.boOrgServer, TOrgUnitKind.boOrgRoot, TOrgUnitKind.boOrgan, TOrgUnitKind.boDept,
TOrgUnitKind.boPositionMember, TOrgUnitKind.boPersonMember];
CheckBizTreeView.CheckOptions := [TOrgUnitKind.boOrgan, TOrgUnitKind.boDept,
TOrgUnitKind.boPositionMember, TOrgUnitKind.boPersonMember];
CheckBizTreeView.ReloadTree;
end; |