x11

Здесь ещё есть несколько приемов работы со стилями и из ресурсов. http://www.gesource.jp/weblog/?p=7544

Есть другая идея: загрузить все ресурсные файлы в базу sqlite и оттуда их доставать.

К тому же приходится в редакторе ресурсов прописывать Identifier тоже ручками.

Я специально поставил на нужной отметке. Там автор видео добавляет в ресурсы проекта (Project/Resources and images) файлы *.style. Потом вместо цикла по стилям добавляет в Combobox новые строки/объекты копипастом. Я уже посмотрел пару таких примеров с копипастом. Но подозреваю, что можно как-то циклом получить стили в runtime, чтобы добавить их в combobox. И это было бы правильно. Вот пример: procedure TfmSelectStyle.FormCreate(Sender: TObject); Function NewItem(const aText: string): TListBoxItem; begin Result := TListBoxItem.Create(comboStyles); Result.Parent := comboStyles; Result.Text := aText; end; begin comboStyles.AddObject(NewItem('Default')); comboStyles.AddObject(NewItem('Copper')); comboStyles.AddObject(NewItem('CopperDark')); comboStyles.AddObject(NewItem('CoralCrystal')); comboStyles.AddObject(NewItem('CoralDark')); comboStyles.AddObject(NewItem('Diamond')); comboStyles.AddObject(NewItem('EmeraldCrystal')); comboStyles.AddObject(NewItem('EmeraldDark')); comboStyles.AddObject(NewItem('Jet')); comboStyles.AddObject(NewItem('Radiant')); comboStyles.AddObject(NewItem('Sterling')); comboStyles.AddObject(NewItem('Vapor')); end; Так выбираем procedure TfmSelectStyle.comboStylesChange(Sender: TObject); var aTos: String; aStyle: TFMXObject; const ToStr: Array[TOSVersion.TPlatform] of string = ('Windows', 'MacOS', 'iOS', 'Android', 'WinRT', 'Linux'); begin aStyle := nil; //если выбираем из ресурсов if comboStyles.ItemIndex > 0 then begin aTos := ToStr[TOSVersion.Platform] + comboStyles.Selected.Text; aStyle := TStyleStreaming.LoadFromResource(HInstance, aTos, RT_RCDATA); if not assigned(aStyle) then begin ShowMessage('Стиль не найден: ' + aTos); exit; end; end;// if comboStyles.ItemIndex > 0 then TStyleManager.SetStyle(aStyle); end; Вот так загружены в проект стили

А всплывающие подсказки к кнопкам появились? А то в Берлин фиг поймешь, что за кнопки на панели редактора стилей.

Посмотрел это видео https://youtu.be/iM9lamNwmtc?t=20m51s Там же просто копипастинг. Чтобы подключить ещё 2-5-10 стилей, нужно заниматься копипастой. Именовать/переименовывать. Разве так можно? А нельзя как-то автоматизировать процесс добавления стилей в список, где их может выбирать пользователь в процессе работы?

По сути, мне нужно склеить значения нескольких полей в одном выражении. Можно, конечно, в SQL запросе, но чувствую, что можно как-то и прямо в CustomFormat. здесь http://www.malcolmgroves.com/blog/?p=1226 даже показано, как можно использовать свои функции

http://docwiki.embarcadero.com/RADStudio/Berlin/en/Using_Custom_Format_and_Parse_Expressions_in_LiveBindings CustomFormat понимает выражение self.owner.qObjects.FieldByName('floor').AsString + "/" + %s а как быть, если qObjects живет в другом модуле, в другой форме? Пытаюсь так: DM.qObjects.FieldByName('floor').AsString + "/" + %s и получаю ошибку, что EvalError in LinkListControlToField1: Couldn't find DM.

Здесь видео отсюда но там используется VertScrollBox

Оказывается, что проблема очень древняя и её до сих пор не исправили https://delphihaven.wordpress.com/2013/12/30/removing-a-fmx-controls-size-restrictions/

а если не используешь дизайнер стилей?

т.е. чтобы устранить ошибку, нужно обязательно использовать TStyleBook и ещё что-то там проделать?

В свойстве TListBox.ListStyle установил значение Horizontal. Список поменял вид. Теперь ставлю Vertical, но ничего не происходит. Как вернуть стиль списка обратно к вертикальному?

ListBox - тормоз ListView - ещё тормознее т.е. в FMX до сих пор нет нормальной компоненты для ввода данных списком. Может кто посоветует нормальную компоненту, чтобы можно было визуально сделать дизайн Itema? Чтобы отображать данные из БД.

не знаю, новшества языка использую

Берлин. А что если Токио? Договаривайте. Т.е. в ListView тоже можно навставлять много разных компонент?

Сейчас Item`ом у ListBox`а пока не много, около 20, но список при пролистывании вверх и вниз пальцем заметно тормозит. При при тапе по Item`у видна "визуализация выбора" и она тоже заметно тормозит. А смарт не самый плохой.

У меня получается очень неудобно. При попытке прокрутить список пальцем на смартфоне, т.е. потянуть его вверх или вниз, получается тап (click) и всплывает клавиатура постоянно.

Спасибо, ушёл, изучать.

Получается, что метод GlobalCount неправильно назван и вводит программиста в заблуждение. Его бы правильно назвать - VisibleCount или ExpandedCount.

Пока непонятно, что такое ListOfVisibleControls. Это список мой? Я сам должен где-то объявить и создать? Какого типа? Это глобальный объект или локальный?

Как правило, Delphi - это же что-то красивое и изящное, извините за оффтоп

я бы сказал, что непривычное для Delphi

просто там что-то страшное и на delphi не похожее Panel1.EnumControls(function (Control: TControl): TEnumControlsResult

Примеров, случайно нет?