Как сохранить изображение из TImage в монохромном формате?

← →
Makking (2003-03-15 16:40) [0]

Зарнее благодарен!

← →
Makking (2003-03-15 21:51) [1]

Что никто не занет?

← →
Delphi5.01 © (2003-03-16 10:23) [2]

1) variant, sami bistri no rabotaet ne ochen xorosho
Image1.Picture.Bitmap.Monochrome:=True;

2) onje ludshi no medlenni nado kajdi piksel peregonat is RGB v Gary
//koeficienti prinatie v televideni!
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;

← →
Makking (2003-03-16 13:07) [3]

Спасибо

Как сохранить изображение из TImage в монохромном формате? Найти похожие ветки