x11

Я знаю, что рациональнее заполнять дерево по мере раскрытия узлов. Но нужно иметь возможность поиска по тексту узла. А пока не прогрузишь всё дерево, искать по нему нет возможности. Поэтому нужно грузить всё дерево целиком. А у стандартного дерева FMX отсутствуют такие свойства, как в других DBTree-деревьях. Где достаточно указать три основных поля из таблицы: id, parent, name. Не говоря уже о других служебных полях.

Тут в чем затык. Есть цикл по таблице для заполнения дерева. Получается, что при каждой итерации нужно вызывать ExpandAll.

Почему GlobalCount всегда возвращает количество корневых узлов? function TfmTree.ItemByTag(id: integer): TTreeViewItem; var Item: TTreeViewItem; I: Integer; begin Result := nil; for I := 0 to Pred(TreeView1.GlobalCount) do begin Item := TreeView1.ItemByGlobalIndex(I); if Item.Tag = id then Exit(Item); end; end;

Я так понял, у TTreeView нет методов поиска узлов Нужно городить свой огород с рекурсией.

сделал с использованием прототипа TPrototypeBindSource. тынц Но проблема в том, что при открытии PrototypeBindSource1 ListView пустой почему-то. Поэтому не могу воспроизвести эту проблему а вторая проблема с повторным кликом воспроизводится

С кнопками вижу 2 проблемы. Вот в чем неудобство. Кнопка TGlyphButtonObjectAppearance. Нельзя в дизайне задать картинку и/или текст. Какой бы ButtonType я не указал, кнопка всегда пустая. Да и три типа кнопки - это маловато, т.к. операций обычно больше. Например нет типа для операции Edit. И непонятно зачем этой кнопке тип Add. Хотелось бы указать свою картинку или даже текст с картинкой. Кнопка TTextButtonObjectAppearance. Нельзя указать высоту Когда удаляешь TTextButtonObjectAppearance, происходит разрушительный сбой и среду приходится перезапускать.

ссылка на проект тынц

1. А почему при загрузке ListView происходит clickEx 2 раза? 2. При клике по кнопке происходит clickEx 2 раза. Как от этого избавиться?

аааа, ItemObject - это и есть тот или иной объект, лежащий внутри Item`а?

Может быть Вы не поняли сути проблемы? Попытаюсь ещё раз. Интересует не щелчок по Item, а именно по той или иной кнопке, которых может быть несколько у Item. У DinamicAppearance есть 2 вида кнопок. Но ни в справке, ни на просторах интернета нет примеров и описания. Ни у самих кнопок, ни у Item, ни у ListView не нашёл возможности обработать клик/тап именно по кнопке, а не по Item`у. Допустим, на Item лежит 2 кнопки: 1. Кнопка "Удалить" типа TGlyphButtonObjectAppearance 2. Кнопка "Редактировать" типа TTextButtonObjectAppearance. Как обработать отдельно клики этих кнопок?

я так и сделал, но я хотел через for/in

Почему этот цикл "видит" только первый уровень дерева? Тогда как правильно организовать поиск нужного TreeViewItem`а по всем узлам, по всему дереву? function TfmTree.FindItemByIndex(id_parent: Integer): TTreeViewItem; var i: Integer; begin Result := nil; for i:= 0 to Pred(TreeView1.Count) do if TreeView1.Items[i].Tag = id_parent then begin Result := TreeView1.Items[i]; break; end; end;

Чтобы не плодить похожие темы, задам ещё вопрос по кнопке типа TGlyphButtonObjectAppearance. Как в неё вставить картинку, и опять же, как добраться до обработчика нажатия? Цель: по нажатию на кнопку нужно вызвать некую форму редактирования данной записи, на которой тапнул пользователь.

Открыл LiveBinding designer. Вижу там Header, а Footer`а нет. Данные берутся из таблицы (БД). Не могу разобраться, как добраться до ItemAppearance.Footer.Text.

Добавил TTextButtonObjectAppearance. А как выполнить click/tap? Предполагается, что будет 2-3 кнопки с разными процедурами. На форме лежит TActionList и нужно к кнопками привязать действия, но у кнопки нет Action. Даже событий нет Вопрос в догонку. А в

Не могу сообразить, как правильно организовать цикл For/In function TfmEditObject.FindListBoxItem(id: integer; combo: TComboBox): integer; Var ListBoxItem: TListBoxItem; begin result := -1; for ListBoxItem in Combo.ListItems do if ListBoxItem.Tag = id then exit(ListBoxItem.Index) end;

Заполняю ComboBox из БД, где Item.tag - это ID записи. А нет ли у ComboBox стандартных/готовых методов поиска и позиционирования (выбора) нужного TListBoxItem`а?

Да, спасибо. Уже и сам догадался. Не успел написать

Выбираю 1 или 2, или более компонент. В свойстве Width в Инспекторе объектов указываю размер, но ничего не происходит. А вот если мышкой у компоненты менять размер, то он меняется.

Первая картинка - Master. Здесь всё правильно. А вот две другие картинки Вторая - iPhone 5,5" Третья - Android 5" Phone Четвертая - Android 7" Tablet У всех компонент Align := Right. Это зависит от каких-то свойств? Проверил на iPhone 4" - норм. На iPhone 4.7" - тоже криво.

Как поменять местами 2 элемента? Как вставить один элемент между двумя другими?

Не знаю, как получилось, но один из элементов теперь можно таскать внутри ListBox`а. Сравнил свойства с другими элементами - всё одинаково.

Я не разобрался, как менять ListBoxItem`ы местами в Design time.

Зато в ListBoxItem можно разместить несколько компонент, как на панели.

А вот GridPanelLayout удобнее тем, что у колонку с подписями можно легко изменить ширину. А у ListBox придётся менять каждый ListBoxItem