[angvelem]

Сообщение от Snake22

а как этим свойством пользоваться? так интересно вдруг пригодиться..

Как вариант:

Код:

procedure TForm2.FormCreate(Sender: TObject);
begin
  jpg := TJpegImage.Create;
  jpg.LoadFromFile('f:\picture\jpg\nature\3.jpg');
  Image1.Picture.Assign(jpg);
  Image2.Picture.Assign(jpg);
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  try
    jpg.Assign(Image1.Picture.Graphic);
    jpg.Grayscale := True;
    bmp.Assign(jpg);
    Image2.Picture.Assign(bmp);
    jpg.Grayscale := False;
  finally
    bmp.Free;
  end;
end;