BMP画像をグレイスケール化するには？ (ID:11558)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 インチキかな uses Jpeg; procedure ConvertToGrayScale(bmp:TBitmap); var jpg:TJpegImage; ms:TMemoryStream; begin jpg := TJpegImage.Create; ms := TMemoryStream.Create; try jpg.Assign(bmp); jpg.SaveToStream(ms); ms.Position := 0; jpg.LoadFromStream(ms); jpg.Grayscale := true; bmp.Assign(jpg); finally jpg.Free; ms.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); var bmp:TBitmap; begin bmp := TBitmap.Create; try bmp.LoadFromFile('C:\TestPhoto.bmp'); ConvertToGrayScale(bmp); Canvas.Draw(10,10,bmp); finally bmp.Free; end; end;