怎么能让images里面的尺寸跟printer的尺寸一致(50分)

Q

qdlover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-26

• #1

我现在在images里面看到的很大，可是用printer打印出来却缩水了不少
请问怎么设置

 

0

001zqk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-26

• #2

要image.width 或Height比ScrollBox大就然就有了

 

Y

yuzk2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-26

• #3

scrollbox属性
autosize:=false;

 

Q

qdlover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-26

• #4

to 001zqk:
10000肯定超出当前显示器了阿

to yuzk2005:
尝试过，没用的

把image的Stretch:=false；也不行

继续求解

 

Q

qdlover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-26

• #5

我看delphi7里面的demo
ImagView

他就是用
ViewForm.HorzScrollBar.Range := Image1.Picture.Width;
ViewForm.VertScrollBar.Range := Image1.Picture.Height;
ViewForm.Caption := Caption;
ViewForm.Show;
ViewForm.WindowState := wsNormal;
这几行来实现自动scrollbar

可是奇怪的是他的viewform里面的images的Stretch:=false
但是全屏viewform,images也跟着填满整个form了
我这么设置的话，却不能填满整个form ,align=alclient也不行

 

超

超级牛X

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-26

• #6

image属性
autosize:=False;
Stretch:=False;

 

Q

qdlover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-26

• #7

form1.HorzScrollBar.Size :=10000;
form1.VertScrollBar.Size :=10000;
scrollbox1.HorzScrollBar.Size :=10000;
scrollbox1.VertScrollBar.Size :=10000;

还是不行
晕掉啊

 

Q

qdlover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-26

• #8

问题解决

用
scrollbox1.HorzScrollBar.Range
scrollbox1.VertScrollBar.Range

此问题作废

改成

怎么能让images里面的尺寸跟printer的尺寸一致

我现在在images里面看到的很大，可是用printer打印出来却缩水了不少
请问怎么设置

 

0

001zqk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-26

• #9

樓主真精打細算,一分錢搬成兩半用[]

 

Q

qdlover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-26

• #10

可用积分: 14

没办法啊