x11 Posted May 19, 2020 Share Posted May 19, 2020 Пытаюсь создать дерево динамически при создании окна (TUnimForm). function TfmmSearchParams.AddNode2(ParentNode: TUniTreeNode; const id: integer; const caption: string): TUniTreeNode; begin if Assigned(ParentNode) then result := treeTypes.Items.AddChildObject(ParentNode, caption, Pointer(id)) else result := treeTypes.Items.AddNode(nil, nil, caption, Pointer(id), naAdd); result.Tag := id; result.CheckboxVisible := true; end; procedure TfmmSearchParams.BuildTree; var node: TUniTreeNode; i: integer; begin // ID, NAME, PARENT qTypes.Open; qTypes.First; while not qTypes.Eof do begin node := nil; if qTypesParent.Value > 0 then for I := 0 to pred(treeTypes.Items.Count) do if Integer(treeTypes.Items[i].Data) = qTypesParent.Value then node := treeTypes.Items[i]; node := AddNode2(node, qTypesID.Value, qTypesNAME.Value); node.CheckboxVisible := true; qTypes.Next; end; qTypes.Close; end; Проблема в том, что у TunimTreeMenu отсутствует Scroll. Как и то включить, чтобы появилась прокрутка? Link to comment Share on other sites More sharing options...
x11 Posted May 19, 2020 Author Share Posted May 19, 2020 В данном случае я собираюсь использовать TunimTreeMenu не как меню. Мне надо реализовать дерево, чтобы пользователь мог что-то выбрать из древовидного справочника. Link to comment Share on other sites More sharing options...
x11 Posted May 19, 2020 Author Share Posted May 19, 2020 11 minutes ago, x11 said: Проблема в том, что у TunimTreeMenu отсутствует Scroll. Как и то включить, чтобы появилась прокрутка? нашел здесь в custom.css нужно добавить .x-treelist-nav { overflow-y: auto } Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now