Код:
function OpenImage(FileName:String;Zoom:integer):TBitmap;
var bmp:TBitmap;
begin
Result:=TBitmap.Create;
BMP:=TBitmap.Create;
bmp.LoadFromFile(FileName);
Result.Width:=round(bmp.Width /100 *zoom);
Result.Height:=round(bmp.Height /100 *zoom);
result.Canvas.CopyRect(result.Canvas.ClipRect,bmp.Canvas,bmp.Canvas.ClipRect);
end;
...........
if opendialog1.Execute then
begin
image1.Picture.Assign(OpenImage(opendialog1.FileName,200));
end;
При Image1.autosize=true;