我用StretchBlt(image2.Canvas.Handle, 0, 0, image2.Width, image2.Height, image1.Canvas.Handle, 0, 0,
image1.Picture.Width, image1.Picture.Height, SRCCOPY);
将一bmp图形缩小(如300*420---->120*168),图形变得不可辨认或是血肉模糊,
怎么样才能避免这样呢?(PhotoShop中就不会)
image1.Picture.Width, image1.Picture.Height, SRCCOPY);
将一bmp图形缩小(如300*420---->120*168),图形变得不可辨认或是血肉模糊,
怎么样才能避免这样呢?(PhotoShop中就不会)
解决方案 »
- Delphi 返回布尔类型的怨念?
- Delphi、ORACLE、SQL SERVER技术资料网站
- 窗体各个事件的产生顺序?初始化代码写在哪里好?
- 请问如何使顶排的buttom自动适应窗口变化的原代码
- 关于多线程在串行通信时的一个问题..
- 我想用button 和panel代替pagecontrol如何做?
- 应用程序内部的web服务器问题
- 有谁用过Delphi7里面的TSMTPServer组件啊?最好有简单例子。
- 怎样在statusbar中显示键盘信息,
- 请问如何把$DDEEFF十六进制数写入二进制文件的规定地址?
- 证明题:在用SOCKET的SendStream(MyStrem)后,MyStrem会自动被FREE掉???
- 怎样在标题栏中显示系统当前日期?
SetStretchBltMode(image2.Canvas.Handle,STRETCH_DELETESCANS);
StretchBlt(image2.Canvas.Handle, 0, 0, image2.Width, image2.Height, image1.Canvas.Handle, 0, 0,
image1.Picture.Width, image1.Picture.Height, SRCCOPY);
搞定,谢谢why_why(为什么呢),分数送上!