图片切割(100分)

  • 主题发起人 主题发起人 luckyant
  • 开始时间 开始时间
L

luckyant

Unregistered / Unconfirmed
GUEST, unregistred user!
如何得到任意图片中的任意一部分(要有用的,舍弃无用的,以便减少
其存储空间)?
 
很简单嘛,只要对该图片进行扫描。
对每一个点判断它是否在选择范围中,如果是则保留,否则用缺省颜色填充。
然后取最小矩形便可以了。
 
可以用copyrect,
procedure CopyRect(Dest: TRect; Canvas: TCanvas; Source: TRect);
 
用copyrect
 
sample 见d5的帮助
 
很简单嘛,用一个Bitmap载入图像文件,用CopyRect复制到另一个Bitmap中,改变其Width
和Height属性,then SaveToFile。
 
送分送分
 
TO:JohnsonGuo
  小弟愚笨,没能实现你的想法。如果有可能的话,您是否可以
mail一段程序给我。若能和你交朋友,实在是我的荣幸!
  小弟的Email: LuckyAnt@21cn.com
luckyant
10.7
 
TO: g622、JohnsonGuo、Zephyr、侠客:
小弟试了一下,copyrect的效果同Image.Stretch:=True的效果相同,并不
能切割图片。若各位试过的话不妨mail一段程序给我。若能和你们交朋友,实在
是我的荣幸!
非常感谢你们对我的帮助!
  小弟的Email: LuckyAnt@21cn.com
luckyant
10.7
 
多人接受答案了。
 

Similar threads

回复
0
查看
978
不得闲
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部