Как масштабировать Bitmap на смартфоне?

[Sashar333]

Здравствуйте! Подскажите пожалуйста почему такая в масштабе разница отрисовки в Bitmap.Canvas в Windows и Android, и как ее настроить?

Windows:  

Android:  

 

Дано:

1. Массив с координатами прямоугольников и их габаритами (миллиметры)

2. Поле для расположения этих прямоугольников ширина 2000мм длина 6000мм (ширину и длину может менять пользователь но не более этих размеров)

Задача:

Вывести в Bitmap на экран это поле с расположенными прямоугольниками

на картинках "Лист" - это Image

 

Не могу понять как подогнать Bitmap.size под все экраны

вот мой код:

Спасибо за внимание!

[MAD_EVAL]

Смею предположить что всему виной DPI, скорее всего надо узнать его значение и учесть в расчёте

[Slym]

За такое

надо яички в тисочки...

[Sashar333]

2 часа назад, Slym сказал:

За такое

надо яички в тисочки...

Да, согласен, исправил

[Sashar333]

3 часа назад, MAD_EVAL сказал:

Смею предположить что всему виной DPI, скорее всего надо узнать его значение и учесть в расчёте

На новой форме с такой же процедурой рисует так как надо!?

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

такое ощущение что где-то какие-то настройки сохранились... 

[Sashar333]

Может еще есть у кого-то предположения или подсказки?

[#WAMACO]

В 20.04.2020 в 17:38, Sashar333 сказал:

Может еще есть у кого-то предположения или подсказки?

Scale устройства учитываете?

Что возвращает такая функция:

function GetScreenScale: Single;
var ScreenService: IFMXScreenService;
begin
  Result := 1;
  if TPlatformServices.Current.SupportsPlatformService (IFMXScreenService, IInterface(ScreenService)) then
    Result := ScreenService.GetScreenScale;
end;

 

[Sashar333]

13 часов назад, #WAMACO сказал:

Scale устройства учитываете?

Что возвращает такая функция:

function GetScreenScale: Single;
var ScreenService: IFMXScreenService;
begin
  Result := 1;
  if TPlatformServices.Current.SupportsPlatformService (IFMXScreenService, IInterface(ScreenService)) then
    Result := ScreenService.GetScreenScale;
end;

 

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

Сапсибо!