Как получить координату точки внутри исходного изображения в TImageViewer FMX, независимо от уровня зума и перемещения?

Delphi , Компоненты и Классы , TImage и TImageList

Получение координат пикселя внутри исходного изображения в TImageViewer FMX, независимо от уровня зума и перемещения

В данной статье мы рассмотрим проблему получения координат пикселя внутри исходного изображения, отображаемого в компоненте TImageViewer в FireMonkey (FMX) приложении на Delphi, независимо от уровня масштабирования (зума) и перемещения изображения. Проблема возникает, когда необходимо определить, на какой именно пиксель исходного изображения указывает курсор мыши после масштабирования и перемещения изображения в TImageViewer.

Постановка задачи:

Имеется компонент TImageViewer, отображающий TBitmap. Пользователь может масштабировать изображение и перемещать его внутри TImageViewer. Необходимо определить координаты пикселя исходного изображения, на который указывает курсор мыши, независимо от текущего уровня масштабирования и положения изображения.

Исходный код (нерабочий):

Пользователь Franz представил следующий код, который не давал ожидаемого результата:

procedure TmainForm.imgviewer_layoutMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
  ImageViewer: TImageViewer;
  Image: TBitmap;
  ImageX, ImageY: Single;
  ScaleX, ScaleY, BitmapScale: Single;
begin
  ImageViewer := Sender as TImageViewer;
  Image := ImageViewer.Bitmap;

  // Ensure we have an image loaded in the ImageViewer
  if Assigned(Image) and not Image.IsEmpty then
  begin
    BitmapScale := Image.BitmapScale;

    // Calculate the scale factors of the image within the ImageViewer
    ScaleX := ImageViewer.Width / (Image.Width * BitmapScale);
    ScaleY := ImageViewer.Height / (Image.Height * BitmapScale);

    // Adjust the X, Y to the image coordinates
    ImageX := X / ScaleX;
    ImageY := Y / ScaleY;

    // Ensure coordinates are within the bounds of the image
    if (ImageX >= 0) and (ImageX <= Image.Width) and
       (ImageY >= 0) and (ImageY <= Image.Height) then
    begin
      UpdateStatus('INFO LAYOUT DOWN ' + Point2Str(ImageX, ImageY));
    end
    else
    begin
      UpdateStatus('INFO LAYOUT DOWN: Outside Image');
    end;
  end
  else
  begin
    UpdateStatus('INFO LAYOUT DOWN: No Image Loaded');
  end;
end;

Анализ исходного кода:

Исходный код пытается вычислить масштабные коэффициенты ScaleX и ScaleY на основе ширины и высоты TImageViewer и ширины и высоты TBitmap, учитывая BitmapScale. Затем координаты X и Y мыши делятся на эти коэффициенты для получения координат ImageX и ImageY в системе координат TBitmap. Однако, этот подход не учитывает смещение изображения внутри TImageViewer при перемещении.

Решение (предложенное Philip J. Rayment):

Philip J. Rayment предложил следующее решение, которое учитывает смещение изображения и масштабирование:

procedure TmainForm.imgviewer_layoutMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
  ImageViewer: TImageViewer;
  Image: TBitmap;
  ImageLeft, ImageTop: Single;
  ImageX, ImageY: Single;
  ScaledImageWidth, ScaledImageHeight: Single;
  Scale: Single;
begin
  //Get controls
  ImageViewer := Sender as TImageViewer;
  Image := ImageViewer.Bitmap;

  if Assigned(Image) and not Image.IsEmpty then begin

    //Get scaled image size
    Scale := ImageViewer.BitmapScale;
    ScaledImageWidth := Image.Width * Scale;
    ScaledImageHeight := Image.Height * Scale;

    //Get bitmap's top and left positions.
    ImageLeft := (ImageViewer.Width - ScaledImageWidth) / 2;
    if ImageLeft < 0 then ImageLeft := 0;
    ImageTop := (ImageViewer.Height - ScaledImageHeight) / 2;
    if ImageTop < 0 then ImageTop := 0;

    //Get bitmap's mouse coordinates
    ImageX := (X + ImageViewer.ViewportPosition.X - ImageLeft) / Scale;
    ImageY := (Y + ImageViewer.ViewportPosition.Y - ImageTop) / Scale;

    //Report results
    if (X >= ImageLeft) and (X <= ImageLeft + ScaledImageWidth)
       and (Y >= ImageTop) and (Y <= ImageTop + ScaledImageHeight)
    then UpdateStatus('INFO LAYOUT DOWN ' + Point2Str(ImageX, ImageY))
    else UpdateStatus('INFO LAYOUT DOWN: OutsideImage');
  end
  else UpdateStatus('INFO LAYOUT DOWN: No Image Loaded');
