求救：用image控件打开WMF格式的图形出错(50分)

emoth · 2002-06-13

兄弟我自编了一个DELPHI程序用于和POWERPOINT配合向领导汇报，想让该程序打开用
CAD生成的WMF文件，可以放大缩小。
可不知为什么，一用IMAGE控件放大图像，图形中的汉字就要出现乱
码，但是我用ACDSEE看却又是正常的，我百思不得其解，请储位高手救我。

emoth · 2002-07-02

为什么没人回答呢。
我的方法是
1 设置一个窗体，上面加一个image控件，让图片自动拉伸。
2 运行时每次点击窗体，让image等比例放大，这时图片因为自动拉伸也相应的变大，
问题：当image放到一定比例大小后，图形就出现乱码，特别是其中的汉字。但我用
ACDSEE看却又是正常的。
救我吧

emoth · 2002-07-11

怎么没有人回应啊

huazai · 2002-09-30

加上Image1.Picture.Bitmap.Width:=Image1.Width;
Image1.Picture.Bitmap.Height:=Image1.Height;
Image1.Canvas.StretchDraw(Image1.ClientRect,Wmf);
试试

darnis · 2002-09-30

Image 可以直接支持 WMF 的啊？：）
前些天，我还帮别人找啊找，找了半天才找到Windows 系统自带的 Preview 控件
可以实现Wmf 的缩放，而且不会出现乱码。

emoth · 2002-09-30

请问DARNIS老兄你所谓的“Windows 系统自带的 Preview 控件”在何处有下载？

darnis · 2002-10-08

不好意思哈，过了一个长长的国庆节，

Preview 控件是已经被系统安装上了的，，
你在Delphi里，用 Import Type Library.... 的方式就可以引近来。
控件的名字好像是'TPreview XXX' 之类的，，，
你看看，，应该有的。。。

emoth · 2002-11-10

OK,我试一下