Форум: "Основная";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];

Вниз

Как сохранить изображение из 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c