end;

Описание решения:

1. Получение масштаба: Scale := ImageViewer.BitmapScale; Получает текущий масштаб изображения.
2. Вычисление размеров масштабированного изображения: ScaledImageWidth := Image.Width * Scale; и ScaledImageHeight := Image.Height * Scale; Вычисляют ширину и высоту изображения после масштабирования.
3. Определение смещения изображения: ImageLeft := (ImageViewer.Width - ScaledImageWidth) / 2; и ImageTop := (ImageViewer.Height - ScaledImageHeight) / 2; Вычисляют смещение изображения от верхнего левого угла TImageViewer. Это необходимо для учета центрирования изображения.
4. Получение координат мыши относительно изображения: ImageX := (X + ImageViewer.ViewportPosition.X - ImageLeft) / Scale; и ImageY := (Y + ImageViewer.ViewportPosition.Y - ImageTop) / Scale; Вычисляют координаты пикселя в системе координат TBitmap. ImageViewer.ViewportPosition.X и ImageViewer.ViewportPosition.Y учитывают смещение изображения при перемещении.
5. Проверка попадания в область изображения: Условие if (X >= ImageLeft) and (X <= ImageLeft + ScaledImageWidth) and (Y >= ImageTop) and (Y <= ImageTop + ScaledImageHeight) проверяет, находится ли точка, на которую указывает мышь, внутри видимой области масштабированного изображения.

Альтернативное решение:

Вместо вычисления смещения вручную, можно использовать функцию TImageViewer.GetImagePosition (если она доступна в вашей версии Delphi/FireMonkey) для получения позиции изображения относительно TImageViewer. Это упростит код и сделает его более читаемым. Однако, стоит учитывать, что TImageViewer.GetImagePosition может быть недоступна в некоторых версиях FireMonkey.

Пример альтернативного решения (если доступна функция GetImagePosition):

procedure TmainForm.imgviewer_layoutMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
  ImageViewer: TImageViewer;
  Image: TBitmap;
  ImageX, ImageY: Single;
  Scale: Single;
  ImagePosition: TPointF;
begin
  ImageViewer := Sender as TImageViewer;
  Image := ImageViewer.Bitmap;

  if Assigned(Image) and not Image.IsEmpty then
  begin
    Scale := ImageViewer.BitmapScale;
    ImagePosition := ImageViewer.GetImagePosition;

    ImageX := (X - ImagePosition.X) / Scale;
    ImageY := (Y - ImagePosition.Y) / Scale;

    UpdateStatus('INFO LAYOUT DOWN ' + Point2Str(ImageX, ImageY));
  end
  else
  begin
    UpdateStatus('INFO LAYOUT DOWN: No Image Loaded');
  end;
end;

Заключение:

Предложенное решение позволяет получить координаты пикселя исходного изображения, на который указывает курсор мыши, независимо от уровня масштабирования и перемещения изображения в компоненте TImageViewer. Использование ImageViewer.ViewportPosition и правильный учет смещения изображения являются ключевыми факторами для достижения корректных результатов. Альтернативное решение с использованием TImageViewer.GetImagePosition может упростить код, если эта функция доступна в вашей версии Delphi/FireMonkey.

Создано по материалам из источника по ссылке.

Задача состоит в получении координат пикселя исходного изображения в компоненте TImageViewer FireMonkey, независимо от уровня зума и перемещения изображения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TImage и TImageList ::