Вниз
Скачать: 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
14-11473
Сатир
2002-10-15 19:22
2002.11.04
Do not localize


1-11261
Dog
2002-10-23 10:52
2002.11.04
Динамическое распределение памяти


14-11479
AZ
2002-10-16 15:18
2002.11.04
Турбопаскаль7: Delay(n). Есть ли баги?


7-11522
Eugene
2002-08-30 01:16
2002.11.04
Удаленная установка своей программы.


1-11136
Gari
2002-10-22 14:49
2002.11.04
Скрыть свойства.




   Наверх