如何使图片自适应image大小?

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
    image1.Picture.RegisterFileFormat('jpeg','JPEG',TJPEGIMAGE);
    image1.Picture.LoadFromFile('d:\1.jpg');
end;picture的AutoSize设为True,图片可完全显示,但是显示时,Image被放大,我想知道如果不放大Image,而图片被完全显示?

Answer 1

得到Picture的长宽比例，然后改变Image1的长宽

Answer 2

得到Picture的长宽比例，然后改变Image1的长宽