Search the Community
Showing results for tags 'tunimtreemenu'.
-
TUniMTreeMenu привязано к TUniMenuItems. В UniMenuItems есть около 10 пунктов. Чтобы сделать дочерние пункты я делаю так: procedure TfmmMain.BuildMainMenu; begin // mmObjects родитель с двумя подчененными пунктами меню mmMyObjects.SetParentComponent(mmObjects); mmFav.SetParentComponent(mmObjects); ... ... ... end; 1. Проблема в том, что родительские пункты меню не отображают маркеров-треугольников. В десктопной версии меню (TUniTreeMenu) такой проблемы нет. 2. Нужно сделать, чтобы при выборе пункта меню оно либо раскрывалось, если есть дочерние пункты, либо, чтобы выполнялась определенная команда, если к пункту меню привязана команда (TAction). procedure TfmmMain.MainMenuClick(Sender: TObject); var TreeNode: TUniTreeNode; begin TreeNode := MainMenu.Selected; if Assigned(TreeNode) and not TreeNode.IsLeaf then begin if TreeNode.HasChildren then begin if TreeNode.Expanded then begin TreeNode.Collapse(False); TreeNode.Expanded := False; end else begin TreeNode.Expand(False); TreeNode.Expanded := True; end; end end;// if Assigned(N) then end; Получается, что при клике на родительский пункт меню появляется ошибка "_cnf_ is not defined". Если убрать из OnClick вышеуказанный код, то ошибок нет, но родительские пункты меню всё равно не раскрываются.
- 23 replies
-
- tunimtreemenu
- tunimenuitems
-
(and 1 more)
Tagged with:
-
Если указать LayoutConfig.Margine := '0 5' или Width := 'calc(100% - 30px)' то маркер-треугольник справа будет обрезан.
-
у TUniTreeNode в меню (TunimTreeMenu) есть свойство CheckboxVisible. А что нужно сделать, чтобы стали видимыми и доступными для обработки чексбоксы? Спасибо.
-
Пытаюсь создать дерево динамически при создании окна (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. Как и то включить, чтобы появилась прокрутка?