Jump to content

Прокрутка (Scroll) у TunimTreeMenu


x11

Recommended Posts

Пытаюсь создать дерево динамически при создании окна (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

В данном случае я собираюсь использовать TunimTreeMenu не как меню.

Мне надо реализовать дерево, чтобы пользователь мог что-то выбрать из древовидного справочника.

Link to comment
Share on other sites

11 minutes ago, x11 said:

Проблема в том, что у TunimTreeMenu отсутствует Scroll. Как и то включить, чтобы появилась прокрутка?

нашел здесь

в custom.css нужно добавить

.x-treelist-nav {
	overflow-y: auto
}

 

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...