Jpeg->Graustufe

[D4N73]

Hi... ;)

Also ich möchte eine Jpeg-File in die ich in ein TImage auf meine Form gelade habe in Graustufen darstellen wie kriege ich das hin ?

thx

[DerWolf]

des geht so:
procedure TForm1.Button1Click(Sender: TObject);
var jpg: TJPEGImage;
begin
jpg := TJPEGImage.Create;
try
jpg.Assign(Image1.Picture);
jpg.Grayscale := true;
Image1.Picture.Bitmap.Assign(jpg);
finally
jpg.Free;
end;
end;
bis dann