#WAMACO

Если вы часто работаете с данными, анализируете их - то советую обратить на бесплатную библиотеку классов и компонентов от Steema. Библиотека активно развивается и улучшается.

Поддержка всех платформ(VCL+LCL+FMX)
Описание функционала найдете на официальных источниках.
GitHub https://github.com/Steema/BI/wiki
g+ https://plus.google.com/communities/117324086536146457211
site http://www.steebi.com/
  Download Size Date Description   TeeBI for RAD Studio Beta 9 42MB 29th Feb 2016 Includes full source code for Delphi RAD Studio XE4 up to XE10 Seattle Update 1 ЗЫ: В дальнейшем сообщать о найденных интересных библиотеках для FMX?

Не все так просто, как кажется. Для простых приложении это еще куда не шло при наличии хорошего интернета!! Пользователю не охота ждать пока его интерфейс ответит, ему глубоко пофиг что и как устроено в приложении, ему главное чтобы интерфейс отвечал мгновенно. Да и такой подход не подойдет для больших проектов, собственные стили, отрисовки ListView, работа с картой и сенсорами, с записью аудио, да и вообще кучей всего. А так конструктор для одной формочки которая выводит новости и разные справочники в самый раз, хотя для таких приложении не нужны такие затраты времени в разработке.

Сори за флуд.
Вот код в прищепке.
 
Alienware.zip

Проблема решена.
Оказалось что там кодировка Win1251, а я указал 
TStringStream.Create('', TEncoding.UTF8); вместо
TStringStream.Create(''); И парсер на всякий случай:
uses msxml; procedure GetKursValutAndDate(XML:String; var KDollar,KEuro:Double); var XMLDoc: IXMLDOMDocument; Subnodes: IXMLDOMNodeList; AttributeNode: IXMLDOMNode; OperationNode: IXMLDOMNode; i:integer; begin KDollar:=0; KEuro:=0; try XMLDoc:=CoDOMDocument.Create; if Assigned(XMLDoc) and XMLDoc.loadXML(XML) then begin Subnodes:=XMLDoc.selectNodes('//ValCurs/node()'); if Assigned(Subnodes) then begin for I := 0 to Subnodes.length - 1 do begin AttributeNode := Subnodes[I].attributes.getNamedItem('ID'); if Assigned(AttributeNode) then if (AttributeNode.nodeValue='R01235') then begin // доллар OperationNode:=Subnodes[I].selectSingleNode('.//Value'); if Assigned(OperationNode) then KDollar:=StrToFloat(OperationNode.text); end else if (AttributeNode.nodeValue='R01239') then begin // евро OperationNode:=Subnodes[I].selectSingleNode('.//Value'); if Assigned(OperationNode) then KEuro:=StrToFloat(OperationNode.text); end end; end; end; except Raise Exception.Create('Не удалось получить курс валют'); end; end;  

Надо RAD сделать полностью бесплатной, а платно только работу с промышленными базами данных, хотя тоже сомнительно.
Или вкусные компоненты продавать как встроенные покупки, а иначе «невидимая рука рынка» убьёт RAD!
Microsoft сделала SQL Server developer edition тоже бесплатным! (вчера узнал). Подтягивают весь стек!

Да понятно, что зарабатывать надо и нужно, но необходимо принять другой способ монетизации!

Microsoft сделала бесплатной платформу для разработки кроссплатформенных приложений Xamarin для пользователей Visual Studio
 
http://www.windowscentral.com/xamarin-tools-will-be-free-visual-studio-customers-runtime-be-open-sourced
 
Вот те на!
IDERA ждем ответных ходов!

Остаетесь надеяться что IDERA не подведет и в течении года хотя бы могли компилировать "Hello World". Может Делфи оживит эту платформу, главное действовать быстро, пока ниша пуста

Microsoft сделала бесплатной платформу для разработки кроссплатформенных приложений Xamarin для пользователей Visual Studio
 
http://www.windowscentral.com/xamarin-tools-will-be-free-visual-studio-customers-runtime-be-open-sourced
 
Вот те на!
IDERA ждем ответных ходов!

Спасибо за добрые слова, редко когда их можно услышать 
Если хотите что-нибудь новенького, то сформулируйте это для начала хотя бы на родном языке так, чтобы окружающие могли понять. После этого записываем предложение на языке Шекспира и Welcome to https://quality.embarcadero.com
В данном случае это не отписка, а вполне реальное объяснение корпоративных правил. Для выполнения любых работ нужно формальное обоснование и одобрение насяльника. Пожелание, или отчет об ошибке от пользователя это довольно веская причина для того, чтобы работы были запланированы. 

