Извлечение отдельных изображений из больших PNG-картинок в Delphi 7 с сохранением прозрачности

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

Иногда при работе с большими PNG-изображениями, содержащими множество маленьких изображений, возникает необходимость извлечь отдельные изображения, сохранив при этом прозрачность. Это может быть полезно, например, при работе с иконками, кнопками или другими графическими элементами интерфейса. В данной статье мы рассмотрим, как это можно сделать, используя Delphi 7.

Шаг 1: Понимание задачи

Предположим, у вас есть одно большое PNG-изображение, в котором размещены несколько маленьких изображений. Вам нужно извлечь одно из этих изображений, сохранив его прозрачность, чтобы использовать его в дальнейшем.

Шаг 2: Выбор инструментов

Для работы с PNG-изображениями в Delphi 7 можно использовать различные библиотеки. Одной из популярных является PNGImage. Убедитесь, что у вас установлена последняя версия этой библиотеки.

Шаг 3: Извлечение изображения

Для извлечения изображения можно использовать модифицированную версию процедуры CropPNG. Эта процедура позволяет вырезать часть изображения, указав начальные координаты и размеры вырезаемой области.

procedure CropPNG(Source: TPNGObject; Left, Top, Width, Height: Integer;
      out Target: TPNGObject);
var
  IsAlpha: Boolean;
  Line: Integer;
begin
  if (Source.Width < (Left + Width)) or (Source.Height < (Top + Height)) then
    raise Exception.Create('Invalid position/size');

  Target := TPNGObject.CreateBlank(Source.Header.ColorType,
    Source.Header.BitDepth, Width, Height);
  IsAlpha := Source.Header.ColorType in [COLOR_GRAYSCALEALPHA, COLOR_RGBALPHA];
  for Line := 0 to Target.Height - 1 do
  begin
    if IsAlpha then
      CopyMemory(Target.AlphaScanline[Line],
        Ptr(LongInt(Source.AlphaScanline[Line + Top]) + LongInt(Left)), 
        Target.Width);
    CopyMemory(Target.Scanline[Line],
      Ptr(LongInt(Source.Scanline[Line + Top]) + LongInt(Left * 3)), 
      Target.Width * 3);
  end;
end;

Шаг 4: Использование процедуры

Чтобы использовать CropPNG, создайте объект TPNGObject для исходного изображения, загрузите изображение из файла, а затем вызовите процедуру, передав необходимые параметры:

var
  Png: TPNGObject;
  CroppedPNG: TPNGObject;
begin
  PNG := TPNGObject.Create;
  PNG.LoadFromFile('..\test.png');

  CropPNG(PNG, 30, 10, 60, 50, CroppedPNG); // Начало (X, Y), ширина, высота
  CroppedPNG.SaveToFile('..\croptest.png');
end;

Шаг 5: Обработка возможных ошибок

Если при работе с DLL, выполненной из приложения, возникает ошибка "no valid header found", убедитесь, что библиотека PNGImage корректно подключена и что все пути к файлам указаны верно.

Заключение

Используя процедуру CropPNG, вы можете легко извлекать отдельные изображения из больших PNG-картинок в Delphi 7, сохраняя при этом прозрачность. Это позволяет гибко работать с графическими ресурсами в ваших проектах.

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

Разработка на Delphi 7 для извлечения отдельных изображений из больших PNG-картинок с сохранением прозрачности.

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

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

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