图像显示(50分)

H

hhh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-12-07

• #1

我用Timage显示图像,尝试修改width,height属性以实现图像缩放,但显示效果十分不好(300dpi,A4幅面,黑白图),请问有什么方法或控件能较好的实现缩放效果?

 

D

dwwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-12-07

• #2

建议使用WangImage控件,虽然是OCX,
但是Win95自带,安装了附件中的"映像"
就可以使用.

如果用TImage缩放,可以用StretchDraw,
不知你所说的效果不好,是不是指这个.

 

C

cHengyAng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-12-08

• #3

1.要缩放效果好,不要更改 width与height的比列就可以了
2.在《DELPHI 2 开发人员指南》上有篇文章是讲如何:
在DELPHI中创建缩微图象,你可以参考一下.
3.如果你是想让 Image 中的图片由大到小或由小到大地
变化,就该用 Canvas.CopyRect 了
就我个人而言在程序运行中动态修改 Image 的长宽也没
出现过缩放后效果不好的,噢 My GOD!你不会说不认识:
AutoSize / Stretch 吧......

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-12-08

• #4

3h,

什么也别想了, "黑白图"(2bit color)没有任何好办法, 只要是缩小肯定有所损失,
放大肯定难看; 最好使用原来大小显示(autosize), 加上滚动条; 做法是先在你的
form上加上一个TScrollBox, 然后把 TImage 放到 ScrollBox 中;

 

D

dwwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-12-08

• #5

这话似乎不太准确，谁能保证放大缩小没变化呢？
彩色及灰度图像也是一样。
如果你用过WangImage，就知道它的效果相当不错。
而且使用起来什么也不用想，给个百分比就行了。

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-12-08

• #6

dwwang 你可以试一下黑白(2bits color)线图, 用你推荐的WangImage缩小一下,
不丢线才怪呢

 

S

strang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-12-08

• #7

wangimage虽然不错,但毕竟是个OCX,还有其不方便的地方,其实QuickReport中
TQRPreview控件就可达到不错的缩放效果.
在QuickRep1Preview事件中添加如下代码
PriviewForm.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
PriviewForm.Show;
(PriviewForm为实现缩放效果的窗体)
在QuickRep1中加入QRimage1,
QuickRep1.QRimage1.LoadFromFile(FILENAME)装入图形.
QuickRep1.Preview,显示窗体PriviewForm.
PriviewForm.QRPreview1.zoom=?? 确定缩放比例
简单,且使用.

 

D

dwwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-12-08

• #8

huizhang兄:

丢线是客观条件所致,不管什么种类的图像和控件,
缩小到一定程度难道可以保证不丢线?
再说屏幕显示本来不是打印,没有必要100%保真.
如果因此就都不使用缩放功能,岂不成了因噎废食?

 

H

hhh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-12-09

• #9

接受答案了.