TPresentedScrollBox умеет такое, правда размещением компонентов и пересчет позиции компонентов нужно предусмотреть самому.
Могу завтра скинуть пример, недавно для себя делал

1) Кастомный стиль в виде плитки *
2) ListView с горизонтальной прокруткой, профиксил баги, которые появились из-за этого *
3) Отступ сверху от первого Itema, задается вручную. (нужно было сделать, чтобы решить без многочисленных костылей одну ситуацию)
4) Кастомные цвета для отдельных Item'ов
5) разные хелперы и внутренние настройки
* можно посмотреть тут
скрин выполненной работы

с валютными заказчиками нужен паспорт сделки и подробный договор, иначе налоговая будет придираться!
работайте через каких-нибудь агрегаторов (paypal, Авангейт, Пейпро), деньги можно вывести на карту pioneer
если будешь сам составлять договор, то особо обрати внимание на сроки платежей в договоре. все сроки должны сходится и документы предоставляться вовремя

с валютными заказчиками нужен паспорт сделки и подробный договор, иначе налоговая будет придираться!
работайте через каких-нибудь агрегаторов (paypal, Авангейт, Пейпро), деньги можно вывести на карту pioneer
если будешь сам составлять договор, то особо обрати внимание на сроки платежей в договоре. все сроки должны сходится и документы предоставляться вовремя

Ну во-первых, хорошо смеется тот, кто смеется последним!
Во вторых, наблюдаю тенденцию на других форумах
- "обучился на JAVA, где искать работу?"
- "как то не все сладко в JAVA. правлю legacy сраный код"
- "группа C# кодеров запрограммерит любую задачу за еду"
и т.д.
такая же тенденция со всякми скрипт-языками (JavaScript и иже  с ними), пока Да - закрывают нужды времени, ваяя на коленках скрипты!
НО, потом встанет задача оптимизации всего этого  - и начнется время натива! Вот тут многие с испорченными знаниями фреймворков и прочей шелухи начнут выпадать из жизни! уже есть конкретные заявки на именно "нативные" реализации!
поэтому направление развития RAD абсолютно верное! а качество реализации придет! поверьте!
 
P.S. два знакомых менеджера по продажам (уже смешно) закончили курсы по JAVA, говорят бабла хотим много!
но при поиске работы на 1 предложение - уже 100 человек в очереди стоят! говорят: "нас обманули!"
я говорю "на вас деньги заработали!" (по 140 тыщ. руб - курсы по JAVA, 2х140=280 тыщ.) че, неплохо так!

Победил сортировку по умолчанию. Теперь для рубрики Вопрос/Ответ по умолчанию используется сортировка по дате публикации.

я пользуюсь первым вариантом, создаю такого плана record и использую его для разных вариантов отрисовок
TmyListViewDrawer = record procedure PaintBitmaps(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); // динамическая отрисовка картинок procedure PaintHorzBitmaps(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); // динамическая отрисовка картинок (горизонтально LV) procedure RestoranDrawer(const Sender: TObject; const AItem: TListViewItem); // отрисовка плиточки // настройка LV class procedure RestoranConfig(aLV: TListView); static; class procedure BludoConfig(aLV: TListView); static; class procedure MenuConfig(aLV: TListView); static; // ... class procedure RestoranAdd(aLV: TListView; const aTitle, aLocation, aURL: string; const aDistance, aRating: Real; const aMinPrice, aDeliveryPrice, aDeliveryTime: integer; const aSale: Boolean); static; // добавление Itema end; плюс в том что можно потом копировать в другие проекты, просто дополняя. а не сидеть и настраивать руками

Так, я поясню. Нельзя работать с UI компонентами в не главном UI потоке. Отсюда у вас и ошибки через раз. Банально по причине того, что когда вы изменяете состояние UI компонента, это может привести к перерисовке. А в свою очередь процесс отрисовки может наложиться с очередной работой с этим компонентом из другого потока. Отсюда всякие AV в главной процедуре отрисовки.

