zairkz

Гитхаб: https://github.com/dimsa/ShadowEngine
Скачать: https://github.com/dimsa/ShadowEngine/archive/master.zip
Twitter: https://twitter.com/dimsa87
 
Игровой движок на FMX. Демо можете посмотреть на ютубе, ссылка в оригинальном описании.
 
SO Engine (ShadowEngine)
Delphi Firemonkey (FMX) Sprite Engine with Formatters, Animations, Collisions and etc.
Some engine features you could watch on YouTube:
CosmoRumba the Card Game:
http://www.youtube.com/watch?v=k7TveCUHXCM 
Spaceship with Asteroids:
https://youtu.be/w6lGasU61HQ Custom shaped Sprite. You could make parallax effect on Background
Asteroids vs You:
http://www.youtube.com/watch?v=veRTBIGUvNM Game from the Google Play (Android Market)
Addictive game about confrontation of Humankind and Asteroids. Your aim is to avoid randomly moving asteroids. You can't shoot them. There are 3 modes: Story, Survival, Relax. In story mode level length is from 30 seconds to 2 minutes. Every next level is harder. In Survival new asteroid is spawned every 15 second.
SO Engine Architecture and Features Overview 
With every commit it getting better!
 
PS - хотел на 100+ в рейтинге выложить - но чуть опоздал)

Кроме того, проверьте стандартную библиотеку System.JSON на утечку памяти (ReportMemoryLeak), каждый раз TJSONvalue надо освобождать и уничтожать. 

Во времена Win8, согласно легенде, позволял добавить свою плитку в меню "пуск". У меня правда не получилось это сделать, но это совсем другая история

я неправильно сделал, что не добавил строчку:
Canvas.Stroke.Kind := TBrushKind.Solid; рисовать квадратами, тоже хорошо получилось.
 
Модуль в моей редакции (в архиве выше) под Windows хорошо с UTF8 работает, а вод под Android разбираюсь. Спасибо за указание на ошибку.
 

немного неправильно сделали, вот так:
procedure TfmMainQRShare.ImageQRPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); var Row, Column: Integer; xPos, yPos, RectSize: Single; pixelColor: TAlphaColor; Img: TImage; begin Img := (Sender as TImage); if Assigned(QRCode) and (not QRCode.Data.IsEmpty) then begin RectSize := Min(Img.Width, Img.Height) / QRCode.Columns; if RectSize > 0 then begin try Canvas.BeginScene; for Row := 0 to QRCode.Rows - 1 do begin for Column := 0 to QRCode.Columns - 1 do begin if (QRCode.IsBlack[Row, Column]) then pixelColor := TAlphaColors.Black else pixelColor := TAlphaColors.White; xPos := Column * RectSize + 0.5 * RectSize; yPos := Row * RectSize + 0.5 * RectSize; Canvas.Fill.Color := pixelColor; Canvas.FillRect(RectF(xPos, yPos, xPos + (RectSize + 1), yPos + (RectSize + 1)), 0, 0, AllCorners, 1); end; end; finally Canvas.EndScene; end; end; Img.Bitmap.SetSize(Canvas.Width, Canvas.Height); Img.Bitmap.Assign(Canvas.Bitmap); end; end; procedure TfmMainQRShare.Update; begin QRCode.Free; QRCode := TDelphiZXingQRCode.Create; QRCode.Data := edtText.Text; QRCode.Encoding := TQRCodeEncoding(cmbEncoding.ItemIndex); QRCode.QuietZone := StrToIntDef(edtQuietZone.Text, 2); QRCodeBitmap.SetSize(QRCode.Rows, QRCode.Columns); ImageQR.Repaint; end; но проблема в другом, проблема в самом модуле, он не правильно работает со строками

Добавьте это
{$ZEROBASEDSTRINGS ON} Инфа: http://docwiki.embarcadero.com/RADStudio/Seattle/en/Zero-based_strings_(Delphi)

похоже на правду, но сейчас нет времени проверить. думаю Pax Beach примет это к сведению

