Как преобразовать цветную картинку в чёрно белую?

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

Получаю цветную картинку в image, а как её преобразовать в чёрно белую?

asmodey1:
Преобразование RGB в черно-белый рисунок:

function RgbToGray(RGBColor : TColor) : TColor;

var Gray : byte;

begin

Gray:=Round((0.30*GetRValue(RGBColor))+

(0.59*GetGValue(RGBColor))+(0.11*GetBValue(RGBColor)));

Result:=RGB(Gray, Gray, Gray);

end;

procedure TForm1.Go1Click(Sender: TObject);

var i,j: integer;

    c,d: TColor;

begin

Label1.Visible:=True; //текст метки - "Подождите, пожалуйста..."

Application.ProcessMessages;

for i:=Image1.Left to Image1.Left+Image1.Width do

for j:=Image1.Top to +Image1.Top+Image1.Height do

begin

c:=Image1.Picture.Bitmap.Canvas.Pixels[i-Image1.Left,j-Image1.Top];

d:=RgbToGray(c);

Image1.Picture.Bitmap.Canvas.Pixels[i-Image1.Left,j-Image1.Top]:=d;

end;

Label1.Visible:=False;

Application.ProcessMessages;

end;

тема на форуме

Похожие статьи

• Перенести программу из Delphi в Lazarus
• Тест в Delphi с помощью RadioGroup
• Random слов в Memo
• Плавное перемещение Image больших размеров
• Выдвижное меню
• Получение яндекс каптчи в Image
• Добавить строку с верха вниз StringGrid
• Выбор таблицы в ComboBox
• Указать координаты для создания компонента
• Скопировать данные из Edit в Word