DELPHI能否实现向PHOTOSHOP一样修改图象尺寸的功能,请赐教。
var
bmp1, bmp2: TBimap;
begin
Chart1.SaveToBitmapFile(‘C:\Test.bmp‘);
bmp1 := TBitmap.Create;
bmp2 := TBitmap.Create;
bmp1.LoadFromFile(‘C:\Test.bmp‘);
bmp2.Height := 600; // 指定新高度
bmp2.Width := 800; // 指定新寬度
bmp2.Canvas.StretchDraw(Rect(0, 0, 800, 600), bmp1); // 縮放
bmp2.SaveToFile(‘C:\Test.bmp‘); // 存回原檔名
bmp2.Free;
bmp1.Free;
end;
评论