Главная страница
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.018 c
1-88046
АлександрК
2003-03-14 18:15
2003.03.27
StrToDate


14-88202
alxx
2003-03-10 22:02
2003.03.27
Рисунки.


14-88168
Danger
2003-03-10 21:41
2003.03.27
Можно ли заставить написанное на Дельфи работать как скрипт??


14-88156
Supreme 2
2003-03-12 15:00
2003.03.27
Соц. опрос:


3-87858
Илайдж
2003-03-03 17:22
2003.03.27
Построение дерева