Как сделать полупрозрачную водяную метку изображения в Delphi

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

Создание полупрозрачной водяной метки изображения — задача, которая часто встречается в разработке программного обеспечения. В Delphi это можно легко реализовать, используя возможности библиотеки Free Pascal Imaging (FPImage). В данной статье мы рассмотрим, как создать полупрозрачную водяную метку, используя Object Pascal (Delphi) и библиотеку FPImage.

Основные шаги:

1. Загрузка изображения.
2. Преобразование изображения в полупрозрачное.
3. Нарисовать полупрозрачное изображение на основном фоне.

Шаг 1: Загрузка изображения

Для начала загрузим изображение, которое будет использоваться в качестве водяной метки. Мы будем использовать библиотеку Free Pascal Imaging (FPImage) для работы с изображениями.

uses
  FPImage, FPImgCanv, FPCanvas, FPReadPNG, FPWritePNG;

var
  img: TFPMemoryImage;
  canvas: TFPImageCanvas;
  reader: TFPCustomImageReader;
  writer: TFPCustomImageWriter;
  logo: TFPCustomImage;
begin
  img := TFPMemoryImage.Create(800, 800);
  canvas := TFPImageCanvas.Create(img);
  try
    // Загрузка изображения
    logo := TFPMemoryImage.Create(0, 0);
    reader := TFPReaderPNG.Create;
    logo.LoadFromFile('logo.png', reader);

    // Продолжение кода...
  finally
    img.SaveToFile('blend.png', writer);
    canvas.Free;
    img.Free;
  end;
end.

Шаг 2: Преобразование изображения в полупрозрачное

Для того чтобы сделать изображение полупрозрачным, мы можем изменить значения альфа-канала (канал прозрачности) каждого пикселя в изображении. Чем меньше значение альфа-канала, тем более прозрачным будет изображение.

procedure MakeSemiTransparent(AImage: TFPCustomImage; Transparency: Single);
var
  x, y: Integer;
  c: TFPColor;
begin
  for y := 0 to AImage.Height - 1 do
    for x := 0 to AImage.Width - 1 do
    begin
      c := AImage.Colors[x, y];
      c.Alpha := Round(c.Alpha * (1.0 - Transparency));
      AImage.Colors[x, y] := c;
    end;
end;

Этот метод MakeSemiTransparent принимает изображение и коэффициент прозрачности. Коэффициент прозрачности — это значение в диапазоне от 0.0 до 1.0, где 0.0 означает полностью прозрачное изображение, а 1.0 означает полностью непрозрачное изображение.

Шаг 3: Нарисовать полупрозрачное изображение на основном фоне

Теперь, когда у нас есть полупрозрачное изображение, мы можем нарисовать его на основном фоне. Мы будем использовать метод Draw объекта TFPImageCanvas.

begin
  img := TFPMemoryImage.Create(800, 800);
  canvas := TFPImageCanvas.Create(img);
  try
    // Загрузка изображения
    logo := TFPMemoryImage.Create(0, 0);
    reader := TFPReaderPNG.Create;
    logo.LoadFromFile('logo.png', reader);

    // Преобразование изображения в полупрозрачное
    MakeSemiTransparent(logo, 0.75);  // Make logo 75% transparent

    // Нарисовать полупрозрачное изображение на основном фоне
    canvas.Draw((img.Width - logo.Width) div 2, (img.Height - logo.Height) div 2, logo);

    // Сохранение изображения
    writer := TFPWriterPNG.Create;
    img.SaveToFile('blend.png', writer);
  finally
    canvas.Free;
    img.Free;
  end;
end.

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

Вместо ручного изменения альфа-канала каждого пикселя, можно использовать метод AlphaBlend для наложения изображений. Этот метод позволяет наложить одно изображение на другое с заданным коэффициентом прозрачности.

begin
  img := TFPMemoryImage.Create(800, 800);
  canvas := TFPImageCanvas.Create(img);
  try
    // Загрузка изображения
    logo := TFPMemoryImage.Create(0, 0);
    reader := TFPReaderPNG.Create;
    logo.LoadFromFile('logo.png', reader);

    // Нарисовать полупрозрачное изображение на основном фоне с использованием AlphaBlend
    canvas.DrawingMode := dmAlphaBlend;
    canvas.Draw((img.Width - logo.Width) div 2, (img.Height - logo.Height) div 2, logo, 0.75);

    // Сохранение изображения
    writer := TFPWriterPNG.Create;
    img.SaveToFile('blend.png', writer);
  finally
    canvas.Free;
    img.Free;
  end;
end.

Заключение

В данной статье мы рассмотрели, как создать полупрозрачную водяную метку изображения в Delphi. Мы использовали библиотеку Free Pascal Imaging (FPImage) для загрузки, преобразования и наложения изображений. Мы также рассмотрели альтернативное решение с использованием метода AlphaBlend для наложения изображений. Эти методы могут быть полезны для создания различных эффектов прозрачности и наложения изображений в ваших приложениях на Delphi.

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

Статья описывает создание полупрозрачной водяной метки изображения в Delphi с использованием библиотеки Free Pascal Imaging (FPImage).

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

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

:: Главная :: Bitmap ::