я про это в курсе, но тогда на Windows отвалится. я не проверял, но в коде видел циклы со строками начинающиеся с 1

Ну ладно...
{$IFNDEF MSWINDOWS} {$ZEROBASEDSTRINGS OFF} {$ENDIF} И обращаю внимание что это только для проверки. Я код не видел - но скорее всего придется много переделывать для кроссплатформенности. 

могу подсказать в какую сторону копать. строки в ANDROID/IOS начинаются с 0, а там не заметил чтобы это учитывалось.
Если сделаете, выложите. Всем будет полезно

Кроме того, проверьте стандартную библиотеку System.JSON на утечку памяти (ReportMemoryLeak), каждый раз TJSONvalue надо освобождать и уничтожать. 

AV выходит только при не правильной JSON структуре. А остальные данные можно не проверять, на существование. Он сам съест ошибку и вернет пустоту.
а если учесть что данные идут от сервера (в данной теме) нужно всего ишь проверить правильность начальных символов.
дело в кол-ве строчек, а в количестве символов и в понимании работы с JSON

я всеже предложу вам посмотреть реализацию через XSO
там реализован правильный фильтр
JSONParse.zip

Не согласен, тут просто нужно запомнить что:
A - Array
I - Integer
S - String
B - Boolean
и т.д. 
Очень даже просто и логично )

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

Я вижу решение таким, реализуйте.
Каждый пиксель нужно отрисовать примерно 4 раза, тогда квадрат будет не 1х1, а 4х4. Картинка станет четкой т.к. увеличится холст

Не-не-не, поддержка Linux и Intel Atom будет не раньше версии "Delphi 99.9 Uhta" 

Обновили продукты в онлайн магазине. http://store.embarcadero.ru/catalog/rubric/24
Итого чтобы обновить мою Delphi XE8 до "Delphi 10.1 Berlin Professional"+"Mobile Add-On Pack к Delphi 10.1 Berlin Professional" нужно заплатить 85038,22 рублей. Кажется наем фрилансеров для реализации моих хотелок обойдется дешевле. К торрент версии душа не лежит. Буду и дальше сидеть на XE8, подожду "Delphi 10.8 Bangladesh Professional" с компилятором для Linux и Intel Atom, полноценными сервисами InAppBilling, полной реализацией работы с сенсорами и надеюсь множеством других доделок.

согласен)). Просто для полноты ответа привел еще один вариант, платный

самый простой использовать MultiView, все уже реализовано и не нужно платить

На самом деле слишком уж громко они заявили о поддержке HDPI. На первый взгляд - сделали только масштабирование форм при включенной поддержке HDPI (ну может еще и реализацию MultyResBitmaps). А необходимое при работе с HDPI - осталось неизменным. Достаточно взглянуть на реализацию IFMXDeviceMetricsService.GetDisplayMetrics:
function TPlatformWin.GetDisplayMetrics: TDeviceDisplayMetrics; var R: TRect; begin Winapi.Windows.GetWindowRect(GetDesktopWindow, R); Result.PhysicalScreenSize := TSize.Create(R.Width, R.Height); Result.RawScreenSize := Result.PhysicalScreenSize; Result.LogicalScreenSize := Result.PhysicalScreenSize; if Result.PhysicalScreenSize.cx > 0 then Result.AspectRatio := Result.PhysicalScreenSize.cy / Result.PhysicalScreenSize.cx else Result.AspectRatio := 1; Result.PixelsPerInch := 96; // Windows Default Result.ScreenScale := 1; Result.FontScale := 1; end; Как было так и осталось  

Вангую, что второе

Коллеги, может кому будет интересна информация. В фичах Берлина есть упоминания, что приложения в Windows научились распознавать большие DPI. В Wha's New это так написано:
High DPI Support on Windows
FireMonkey provides multi-resolution styles for Windows, which provide support for 120 DPI and 144 DPI monitors.
А выглядит это так:

Слева форма из Сиэтла, справа форма из Берлина. Код не менялся. Обе запущены на macbook pro с дисплеем ретина (boot camp). 
Я думаю очень показательно)

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

я бы через http)). проверено!