Давненько еще нашел этот пак компонентов, но не было времени ознакомиться с ним ближе. Сегодня посмотрел демки - думаю нашему сообществу понравится эта библиотека. Описание оригинальное с гитхаба.
Как скачать:
GetIT(нет лицензии на студию? смотрим ниже) Прямая ссылка на последнюю версию С помощью GIT-клиента: https://github.com/gmurt/KernowSoftwareFMX.git .Можете либо встроенным в делфи, либо своим любимым. Могу посоветовать SourceTreeApp. Рекомендую именно этот способ - вам не придется постоянно перекачивать компонент для обновления. Достаточно в приложении нажать одну кнопку - и компонент обновился. 
Kernow Software FMX Components for XE7, XE8 & XE10 Seattle.
(May work with earlier versions but untested)
Firemonkey Slide menu, ListView and Segment buttons for Delphi. Inherits from a non-visual component to keep things simple.
Includes demo with source. Demo App also available on app store: https://itunes.apple.com/gb/app/kscomponents-reference/id1031179701?mt=8
Feel free to support the components with a donation ;-)
If you'd like to support the ksComponents project, you can do so at the following link ;-)
http://www.kernow-software.co.uk/?page_id=397
TksTableView
Cached table view provides native performance regardless of the number of text/items/graphics added support for embedded switches support for embedded buttons support for embedded segment buttons Canvas style methods for adding text/shapes/images Built-in support for Image, Title, SubTitle, Detail and Accessory elements Check list option support - single check or multi check Custom check mark colours Image cropping (square, round rect or circle) "Indicator" colours - add colour indicators to each row "Sticky" headers TksSlideMenu
set menu background colour set selected item colour set font colours add images to items fade background left or right aligned menus inherites from non-visual Tcomponent for quick integration into existing projects uses bitmap caching for optimised performance TksSegmentButtons
segment button component support for iOS style badges TksFormTransition
component for animating transitions between forms TksTabControl
Tab control component with support for different colours/themes Large number of built-in icons Support for iOS style badges TksNetHttpClient
enhanced http client with ASync Get method TksTileMenu
simple but effective main menu component TksChatView
component for building iOS style chat applications TksSpeedButton
TSpeedButton descendant with support for iOS style badges Any suggestions for updates are welcome :-)

Над этим я пока работаю. Так как по дефолту такой настройки нету. Буду думать, как сделать сортировку по умолчанию по дате.

Можно помучаться с TListView, но я остановился на TPresentedScrollBox и стилизованных Label'ах (облачки сообщений, под разные scale на png 9patch), скорость скролла хорошая, плюс есть боунсы и тд.
Приложил исходники проекта, также в архиве отдельно chat.style
procedure TForm2.ChatUp(UsID: integer; LastId: integer; CText: string); var   Labb: TLabel;   Marg: Single;   LT: TLayout; begin   LT := TLayout.Create(PR);   LT.Parent := PR.Content;   LT.Margins.Top := 2;   LT.Align := TAlignLayout.Top;   LT.Position.Y := PR.ContentBounds.Height + 50;   Marg := PR.Width * 0.20;   Labb := TLabel.Create(PR);   Labb.Parent := PR;   Labb.Align := TAlignLayout.Top;   Labb.AutoSize := True;   Labb.WordWrap := True;   Labb.TextSettings.WordWrap := True;   if UsID = 0 then   begin     Labb.Margins.Left := Marg;     Labb.Margins.Right := 4;     Labb.TextAlign := TTextAlign.Trailing;     Labb.StyleLookup := 'labelchat_green';   end   else   begin     Labb.Margins.Right := Marg;     Labb.Margins.Left := 4;     Labb.TextAlign := TTextAlign.Leading;     Labb.StyleLookup := 'labelchat_white';   end;   Labb.NeedStyleLookup;   Labb.Text := ' ' + CText + ' ';   LT.Height := Labb.Height + 4;   Labb.Parent := LT;   if UsID = 0 then     Labb.Align := TAlignLayout.Right   else     Labb.Align := TAlignLayout.Left; end; Первые признаки шизофрении:

Chat.zip

да, только просмотр не переходя на YouTube!
вот это бы замечательно отличало данный форум от многих других!

Было бы очень хорошо вставлять видео, чтобы можно было размещать небольшие ролики, показывающие наглядно какие-то проблемы, их решения, небольшие мастер классы от профи!

Было бы очень хорошо вставлять видео, чтобы можно было размещать небольшие ролики, показывающие наглядно какие-то проблемы, их решения, небольшие мастер классы от профи!

и еще, если можно, чуть покомпактнее дизайн сделать, огромные отступы между строк, большие аватарки слева в сообщениях и информация по ним...  
получается на экран 15-дюймого Apple Mac помещается 2,5 топика из одного приложения!