当一张图片的实际尺寸大于image所在的panel时,只能看到图片的一部分?
如何使图片按比例缩小后全部显示出来?
如何使图片按比例缩小后全部显示出来?
解决方案 »
- DBGrid显示问题,有点难好像
- 线程中控件调用出错,急,在线等!!!
- 请请,mssql与ado连接后,调用出错????
- 怎样在程序中实现对DBgrid的options属性进行设置?
- 谁能详细介绍一下财务或进销存软件中“帐套”的意思,相关的数据结构怎么制定?
- 很简单的问题:关于ADOTABLE的连接。
- 如何修改被编译进可执行文件的资源
- 对连接比较慢的ftp站点怎么编程连接?设置nmftp的timeout属性好像不管用。
- 用IS Express Delphi 4.0 Beta制作安装程序的问题!
- 怎样屏蔽WINDOWS NT4.0系统键。
- 一个非常简单的问题 !
- 利用Delphi的CreateProcess来启用dos程序的问题,如何安全关闭这个dos程序呢?********
Stretch :=true;
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;