Равиль Зарипов (ZuBy)

Да. Только меня определили за соседний столик

Примените стиль 'transparentlistboxstyle' для TListBox.

ой-ё... рекурсия, метод лесного пожара, емнип.
Не, если нельзя ограничить глубину вложенности - само собой можно схватить преполнение стека.
понятно, что всё придумано до нас, но если изобретать велосипеды - я бы завел список из TPoint с невозможностью добавления дубликатов (например - TDictionary) и проходил бы по нему вашим алгоритмом, но вместо рекурсивного вызова - добавление точек в список. Точки, закрашиваемые красным - удаляются из списка. Если на очередном проходе списка количество элементов  = 0 - мы обошли всю фигуру.

Ссылка: https://habrahabr.ru/post/317814/
Автор: Пётр (Error)
Описание:
За годы существования фреймворк Fire-Monkey(FMX) претерпел множество изменений, и если с самого начала он был очень сырым и ненадежным, то сейчас это намного более стабильная и надежная платформа.
Данная заметка представляет из себя сборник из нескольких полезных советов для разработчиков использующих данный фреймворк...

если вы на этом форуме, то, скорее всего, выход проще - нужно отказаться от TidHTTP и использовать THttpClient, встроенный в delphi

Да, намного дешевле отрисовывать в пейнтбоксе самому.

аналогично как вы сделали для андроид, у меня нет возможности проверить.

cdecl - это соглашение о вызовах из C. И да это можно использовать в Delphi 

Кстати. Вчера был закрытый вэбинар про Токио. Так одним из нововведений будет поддержка TBitmap в потоках.

Обратите внимание, что если вы хотите поменять текстовые настройки, надо также установить свойство StyledSettings. Оно указывает какие текстовые настройки берутся из стиля, а какие из свойства. 

вообще не вижу здесь проблемы. Давайте использовать Delphi3, а еще лучше - турбопаскаль. Там вообще приложение может занимать килобайты, а то и байты.
Это неуклонная тенденция - язык/фреймворк/SDK включает все больше плюшек и фишек, хранится больше ресурсов, с более высокими разрешениями и так далее. Размер приложения от версии IDE к версии будет расти. И это везде так, а не только в RAD Studio.

Смотрите в стандартных примерах:
C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\Multi-Device Samples\User Interface\TabSlideTransition

Если Вы заполните Detail этого listboxitem, то увидите, почему обрезается текст: такие размеры и положение текста заданы в стиле 'listboxitemleftdetail'.
Размер картинки (ширина) тоже задана стилем. Чтобы обойти эти ограничения рекомендую создать свой стиль для listboxitem

тут либо ширина не правильна в стиле, либо
Trimming := TTextTrimming.None; WordWrap := true;  

вот исправленная версия, надеюсь поймете где была ошибка
PassGen.zip

раскидайте все ваши лейауты по разным фреймам и/или формам, и ваша проблема решится

версия для Seatle ColorListView.zip
 
весь код для отрисовки кастомного цвета 
1) копируем себе и открываем FMX.ListView
2) Ctrl+F -> DrawItemsFill
3) Вставляем код
// отрисовываем кастомный цвет........................................... // procedure TListViewBase.DrawItemsFill(const StartItem................. if TListViewItem(ListItem).Data['aUseCustomColor'].AsBoolean then FBrush.Color := TListViewItem(ListItem).Data['aCustomColor'].AsInteger; // ...................................................................... после
if FAlternatingColors and (AltIndex mod 2 = 1) then   FBrush.Color := FItemStyleFillAltColor; 4) Подключаем в своём проекте после стандартного FMX.ListView

Ошибка найдена, не правильно был установлен ListBoxItem->StyleLookup: listboxitemleftdetail

правильное решение, конечно, с фреймами.
не забудьте, что их нужно создавать отдельно, вручную, в нужный момент

Такое есть из коробки, в TTabControl

https://github.com/errorcalc/PackagesGenerator/
PackagesGenerator для Delphi

Если вы пишете компоненты для Delphi, то вы знаете, как трудно поддерживать несколько версий Delphi. Обычно вы получаете много почти одинаковых dpk, dproj, groupproj файлов для разных версий Delphi,

Пример:
MyComponents_XE2.groupproj MyComponents_XE2.dpk MyComponents_XE2.dproj MyComponentsDesign_XE2.dpk MyComponentsDesign_XE2.dproj MyComponents_XE3.groupproj MyComponents_XE3.dpk MyComponents_XE3.dproj MyComponentsDesign_XE3.dpk MyComponentsDesign_XE3.dproj ... MyComponentsDesign_RX10Berlin.dproj
Утомительно создавать эти файлы вручную, также вы можете совершить ошибки.

ErrorSoft PackagesGenerator может решить эту проблему!
PackagesGenerator генерирует необходимые файлы, делая необходимые внутренние изменения (LIBSUFFUX, contains ...).

Параметры генерации задаются в INI файле (пример):
[Folders] Base=Source\ <- the path to the original files Gen=Packages\ <- the path to the generated files GroupAbove=True [Versions] RX10Godzilla=320 RX10Berlin=310 RX10Seattle=300 XE8=290 XE7=280 XE6=270 XE5=260 XE4=250 XE3=240 XE2=230 [Files] MyComponents.groupproj MyComponentsDesign.dpk MyComponents.dpk MyComponentsDesign.dproj MyComponents.dproj
Данный INI и PackagesGenerator сгенерирует все необходимые файлы!

Для примера смотрите: https://github.com/errorcalc/FreeEsVclComponents, папку "Packages".

Лицензия:
Доступны три лицензии:
1) Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International Public License.
Некоммерческая лицензия, для некоммерческого использования:
(exaple: Personal use, Study, Open Source,...)

2) GNU GPL v3: https://www.gnu.org/licenses/gpl.html (ТОЛЬКО для открытых OpenSource проектов)

3) ErrorSoft PackagesGenerator Commercial license.(see LICENSE.TXT)
Полноценная коммерческая лицензия.
$10 для индивидуальных разработчиков, $50 для компаний.

запустить под правами администратора среду нужно

Такое есть из коробки, в TTabControl

Кто сказал что через ini нельзя?
Всё прекрасно работает

тут все непросто
если нет связи например, или еще какая-то совсем беда, остаемся на первой
если не залогинены, загружаю форму логина
если залогинены - одну из двух "главных" (по смыслу, не по делфи) форм приложения
при этом на каждой из форм есть и фреймы и всякая другая беда