Решение проблемы с AlphaBlend и TMetaFile в Delphi для печати водяного знака

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

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

Проблема заключается в том, что функция AlphaBlend не распознает TMetaFile.Handle как источник, так как ожидает canvas handle. При создании 32-битного bitmap с прозрачностью рисование на нем приводит к forced white background, из-за чего на canvas виден alpha-blended rectangle. Как можно нарисовать прозрачный TMetaFile на экране/принтере canvas?

Решением этой проблемы является использование записи TEMRAlphaBlend из перечисления типов Meta File. Однако, если вы используете стандартный Draw метод для отображения metafile, как в случае с TMetaFile, который наследуется от TGraphic, то все должно работать как ожидается.

Для тестирования можно попробовать использовать TBitmap.Canvas вместо TMetaFile. Тем не менее, если вам нужно решить проблему с AlphaBlend и TMetaFile, то вот решение:

procedure TPainter.DrawAlpha(ACanvas: TCanvas; ARect: TRect; AGraphic: TMetafile; AAlpha: Byte);
var
  bmp: TBitmap;
  bf: BLENDFUNCTION;
begin
  bmp := TBitmap.Create;
  try
    bmp.PixelFormat := pf32bit;
    bmp.SetSize(ARect.Right - ARect.Left, ARect.Bottom - ARect.Top);
    bmp.Transparent := True;
    bmp.Canvas.Brush.Color := clNone;
    bmp.Canvas.Brush.Style := bsClear;
    bmp.Canvas.FillRect(Rect(0, 0, ARect.Right - ARect.Left, ARect.Bottom - ARect.Top));
    bmp.Canvas.StretchDraw(Rect(0, 0, ARect.Right - ARect.Left, ARect.Bottom - ARect.Top), AGraphic);

    bf.BlendOp := AC_SRC_OVER;
    bf.BlendFlags := 0;
    bf.SourceConstantAlpha := AAlpha;
    bf.AlphaFormat := AC_SRC_ALPHA;

    AlphaBlend(
      ACanvas.Handle,
      ARect.Left,
      ARect.Top,
      ARect.Right - ARect.Left,
      ARect.Bottom - ARect.Top,
      bmp.Canvas.Handle,
      0,
      0,
      ARect.Right - ARect.Left,
      ARect.Bottom - ARect.Top,
      bf
    );
  finally
    bmp.Free;
  end;
end;

В этом примере мы создаем TBitmap с 32-битным пиксельным форматом и устанавливаем его прозрачным. Затем мы рисуем AGraphic на этом bitmap и накладываем его на ACanvas с помощью AlphaBlend, используя значение AAlpha для управления степенью прозрачности.

Если вы все еще испытываете трудности, убедитесь, что AGraphic действительно прозрачный и что ACanvas правильно настроен для отображения прозрачности. Кроме того, обратите внимание, что AlphaBlend работает только с битмапами, поэтому, если AGraphic не является TBitmap, вам может потребоваться сначала преобразовать его в TBitmap.

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

Статья рассматривает проблему наложения прозрачного TMetaFile на TCanvas в Delphi для печати водяного знака, а также предлагает решение этой проблемы с помощью AlphaBlend и записи TEMRAlphaBlend.

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

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

:: Главная :: MetaFile ::