VPF::Как узнать, что TBitmap - grayscale? - Форум программистов

Evgeny Onegin

Дата 1.3.2005, 16:01 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как узнать, что TBitmap - grayscale? Вот собственно и вся проблема...

Snowy

Дата 1.3.2005, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

TBitmap.PixelFormat=pf8bit;
Попробуй в этом направлении.
Возможно придется перебрать Palette на предмет равности битов.

Это сообщение отредактировал(а) Snowy - 1.3.2005, 17:15

Girder

Дата 1.3.2005, 18:53 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 2
Всего: 155

Типо так... для 100% Gray-Scale:

Код

function IsGray_Scale(BitMap:HBitMap):Boolean;
var bmInfo:BITMAPINFO;
    W,H:Integer;
    X,Y,i:Integer;
    sDIB:HBitmap;
    sMemBits:PRGBTriple;
    DC:HDC;
begin
 Result:=false;
 if BitMap=0 then exit;
 GetObject(BitMap,SizeOf(bmInfo),@bmInfo);
 W:=bmInfo.bmiHeader.biWidth;
 H:=bmInfo.bmiHeader.biHeight;
 DC:=GetDC(0);
 if (DC=0)or((W=0)and(H=0)) then exit;
 i:=(W*3)-((W*3) div 4)*4;
 if i<>0 then i:=4-i;
 bmInfo.bmiHeader.biWidth:=W;
 bmInfo.bmiHeader.biHeight:=H;
 bmInfo.bmiHeader.biPlanes:=1;
 bmInfo.bmiHeader.biBitCount:=24;
 bmInfo.bmiHeader.biCompression:=BI_RGB;
 bmInfo.bmiHeader.biSizeImage:=0;
 bmInfo.bmiHeader.biXPelsPerMeter:=2834;
 bmInfo.bmiHeader.biYPelsPerMeter:=2834;
 bmInfo.bmiHeader.biClrUsed:=0;
 bmInfo.bmiHeader.biClrImportant:=0;
 bmInfo.bmiHeader.biSize:=SizeOf(bmInfo.bmiHeader);
 sDIB:=CreateDIBSection(DC,bmInfo,DIB_RGB_COLORS,Pointer(sMemBits),0,0);
 if sDIB<>0 then
  begin
   if GetDIBits(DC,BitMap,0,H-1,sMemBits,bmInfo,DIB_RGB_COLORS)>0 then
    begin
     Result:=true;
     for Y:=0 to H-1 do
      begin
       for X:=0 to W-1 do
        begin
         if not((sMemBits^.rgbtBlue=sMemBits^.rgbtGreen)and(sMemBits^.rgbtBlue=sMemBits^.rgbtRed)) then
          begin
           Result:=false;
           break;
          end;
         Inc(sMemBits);
        end;
       if Result=false then break;
       PChar(sMemBits):=PChar(sMemBits)+I;
      end;
    end;
   DeleteObject(sDIB);
  end;
 ReleaseDC(0,DC);
end;

Пример использования:

Код

 if IsGray_Scale(Image1.Picture.Bitmap.Handle) then Caption:='Gray-Scale 100%' else
  caption:='-';

PS: Зная что: серая шкала располагается на диагонали в цветовом кубе модели RGB. Можно легко модифицировать данный код... для вычисления процентного содержания "серости" в картинки smile

. Просто картинка может... внешне выглядить как картинка в оттенках серого, а на самом деле быть серой процентов на 80-90% и на глаз... такое может быть не видно. smile

Это сообщение отредактировал(а) Girder - 1.3.2005, 18:54

--------------------

Как слышим, так и пишим.
Истина где-то там...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »