有没有很方便的图形缩放,漫游实现方法?(100分)

M

mnzxwzm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-17

• #1

我在PaintBox控件中用绘图命令画图,同时想实现图形的图形缩放、漫游功能
在vb中，可以改变窗体或imge的scaleLeft，scaleTop，scaleWidth，scaleheight属性，然后重画图形即可。在delphi中有无类似的方法？

 

O

o*o

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-17

• #2

图形缩放就用TCanvas.CopyRect不行吗？

 

M

mnzxwzm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-18

• #3

这个方法不能解决漫游的问题,我是希望在delphi的窗口或paintbox中找到
类似于vb中scaleLeft，scaleTop，scaleWidth，scaleheight属性,可以
设置paintbox可见部分的左上角坐标、宽度和高度。谢谢！！

 

G

GWW

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-18

• #4

listen

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-18

• #5

VB中那几个菜鸟是干什么的？

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-18

• #6

LeeChange:
从来没有用过VB？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-10

• #7

近期结束

 

F

fhb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-10

• #8

图形与图象的放大是不同的。
www.truevcl.com 有一个TCAD控件，
可作为例子参考。

 

A

ArJianzeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-11

• #9

var
Rect :TRect ;
offsetValue :Integer ; // 全局变量

begin
Rect.Top :=10 ;
Rect.Left :=10 ;
Rect.Right :=10+(Image1.Picture.Graphic.width*OffSetValue)div 5 ;
Rect.Bottom :=10 +(Image1.Picture.Graphic.Height*OffSetValue)div 5 ;
Image1.Canvas.Pen.Mode :=pmwhite ;
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
Image1.Canvas.StretchDraw(Rect,Image1.Picture.Graphic) ;
end;

 

J

Johnqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-18

• #10

我也很希望知道,怎么样才能对图象的大小进行更改,并保存文件.

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-24

• #11

接受答案了.