Использование `TGPGraphics` для копирования изображений в Delphi: решение проблемы

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

Использование TGPGraphics для копирования изображений в Delphi: решение проблемы

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

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

Разработчик столкнулся с проблемой копирования содержимого объекта TGPGraphics на холст TCanvas. В коде, представленном ниже, используется промежуточный объект TGPBitmap для выполнения этой операции, но по каким-то причинам она не приводит к желаемому результату.

function DrawGlyph(bm: TObject; Canvas: TCanvas; X, Y: Integer): Integer;
var
  O: TGPBitmap;
  G: TGPGraphics;
begin
  if (bm is TGPImage) then
  begin
    O := TGPBitmap.Create(16, 16, PixelFormat32bppARGB);
    try
      G := TGPGraphics.Create(O);
      try
        G.SetCompositingMode(CompositingModeSourceCopy);
        G.SetInterpolationMode(InterpolationModeHighQualityBicubic);
        G.SetPixelOffsetMode(PixelOffsetModeHighQuality);
        G.SetSmoothingMode(SmoothingModeHighQuality);
        G.DrawImage(TGPImage(bm), 0, 0, O.GetWidth, O.GetHeight);

        BitBlt(Canvas.Handle, X, Y, O.GetWidth, O.GetHeight, G.GetHDC, 0, 0, SRCCOPY);
      finally
        G.Free;
      end;
    finally
      O.Free;
    end;
  end;
end;

Подсказки от сообщества

В комментариях к коду разработчик получил советы от сообщества. Один из пользователей предложил отказаться от использования промежуточного TGPBitmap и напрямую создать TGPGraphics для TCanvas, что должно было решить проблему. Также была упомянута возможность масштабирования изображения до размера 16x16 прямо при копировании на холст.

Подтвержденный ответ

Оказывается, для копирования содержимого TGPGraphics на холст TCanvas действительно не требуется использование промежуточного TGPBitmap. Вместо этого, можно напрямую создать объект TGPGraphics, передав в конструктор дескриптор устройства (hdc) холста TCanvas. Вот пример исправленного кода:

function DrawGlyph(bm: TObject; Canvas: TCanvas; X, Y: Integer): Integer;
var
  G: TGPGraphics;
begin
  if (bm is TGPImage) then
  begin
    Canvas.Lock;
    try
      G := TGPGraphics.Create(Canvas.Handle);
      try
        G.SetCompositingMode(CompositingModeSourceCopy);
        G.SetInterpolationMode(InterpolationModeHighQualityBicubic);
        G.SetPixelOffsetMode(PixelOffsetModeHighQuality);
        G.SetSmoothingMode(SmoothingModeHighQuality);
        G.DrawImage(TGPImage(bm), X, Y, 16, 16);
      finally
        G.Free;
      end;
    finally
      Canvas.Unlock;
    end;
  end;
end;

Таким образом, использование промежуточного TGPBitmap является излишним, и можно сразу же приступить к рисованию на холсте TCanvas, при необходимости изменяя размер изображения.

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

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

Вопрос связан с использованием компонента `TGPGraphics` в Delphi для копирования изображений на холст `TCanvas`, а также с решением возникшей проблемы, связанной с некорректным копированием, и предложенным сообществом вариантом ре

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

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

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