Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с bmp-шкой. ПЛИЗЗЗ!!!!! [D5]

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

Yurko (2002-07-10 03:17:00) [1]
Делай так:
bmp.Monochrome := true;

Viewer (2002-06-28 11:47:00) [2]
Если надо цветное перевести в ч/б то, в зависимости от гамма-корреции (стандарта):

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

R:=G:=B:=Y

MBo (2002-06-28 09:24:00) [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;

ArtUl (2002-06-28 08:22:00) [4]
Типа того.

MBo (2002-06-28 07:19:00) [5]
хочешь сделать bmp c серой шкалой 256 градаций?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »