Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

Как сохранить изображение из 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]

Спасибо

---

Страницы: 1 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c