一个TBITMAP类,导入.BMP文件,源文件大小为1024*768我想把它的大小缩小为640*480并保存成文件,怎么弄?
解决方案 »
- delphi中运行时出现Debugger Exception Notification
- sreport问题
- 请问那有中文版水晶报表9.0下载呢?
- 批处理文件如何在delhpi中执行?
- delphi 中如何实现将一个SQL SERVER的数据表导出存到一个FOXPRO的DBF文件中
- 什么是TNotifyEvent和TIndexEvent?
- 用習慣了 D7, 用 D207反而不習慣。太高檔了。我希望它笨一點,不要老自作聰明。
- 请问如何把一段SQL脚本做为可执行EXE文件?高分送你!!!!!!!!!!
- 求解:扑克牌的秘密
- 为什么exit()在DELPHI3中好用而在DELPHI5中不好用?
- treeview问题
- 用软件如何发短信?
procedure TForm1.Button1Click(Sender: TObject);
var
bitmap:TBitmap;
begin
//缩小到窗体
Canvas.StretchDraw(rect(0,0,Image1.Width div 2,Image1.Height div 2),
Image1.Picture.Graphic);
//缩小到文件
bitmap:=TBitmap.Create;
bitmap.Width:=Image1.Width div 2;//宽度缩小一半,你可直接天数字
bitmap.Height:=Image1.Height div 2;//高度缩小一半
bitmap.Canvas.StretchDraw(bitmap.Canvas.ClipRect,Image1.Picture.Graphic);
bitmap.SaveToFile('F:\1.bmp');
bitmap.Free;
end;
var
IncreaseRect: TRect;
begin
IncreaseRect := Rect(0,0,image1.Width*2,image1.Height*2);
Image2.Canvas.CopyRect(IncreaseRect,image1.Canvas,image1.ClientRect);
end;