我用 CopyRect 放大图片,如下语句:
ForeImage.Canvas.CopyRect(DestRect, BackImage.Canvas, SourceRect);
我想在 ForeImage 的宽和高比 BackImage 大时,从 BackImage 中将整个图片复制到 ForeImage 中,这样可以放大图片,但是实际结果却不是我想要的,在 ForeImage 中显示出的图片比 BackImage 中的还小,是什么原因?
ForeImage.Canvas.CopyRect(DestRect, BackImage.Canvas, SourceRect);
我想在 ForeImage 的宽和高比 BackImage 大时,从 BackImage 中将整个图片复制到 ForeImage 中,这样可以放大图片,但是实际结果却不是我想要的,在 ForeImage 中显示出的图片比 BackImage 中的还小,是什么原因?
解决方案 »
- 使用 ClientDataset 查询Access paramcheck问题
- 关于文件搜索的问题和一个关于listview的问题 在线等!!!!
- 在DBgrid里如何用shift+鼠标键实现连续选择功能
- 怎么在只有点击了button事件后才能响应其他控件的事件 很急!!!
- TComboBoxEx的小问题
- DBGrid列与列之间进行比较的问题在经等(数据库为sql server,表为动态生成的),急急在线等
- 存储过程的调试?
- 怎么paradox表中Number类型只有小数点后两位?(急急急)
- Delphi控件的事件有判断鼠标离开或是失去焦点的吗?(初学者拜上)
- 新手问题:游戏
- 如何确保在软件操作Excel的同时,手动也能操作。
- 请问,如何让用户调整的打印格式永久保存,急,在线等,解决马上送100分!!
begin
with SourceRect do
begin
Left:=BoxCenterX-BoxSide;
Top:=BoxCenterY-BoxSide;
Right:=BoxCenterX+BoxSide;
Bottom:=BoxCenterY+BoxSide;
end;with DestRect do
begin
Left:=BoxCenterX-dSide;
Top:=BoxCenterY-dSide;
Right:=BoxCenterX+dSide;
Bottom:=BoxCenterY+dSide;
end;ForeImage.Canvas.CopyRect(DestRect, BackImage.Canvas, SourceRect);
end;
procedure CopyRect(const Dest: TRect; Canvas: TCanvas; const Source: TRect);
Dest是ForeImage的尺寸,SourceRect是BackImage的尺寸
我的要求是:初始时,ForeImage 的大小与图片的大小一样,放大后 ForeImage 跟着变大,直到最大尺寸就不再变大(就是比窗口稍小一点)。