Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.147.205.30] |
|
Сообщ.
#1
,
|
|
|
Нужно цветную картинку переделать в черно белую. Как?
|
Сообщ.
#3
,
|
|
|
вариант преобразования RGB пиксела в градации серого
function RGBToG(C:TColor):TColor; var b1,b2,b3:byte; begin b1:=C; b2:=C shr 8; b3:=C shr 16; b1:=(b1+b2+b3) div 3; Result:=b1+(b1 shl 8)+(b1 shl 16); end; |