Создание Водяного Знака с Полупрозрачным Текстом и Тенью в Delphi win32

Delphi , Графика и Игры , Изображения

Вопрос пользователя заключается в том, как можно добавить на изображение (JPG, BMP) полупрозрачный текст с тенью, который может использоваться в качестве водяного знака. Это необходимо реализовать, используя среду разработки Delphi win32.

Решение проблемы

Для решения данной проблемы можно использовать функцию AlphaBlend из модуля Windows.pas, которая позволяет наложить изображение с текстом на другое изображение с заданной степенью прозрачности. Также для создания тени можно использовать функцию размытия изображения.

Пример кода

uses
  Windows, Graphics;

var
  BackgroundImage: Graphics.TBitmap;
  TextImage: Graphics.TBitmap;
  BlendFunc: BLENDFUNCTION;
begin
  BlendFunc.BlendOp := AC_SRC_OVER;
  BlendFunc.BlendFlags := 0;
  BlendFunc.SourceConstantAlpha := $C0; { Степень прозрачности от 0 до 255 }
  BlendFunc.AlphaFormat := AC_SRC_ALPHA;

  BackgroundImage := Graphics.TBitmap.Create;
  try
    BackgroundImage.LoadFromFile('yourimagehere.bmp'); // Загружаем фоновое изображение

    TextImage := Graphics.TBitmap.Create;
    try
      TextImage.Height := BackgroundImage.Height;
      TextImage.Width := BackgroundImage.Width;

      TextImage.Canvas.Brush.Color := clBlack;
      TextImage.Canvas.FloodFill(0, 0, clNone, fsBorder);

      TextImage.Canvas.Font.Style := [fsBold];

      // Рисуем тень
      TextImage.Canvas.Brush.Style := bsClear;
      TextImage.Canvas.Font.Color := clDkGray;
      TextImage.Canvas.TextOut(1, 1, 'hi there');

      // Рисуем основной текст
      TextImage.Canvas.Brush.Style := bsClear;
      TextImage.Canvas.Font.Color := clBlack;
      TextImage.Canvas.TextOut(0, 0, 'hi there');

      // Накладываем текст на фоновое изображение
      Windows.AlphaBlend(BackgroundImage.Canvas.Handle, 0, 0,
                         TextImage.Width, TextImage.Height,
                         TextImage.Canvas.Handle, 0, 0, TextImage.Width,
                         TextImage.Height, BlendFunc);

      // Отображаем результат
      Image1.Picture.Bitmap.Assign(BackgroundImage);
    finally
      TextImage.Free;
    end;
  finally
    BackgroundImage.Free;
  end;
end;

Важные моменты

• Изображение TextImage должно быть создано с теми же размерами, что и фоновое изображение, на которое будет накладываться текст.
• Используйте функцию AlphaBlend для наложения текста с прозрачностью.
• Для создания тени рисуйте текст с меньшей степенью прозрачности и смещением.

Дополнительные функции

Для улучшения визуального эффекта можно использовать функцию размытия (janFX.GaussianBlur), которая сделает тень более плавной.

Пример использования дополнительной функции

procedure DrawTextShadowBox(...);
begin
  // Код для создания текста с тенью и размытием
  janFX.GaussianBlur(Shadow, Blur, 1);
  // ...
end;

Обратите внимание, что для использования функции размытия необходимо установить библиотеку JanFX.

Заключение

Используя приведенные примеры кода, можно добавить на изображение полупрозрачный текст с тенью, что позволит создать водяной знак для защиты изображений в приложениях на Delphi win32.

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

Необходимо создать водяной знак с полупрозрачным текстом и тенью в среде Delphi win32.

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

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

:: Главная :: Изображения ::