关于图形的放大、缩小问题(200分)

JinBo · 1999-11-19

详细内容: 放大缩小时用到的代码： procedure TForm1.Zoom ; begin   SetMapMode(Canvas.Handle, MM_ISOTROPIC);   SetWindowExtEx(Canvas.Handle,FWinExt,FWinExt,nil);   SetViewPortExtEx(Canvas.Handle,FViewExt,FViewExt,nil);   SetWindowOrgEx(.Canvas.Handle,FXOrg,FYOrg,nil); end ; 初始化： FViewExt = 100 ,FWinExt = 100 FXorg = 0 FYorg = 0 我是改变变量 FViewExt 的值达到放大缩小的 打开系统资源监视器， 当我调用方法 Canvas.TextOut(20,20,'测试文字') 输出文字, ......同时还有其它绘图方法...... 不断放大缩小来回五六次后，资源监视器线条出现红色表示资源快耗尽  就会出现资源不足对话框 当我屏蔽方法 Canvas.TextOut(20,20,'测试文字') 还有其它绘图方法,资源监视器不会变红色,黄色都不会出现太正常了  我怀疑是因为输出文字耗了很多资源 我在 pwin98 ,delphi3 下运行的 　　请多多指教 　　先谢了

Jams · 1999-11-19

>>

Li zhaoyang · 1999-11-19

没作过，但手头上好象有一篇资料。 找找看.... 要用银子买哟！~-~

amo · 1999-11-19

能说说你的环境吗？ 是9X还是NT, 那红线代表什么资源？ >......同时还有其它绘图方法...... 还作了什么处理？ 只是从上面的代码好象没什么问题;-)

W.H. · 1999-11-20

最好在开始缩放前用savedc保存当前canvas.handle. 画完之后用restoredc 恢复成原始dc. 例如: var   saveindex: Integer; procedure zoom; begin   saveindex := savedc(canvas.handle);   ...... end; procedure paintingfinish; begin   restoredc(canvas.handle, saveindex); end;

JinBo · 1999-11-20

谢各位的回答! To amo:   操作系统是Win98,程序用Delphi3编写。红线是指资源下降到极低点。   其它绘图方法指使用其它API都不会产生这种问题。         > 只是从上面的代码好象没什么问题   程序没有问题,只是它把系统资源全消耗了。 to W.H.:该方法早已经试过，不行！

www · 1999-11-20

你用TrueType字体，别用图形了， 请到http://202.103.176.81/frun/shangrw/下载我的报表控件看看，我是用 TrueType字体及WMF文件操作的，可以无限缩放。

JinBo · 1999-11-26

to www: 谢谢你的回答，不过你实现的方式与我的要求不一致，我不能使用这种方式。 请大家继续回答！

JinBo · 1999-12-14

请继续回答！

Crane · 1999-12-17

我用VC时也遇到过相同的问题 关键是要注意释放GDI资源 如Pen,Font,bitmap等等 都要注意释放，否则首先就会在 图象缩放时出问题（即使用TRUETYPE缩放字体 也会有问题）。 所以我建议你查查有没有GDI资源用了 以后没释放。

yzhu · 1999-12-18

用TImage的Strech(好象是这样拼的)就可以放大、缩小图形, 只要将TImage的大小设置好, 再用SaveToFile方法保存, 缺点是只能保存为BMP文件.

yang_pk · 1999-12-30

用Canvas的CopyRect不也可以放大缩小吗? 不过要记得释放资源.

JinBo · 2000-02-16

请继续！

m2k · 2000-02-16

如果已经使用API中的GDI函数, 那就使用API中的TEXTOUT函数, 具体使用细节, 请参阅WIN32 API的HELP文件，保证编程的前后一致。

less · 2000-02-16

好像有个控件   可完成此功能，如需要我就去找找

悲酥清风 · 2000-09-02

我有个控件可实现该功能。要的话说一声。

gcq · 2000-09-04

设置TImage的Stretch属性为true;再改变TImage的大小，多简单啊！！！！

xlf · 2000-09-05

to 悲酥清风:   能否给我寄一份：xxz007@yeah.net

hhzh426 · 2000-09-05

BOOL StretchBlt( int x, int y, int nWidth, int nHeight, CDC* pSrcDC, int xSrc, int ySrc, int nSrcWidth, int nSrcHeight, DWORD dwRop ) or cavas.copyrect

燕子 · 2000-09-06

to 悲酥清风:   我也想要一份swallowinsky@sohu.com,thanks!

关于图形的放大、缩小问题(200分)

JinBo

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

Li zhaoyang

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

W.H.

Unregistered / Unconfirmed

JinBo

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

JinBo

Unregistered / Unconfirmed

JinBo

Unregistered / Unconfirmed

Crane

Unregistered / Unconfirmed

yzhu

Unregistered / Unconfirmed

yang_pk

Unregistered / Unconfirmed

JinBo

Unregistered / Unconfirmed

m2k

Unregistered / Unconfirmed

less

Unregistered / Unconfirmed

悲酥清风

Unregistered / Unconfirmed

gcq

Unregistered / Unconfirmed

xlf

Unregistered / Unconfirmed

hhzh426

Unregistered / Unconfirmed

燕子

Unregistered / Unconfirmed

Similar threads