Imagen blanco y negro

[dec]

Hola,

Me pregunto si no se podría utilizar la propiedad "GrayScale" del objeto "jpg", es decir, utilizando el método "btnCargarClick" que arriba propone el compañero, que la cosa quedara más o menos así, de forma que no fuera necesario el método "btnGrisClick". ¿No os parece?

Código Delphi [-]
procedure TfrmMain.btnCargarClick(Sender: TObject);
var
  jpg: TJPEGImage;
  bmp: TBitmap;
begin
  if dlgOpen.Execute then
  begin
    // Hay que cargar la imagen asi porque necesitamos un bitmap
    btnGris.Enabled:= FALSE;
    try
      jpg:= TJPEGImage.Create;
      bmp:= TBitmap.Create;
      try
        jpg.LoadFromFile(dlgOpen.FileName);

        jpg.Grayscale := true;

        bmp.Assign(jpg);
        Imagen.Picture.Assign(bmp);
        btnGris.Enabled:= TRUE;
      finally
        jpg.Free;
        bmp.Free;
      end;
    except
      ShowMessage('No puedo abrir la imagen');
    end;
  end;
end;

[yorllito]

Gracias por sus soluciones compañeros. Creo que todas funcionaron pero he encontrado una muy sencilla buscando aquí en los foros. es la siguiente.

Código Delphi [-]
TJPEGImage(Image1.Picture.Graphic).GrayScale := True;

Gracias nuevamente.