Alexander

Уважаемые форумчане!
Поздравляю Вас с Наступающим Новым Годом и Рождеством!
Пусть 2017 год станет новым этапом на Вашем пути и принесет успех, самореализацию и, конечно же, счастье.

1) окрыть project.dpr (меню.Project.View Source)
добавить
uses
  FMX.Types,
  ......
begin
  //отключить использование канвы D2D
  GlobalUseDirect2D:= false;
  Application.Initialize;
....
end.
2) В главной форме приложения перекрыть OnFormCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
  Quality:=TCanvasQuality.HighPerformance;
....
end;
Теперь PaintBox на форме в PaintBox1Paint рисует прямые в 1 пиксел, но без
сглаживания.

По первому фото слева на право:
@kami @Brovin Yaroslav @RoschinSpb @Error

TCircle.Fill.Kind установить в None

Как вариант могу предложить следующий алгоритм 
В RadioButton(I).Tag выставляете уникальный индекс. В обработчике onChange у RadioButton:
GroupBox.Tag := (Sender as TRadioButton). Tag;
Тогда для проверки можно использовать :
Case GroupBox.Tag of....

Что касается примера, я бы экран  просто нарисовал на канве, а при нажатии анализировал в какой цвет попадают координаты.  После этого соответсвующую границу "подсвечивал" серым градиентом - эффект нажатия. 
TPath имеет прямоугольные границы, поэтому при нажатии в углах не те камни могут нажиматься

Что касается примера, я бы экран  просто нарисовал на канве, а при нажатии анализировал в какой цвет попадают координаты.  После этого соответсвующую границу "подсвечивал" серым градиентом - эффект нажатия. 
TPath имеет прямоугольные границы, поэтому при нажатии в углах не те камни могут нажиматься

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

Я смотрел. На сессии вопросов выступил шеф московского офиса. Мне показалось что само московское руководство не особо одобряет этот шаг, но резюме такое: Идера ведет разработку всех своих продуктов силами наемных компаний разработчиков (и надо сказать видимо весьма успешно, раз хватило денег на выкуп Ембаркадеро), вот теперь и разработка RAD тоже полностью подчиняется этой стратегии. Летом офис с Испании, теперь Россия.
Немного рассказали про линукс - он будет только в энтерпрайз версии
PS: Поздравьте меня, теперь я наконец легальный пользователь! Купил Prof+mobile по акции. Еще и скидку 10% получил как индивидуальный. Так что я верю в светлое будущее!

Я прокомментирую, но чуть попозже. Обязательно отвечу на все вопросы. 
На самый главный вопрос на счет форума. Сразу отвечу, форум будет работать в любом случае.

Основатель FMX Евгений Крюков в поисках работы: https://plus.google.com/u/0/105338484741532774705/posts/SnK5twK939Y
Основатель FireDAC Дмитрий Арефьев тоже больше не работает.
По Вашему мнению какие все же перспективы RAD при такой кадровой политике?

Использовать один TFloatAnimation в обработчике OnProcess увеличивать размер по Y. Не использовать выравнивание по центру, а в этом же обработчике смещать координаты левого верхнего угла пропорционально увеличению размера... 
ИМХО: лишний аниматор съедает ресурсы, если есть возможность надо отказываться

В качестве новости, кому интересна данная тема
Toshiba представляет подключаемый модуль BLE для Bluetooth Developer Studio

В качестве новости, кому интересна данная тема
Toshiba представляет подключаемый модуль BLE для Bluetooth Developer Studio

Поздравляем Ярослава с Днем рождения!
Благодарим за титанические усилия, которые он по собственной инициативе, не "благодаря", а скорее "вопреки", прилагает для развития нашего сообщества.
Желаем не только профессионального благополучия, но и личного счастья!
Ура, товарищи!

Слева и справа вверху повесить "плавающие" полупрозрачные кнопки "Ок" и "Отмена"

На схеме больше похоже на конец 2016 года)

Слева и справа вверху повесить "плавающие" полупрозрачные кнопки "Ок" и "Отмена"

Слева и справа вверху повесить "плавающие" полупрозрачные кнопки "Ок" и "Отмена"

Может это поможет

в Delphi 10 не смог произвести перевод отсканированных строк, не появляются Edit'ы для ввода перевода. Взял файл от рабочего проекта из XE8, в 10-ке подгрузились только английские слова, при этом так же не возможно добавить перевод. Это у меня одного так или ещё ни кто не проверял этот компонент?

Идея была в следующем. В TImage не помещалась карта(состоящая из тайлов) большого размера. Поэтому был разработан алгоритм: на TScrollBox размещались TImage. Размер TImage(экран) чуть больше видимой области TScrollBox и кратный 256 пикселям(размер тайла). Затем экран заполнялся тайлами в соответствии с координатами. Таким образом, получалась большая карта и плавный скрол с инерцией

Черновой вариант, использую в Windows. На сколько адаптировано к Android не знаю, не компилил procedure TMap.FullScreen(Image:TImage;Tile:TOSMTile); var I: Byte; j: Integer; BMPTile, BMPImage:TBitmap; rctIn, rctOut:TRectF; S:String; begin rctOUT:= TRectF.Create(0,0,255,255); BMPImage := TBitmap.Create; BMPImage.Width := Round(Image.Width); BMPImage.Height := Round(Image.Height); BMPTile := TBitmap.Create; if not DirectoryExists(FPathTile+IntToStr(Tile.Zoom)) then ForceDirectories(FPathTile+IntToStr(Tile.Zoom)); for I := 1 to FTileWidth do for j := 1 to FTileHeight do begin S:= FPathTile+format('%d\%d\%d.png',[Tile.Zoom,Tile.TileX+i-1,Tile.TileY+j-1]); while Assigned(FHTTP) and not FileExists(S) do begin if not DirectoryExists(FPathTile+IntToStr(Tile.Zoom)+'\'+IntToStr(Tile.TileX+i-1)) then ForceDirectories(FPathTile+IntToStr(Tile.Zoom)+'\'+IntToStr(Tile.TileX+i-1)); LoadURLToFile(S, 'http://b.tile.openstreetmap.org/'+format('%d/%d/%d.png',[Tile.Zoom,Tile.TileX+i-1,Tile.TileY+j-1]), FHTTP); end; if FileExists(S) then begin rctIn := TRectF.Create(256*(i-1),256*(j-1),256*(i),256*(j)); BMPTile.LoadFromFile(S); BMPImage.Canvas.BeginScene(); BMPImage.Canvas.DrawBitmap(BMPTile,rctOut,rctIn,100,True); // BMPImage.Canvas.Fill.Kind := TBrushKind.None; // BMPImage.Canvas.DrawRect(TRectF.Create(0,0,FScreenWidth, FScreenHeight),0, 0, AllCorners, 100); BMPImage.Canvas.EndScene; end end; Image.Bitmap:= TBitmap.Create; Image.Bitmap.Clear($FFFFFFFF); Image.Bitmap.Assign(BMPImage); end;

Создание сложных стилей с привязкой к создаваемым пользовательским классам. Заполнение интерфейса DisignTime и RealTime.

Удалось увидеть уведомление в шторке телефона. Выяснилось, что протокол ссылки должен быть https. Поэтому не удалось получить в шторке url для fire-monkey.ru