delphi 改变位图图片大小

本文整理自网络，侵删。

 delphi 改变位图图片大小
procedure pic_fitbmp(const Source,Dest:string;const x,y:integer);
var
abmp,bbmp:tbitmap;
scalex,scaley:real;
begin
abmp:=tbitmap.Create;
bbmp:=tbitmap.Create;
try
abmp.LoadFromFile(Source);
scaley:=abmp.Height/y;
scalex:=abmp.Width/x;
bbmp.Width:=round(abmp.Width/scalex);
bbmp.Height:=round(abmp.Height/scaley);
bbmp.PixelFormat:=pfDevice;
SetStretchBltMode(bbmp.Canvas.Handle,COLORONCOLOR);
stretchblt(bbmp.Canvas.Handle,0,0,bbmp.Width,bbmp.Height,abmp.Canvas.Handle,0,0,abmp.Width,abmp.Height,srccopy);
bbmp.SaveToFile(Dest);
finally
abmp.Free;
bbmp.Free;
end;
end; 

相关阅读 >>

Delphi 5-7 桥接让Delphi xe2 datasnap中间层支持Delphi低版本开发客户端

Delphi 获取计算机名和用户名

Delphi 字符串加密解密单元

Delphi sql语句查询最新的各个台位的最后一个检测值

Delphi获取access中的表名代码

Delphi利用文件流把文件拆分与合并

Delphi xe7开发的直接以管理员模式启动cmd命令行界面

Delphi使用idhttp.get('') 造成假死(堵塞),请问线程idhttp怎么才能做到不出错?

Delphi 检测鼠标键盘多久没有活动

Delphi调用命令行命令并获取返回信息

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

转载请注明出处：木庄网络博客 » delphi 改变位图图片大小