Delphi内的图片缩放的实现
来源:互联网 发布:非零矩阵 编辑:程序博客网 时间:2024/04/28 01:17
procedure ResizeBmp(Src,Dst:String);
var SrcBM,DstBM:TBitMap;
Rect:TRect;
NewW,NewH,PicW,PicH:Integer;
HDivW:Double;
begin
SrcBM:=TBitMap.Create;
SrcBM.LoadFromFile(Src);
PicW:=SrcBM.Width;
PicH:=SrcBM.Height;
NewH:=768;
NewW:=1024;
DstBM:=TBitMap.Create;
with DstBM do begin
Width:=NewW;
Height:=NewH;
Rect.TopLeft:=Point(0,0);
Rect.BottomRight:=Point(NewW,NewH);
Canvas.Rectangle(0,0,Width,Height);
Canvas.StretchDraw(Rect,TGraphic(SrcBM));
SaveToFile(Dst);
FreeImage;
Free;
end;
end;
var SrcBM,DstBM:TBitMap;
Rect:TRect;
NewW,NewH,PicW,PicH:Integer;
HDivW:Double;
begin
SrcBM:=TBitMap.Create;
SrcBM.LoadFromFile(Src);
PicW:=SrcBM.Width;
PicH:=SrcBM.Height;
NewH:=768;
NewW:=1024;
DstBM:=TBitMap.Create;
with DstBM do begin
Width:=NewW;
Height:=NewH;
Rect.TopLeft:=Point(0,0);
Rect.BottomRight:=Point(NewW,NewH);
Canvas.Rectangle(0,0,Width,Height);
Canvas.StretchDraw(Rect,TGraphic(SrcBM));
SaveToFile(Dst);
FreeImage;
Free;
end;
end;
- Delphi内的图片缩放的实现
- 在Delphi中实现图片的旋转、缩放
- 实现图片的缩放
- C#实现图片的缩放
- js实现的图片缩放
- Picturebox实现图片的缩放
- 实现图片缩放的Gallery
- 实现一张图片的缩放
- QT实现图片的缩放
- IPU缩放图片的实现
- 图片的缩放功能实现
- qt实现图片的缩放
- 通过Delphi 实现图象的缩放
- 移动鼠标实现图片的缩放
- java有关图片缩放的实现
- java 实现图片的缩放、翻转
- Android实现图片的缩放翻转功能
- Android实现图片的缩放翻转功能
- 关于面试
- Delphi 7 使用WebService时报错
- 打算学习java!
- ASP.NET取客户机MAC地址
- Delphi内更换墙纸
- Delphi内的图片缩放的实现
- Delphi内JPG与BMP的互相转换
- Delphi 取Jpg图片内的Exif信息(需要GDI Plus)
- SQL取汉字拼音首字母的存储过程、函数
- JSF学习资料大全
- 如何在SQL语句内引用别的数据源
- 如何制作万能DVD
- 用Delphi编写Windows服务(Service)
- Delphi内的字符串分隔