Cara Mengkonversi Bitmap Ke Grayscale Di Delphi

Ini merupakan contoh aplikasi dengan fungsi grayscale seperti halnya pada fitur yang terdapat pada aplikasi pengolah gambar.

berikut adalah kodenya:

procedure TForm2.Button1Click(Sender: TObject);
var
  GrayPal: TMaxLogPalette;
  i: Integer;
begin
  for i:=0 to 255 do
    with GrayPal.palPalEntry[i] do
    begin
      peRed:= i;
      peGreen:= i;
      peBlue:= i;
      peFlags:= 0;
    end;
    GrayPal.palVersion:= $0300;
    GrayPal.palNumEntries:= 256;
    Image2.Picture.Bitmap.PixelFormat:= pf8bit;
    Image2.Picture.Bitmap.Palette:= CreatePalette(PLogPalette(@GrayPal)^);
    Image2.Picture.Bitmap.Width:= Image1.Picture.Bitmap.Width;
    Image2.Picture.Bitmap.Height:= Image1.Picture.Bitmap.Height;
    Image2.Picture.Bitmap.Canvas.Draw(0, 0, Image1.Picture.Bitmap);
end;