Search the Community

In this topic , I try to share some css for you . For dear novices I will explain, you have this code in UniServerModule -- > CustomCSS Copy and assign the object to the CLS section in Layoutconfig when designing, or use this command when executing bitbtn1.JSCall('addCls', [' ...... ']); you can do if you like first, this sites can help to build css runtime https://htmlcheatsheet.com/css/

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 вышеуказанный код, то ошибок нет, но родительские пункты меню всё равно не раскрываются.