感应控件的图形处理问题？？急急急！！！！(20分)

C

cloud_scorpion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-11

• #1

我用感应控件DBImage和数据库相关联，在图片粘贴后，我需要此图片能在该感应控件DBImage中移动或放大缩小，请问该如何实现？

（在DBImage控件中没有滚动条的属性）

 

C

cloud_scorpion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-13

• #2

不够可加分（急！急！急！急！）

 

H

hawkfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-20

• #3

放一个TScrollBox,然后把DBImage放在TScrollBox上，把DBImage的strech设成
True,这样当你改变DBImage的大小时，就可以使用滚动条了。

 

C

cloud_scorpion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #4

to hawkfly:
我想你是没有明白我的意思。我是说在DBImage控件中如果放一个比该控件大的图片
（保证此图片不失真），可以用滚动条来滚动，该如何来实现？

 

G

gxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #5

我也遇到了相同的问题，怎么没人回答呀？

 

C

cloud_scorpion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #6

难道还没有人回答吗？分少可以再加呀！！！！

 

X

xyzhou7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #7

兄台：
你可以先获得图片的大小（图片的autosize设为true），然后设置滚动条的大小即可。

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #8

这个其实很简单啊，你在form上放置一个panel，然后在panel上放置一个dbimage1，注意dbimage1
的width and height尽量大些（超过panel的尺寸），然后dbimage1.center:=false;
panel1.bevelouter:=bvlowered;在dbimage1下面放置一个scrollbar1，
procedure TForm1.ScrollBar1Change(Sender: TObject);
var
w:integer;
r:real;
begin
r:=0;
w:=dbimage1.Picture.Graphic.Width;
if w>panel1.Width then
r:=(w-panel1.Width)/scrollbar1.Max;
dbimage1.Left:=-round(r*scrollbar1.Position);
end;

end.
垂直方向也是一样的

 

C

cloud_scorpion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #9

多人接受答案了。