timage secili alan siyah beyaz

[frost majere]

timage nesnesi uzerindeki secili bir alani nasil siyahbeyaza cevirebilirim ?

[rsimsek]

Kod: Tümünü seç

procedure SiyahBeyazYap(Img: TImage);
var
  i, j: Integer;
begin
  with Img.Picture.Bitmap do
  begin
    PixelFormat := pf4Bit;
    for i := 0 to Width - 1 do
      for j := 0 to Height - 1 do
        if Canvas.Pixels[i, j] < clWhite then
          Canvas.Pixels[i, j] := clBlack;
  end;
end;

[frost majere]

grayscale nasil yapabiliriz?