Оптимизация размеров изображений в Delphi RAD Studio 11.3 с использованием Firemonkey и компонента TImage

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

Разработчики, работающие с Delphi и Pascal, часто сталкиваются с необходимостью оптимизации отображения изображений в приложениях. Особенно актуальной эта задача становится при использовании компонента TImage в среде Firemonkey, которая позволяет создавать кросс-платформенные приложения.

Проблема

Вопрос, поставленный разработчиком, заключается в получении размеров изображения, отображаемого в компоненте TImage, после автоматической подгонки размера под размеры самого компонента. Размеры самого компонента (например, Image1.Width или Image1.Height) и размеры исходного изображения (Image1.Bitmap.Width или Image1.Bitmap.Height) здесь не подходят, так как требуется информация о текущих размерах изображения, отображаемого в TImage.

Решение

Для решения этой задачи необходимо учитывать несколько параметров:

1. Размеры изображения, загруженного в TImage, которые могут быть изменены для подгонки под размеры компонента.
2. Настройка свойства WrapMode (по умолчанию "Fit"), которая определяет, как будет происходить пропорциональное изменение размера изображения.
3. Размеры самого компонента TImage (Width и Height).
4. Масштаб (Scale) компонента TImage (горизонтальный и вертикальный).

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

Пример кода

procedure TForm1.FormCreate(Sender: TObject);
var
  ImageWidth, ImageHeight: Integer;
begin
  // Получаем размеры TImage
  ImageWidth := Image1.Width;
  ImageHeight := Image1.Height;

  // Получаем соотношение сторон изображения и TImage
  var ImageRatio: Double;
  var ImageBitmapRatio: Double;
  ImageBitmapRatio := Image1.Bitmap.Width / Image1.Bitmap.Height;
  ImageRatio := ImageWidth / ImageHeight;
  var ScaleFactor: Double;

  // Определяем, какое соотношение больше
  if ImageRatio > ImageBitmapRatio then
    ScaleFactor := ImageHeight / Image1.Bitmap.Height
  else
    ScaleFactor := ImageWidth / Image1.Bitmap.Width;

  // Рассчитываем фактические размеры изображения
  ImageWidth := Round(Image1.Bitmap.Width * ScaleFactor);
  ImageHeight := Round(Image1.Bitmap.Height * ScaleFactor);
end;

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

Заключение

Оптимизация размеров изображений в компоненте TImage в Delphi RAD Studio 11.3 с использованием Firemonkey требует внимания к деталям, таким как свойства WrapMode, масштабирование и соотношение сторон. Следуя приведенным рекомендациям и примеру кода, разработчики смогут эффективно решать задачи, связанные с отображением изображений в своих приложениях.

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

Разработчики в Delphi RAD Studio 11.3 используют Firemonkey и компонент TImage для оптимизации отображения изображений, требуется определить их фактические размеры после автоматической подгонки под размеры компонента.

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

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

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