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. Как и то включить, чтобы появилась прокрутка? Quote Link to comment Share on other sites More sharing options...
x11 Posted May 19, 2020 Author Share Posted May 19, 2020 В данном случае я собираюсь использовать TunimTreeMenu не как меню. Мне надо реализовать дерево, чтобы пользователь мог что-то выбрать из древовидного справочника. Quote 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 } Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.