Как исправить зеркальное отражение изображения в Delphi 10.3 при объединении скриншотов

Delphi , Графика и Игры , Canvas

Вопрос, с которым столкнулся разработчик, заключается в проблеме с зеркальным отражением изображения при попытке объединить несколько битмапов в Delphi 10.3. Это происходит при использовании функции CopyRect, которая некорректно интерпретирует координаты прямоугольника, что приводит к зеркальному отражению второго изображения.

Описание проблемы

Разработчик хочет сделать скриншот веб-страницы и сохранить результат в битмап, так как на странице присутствует полоса прокрутки, что требует создания нескольких скриншотов для последующего их объединения. Используя код из Stack Overflow и Delphi Groups, он пытается объединить битмапы, но сталкивается с проблемой: второе изображение отображается зеркально.

Пример кода для объединения битмапов

function ConcatenateBitmaps(const MainBitmap: TBitmap; const BitmapToAdd: TBitmap): TBitmap;
begin
  Result := MainBitmap;
  if BitmapToAdd.Width > MainBitmap.Width then
    Result.Width := BitmapToAdd.Width;
  Result.Height := MainBitmap.Height + BitmapToAdd.Height;
  Result.Canvas.CopyRect(
    Rect(0, MainBitmap.Height, BitmapToAdd.Width, BitmapToAdd.Height),
    BitmapToAdd.Canvas,
    Rect(0, 0, BitmapToAdd.Width, BitmapToAdd.Height)
  );
end;

Ошибка в коде

Проблема заключается в том, что прямоугольник, используемый для копирования, имеет неправильные координаты: верхний край прямоугольника находится на общей высоте двух изображений, а нижний — на высоте добавляемого изображения. Это приводит к тому, что изображение копируется вверх ногами.

Подтвержденный ответ и исправление

Чтобы решить проблему, необходимо изменить координаты прямоугольника следующим образом:

Rect(0, Result.Height - BitmapToAdd.Height, BitmapToAdd.Width, Result.Height)

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

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

В качестве альтернативного подхода можно модифицировать существующий битмап, добавляя к нему другие изображения. Это упрощает управление объектами битмапа и уменьшает риск утечек памяти.

procedure AppendBitmap(const MainBitmap: TBitmap; const BitmapToAdd: TBitmap);
var
  TargetRect: TRect;
begin
  if BitmapToAdd.Width > MainBitmap.Width then
    MainBitmap.Width := BitmapToAdd.Width;
  TargetRect := BitmapToAdd.Canvas.ClipRect;
  OffsetRect(TargetRect, 0, MainBitmap.Height);
  MainBitmap.Height := MainBitmap.Height + BitmapToAdd.Height;
  MainBitmap.Canvas.CopyRect(
    TargetRect,
    BitmapToAdd.Canvas,
    BitmapToAdd.Canvas.ClipRect
  );
end;

Также можно создать функцию-обертку, которая создает копию основного изображения и возвращает ее:

function ConcatenateBitmaps(const MainBitmap: TBitmap; const BitmapToAdd: TBitmap): TBitmap;
begin
  Result := TBitmap.Create;
  Result.Assign(MainBitmap);
  AppendBitmap(Result, BitmapToAdd);
end;

Заключение

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

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

Разработчик сталкивается с проблемой зеркального отражения второго изображения при попытке объединить несколько битмапов в программе Delphi 10.3, из-за неправильной интерпретации координат при копировании изображений.

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

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

:: Главная :: Canvas ::