Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

6th
Май

Изменение оттенка картинки в формате Png

Posted by Chas under Пост-обзор

В своей программе хочу осуществить поддержку стилей. Для этого на форме уже имеються картинки, осталось изменять их оттенок в соответствии со цветовой схемой. В интернете видел несколько примеров, но это только для Bmp. В связи с этим хочу поинтересоваться у форумчан, может быть кто-нибудь сталкивался с такой проблемой?

Человек_Борща:
в delphi 2010 есть стандартный png класс
Вот что у меня получилось без преобразования в bmp.

procedure TForm2.Button1Click(Sender: TObject);

var

  png: TPngImage;

  i, j: Integer;

begin

  png := TPngImage.Create;

  png.LoadFromFile(myDir + 'File.png');
  for i := 1 to 50 do

  begin

    for j := 1 to 50 do

    begin

      png.Pixels[i, j] := ClGray;

    end;

  end;

   png.PixelInformation.

  Image1.Picture.Assign(png);

  png.free;

end;