Konwertowanie bitmapy do skali szarości

Od razu zaznaczam, że ten algorytmy może być wolny na słabszych maszynach lub dużych bitmapach, ale działa :)

Całość opierać się będzie na funkcji konwertującej kolor do skali szarości.

 { Pobrano z grupy dyskusyjnej: pl.comp.lang.delphi }
function GetGrayColor (Color: TColor): TColor;
const RConst = 77;
      GConst = 150;
      BConst = 29;
var Index: Integer;
begin
  Index := Byte (Longint (Word (GetRValue (Color)) * RConst +
                 Word (GetGValue (Color)) * GConst +
                 Word( GetBValue(Color)) * BConst) shr 8);
  Result := RGB (Index, Index, Index);
end;

No i właściwie to jest główna funkcja, na której opierać się będzie nasz program. Funkcja ta pobiera z koloru podanego jako parametr trzy różne barwy: czerwony ( GetRValue ), zielony ( GetGValue ), niebieski ( GetBValue ). Następnie pobrane wartości są mnożone przez stałe. Mieszając te kolory ze sobą otrzymujemy kolor szary.

Oto procedura wykorzystująca powyższą funkcję:

procedure TForm1.Button1Click(Sender: TObject);
var
  B : TBitmap;
  I, J : Integer;
begin
  B := TBitmap.Create;
  B.LoadFromFile('C:\Moje dokumenty\obrazek.bmp');

  for I := 0 to B.Width do
    for J := 0 to B.Height do
      B.Canvas.Pixels[i, j] := GetGrayColor(B.Canvas.Pixels[i, j]);

  Canvas.Draw(0, 0, B);
  B.Free;
end;

Ta procedura każdy piksel przetwarza przez funkcję, która wcześniej napisaliśmy. Na tej podstawie otrzymujemy bitmapę w skali szarości, którą później wyświetlamy na formie.