Delphi image 等比例缩小

本文整理自网络，侵删。

 
//等比例缩小
uses Math;
var
Zoom:Extended;
W,H:integer;
bmp:Tbitmap;
begin
  bmp:=Tbitmap.Create;
  bmp.LoadFromFile('c:\aa.bmp');
  Zoom:=Image1.Width/Max(bmp.Width,bmp.Height); //获得比例值
  W:=Trunc(bmp.Width*Zoom);
  H:=Trunc(bmp.Height*Zoom);
  //居中显示缩小后的图片
  Image1.Canvas.StretchDraw(Rect(Trunc((Image1.width-W)/2),Trunc((Image1.Height-H)/2),Trunc((Image1.width-W)/2)+W,Trunc((Image1.Height-H)/2)+H),Bmp);
  bmp.free;
end;
 

相关阅读 >>

Delphi with do和for do语句

Delphi 随机生成汉字

Delphi中的字符串

如何访问局域网的access数据库

Delphi 关于 array of const

Delphi 操作系统时间与web标准时间校正

Delphi+mysql:tadoquery使用插入中文乱码解决方法

winapi 字符及字符串函数(8): ischarupper - 是否是个大写字母

Delphi 创建多级目录

Delphi 的异步方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi image 等比例缩小