Вниз
Скачать: CL | DM;

Помогите с bmp-шкой. ПЛИЗЗЗ!!!!!   Найти похожие ветки 

← →
ArtUl ©   (2002-06-28 03:55) [0]

Как у цветной bmp-шки снести цветовую информацию(сделать черно белой) как это делает PhotoShop(он делает ее ч-б с коэффициентами телевидения, у меня есть эта функция преобразования только по пиксельно менять цвет как-то медленно)
Подскажите пожалуйста как мне решить эту проблему или как быстрее менять цвет.


← →
MBo ©   (2002-06-28 07:19) [1]

хочешь сделать bmp c серой шкалой 256 градаций?


← →
ArtUl ©   (2002-06-28 08:22) [2]

Типа того.


← →
MBo ©   (2002-06-28 09:24) [3]

function MakeGrayBmp(b:TBitmap):TBitmap;
var
ct:array[0..255] of TRGBQuad;
i:integer;
begin
Result := TBitmap.Create;
Result.Width:=b.Width;
Result.Height:=b.Height;
Result.PixelFormat:=pf8bit;
for i:=0 to 255 do begin
ct[i].rgbRed:=i;
ct[i].rgbBlue:=i;
ct[i].rgbGreen:=i;
ct[i].rgbReserved:=0;
end;
SetDIBColorTable(Result.Canvas.Handle,0,$FF,ct);
Result.Canvas.Draw(0,0,b);
end;


← →
Viewer   (2002-06-28 11:47) [4]

Если надо цветное перевести в ч/б то, в зависимости от гамма-корреции (стандарта):

Y=(299*R+587*G+114*B)/1000; // CCIR 601
Y=(222*R+707*G+71*B)/1000; // ITU

R:=G:=B:=Y


← →
Yurko   (2002-07-10 03:17) [5]

Делай так:
bmp.Monochrome := true;



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c
1-11270
Alex4444444444
2002-10-23 11:59
2002.11.04
Рессурсы


1-11208
Юрий
2002-10-24 21:14
2002.11.04
TClientSocket и TServerSocket в одной процедуре


1-11323
John Magic
2002-10-24 08:30
2002.11.04
Временное окно


6-11371
_sMile
2002-09-05 18:10
2002.11.04
InternetCheckConnection


7-11510
bob5
2002-08-05 07:49
2002.11.04
Про DLL




   Наверх