Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
14-88201
ilya53
2003-03-11 09:17
2003.03.27
API


1-87922
Oops
2003-03-17 13:06
2003.03.27
Запрещение удаления символов маски с Маски Ввода


7-88276
NewGuest
2003-01-30 16:17
2003.03.27
Вопрос по LPT. Длительность посылаемого сигнала.


1-88073
Кролик
2003-03-16 11:28
2003.03.27
Преобразование типов


3-87792
AleksandrKu
2003-03-07 14:01
2003.03.27
поможите люди добри как Stored процедурку написать