关于width,送100分(100分)

muxj · 2002-08-24

1、如何使image1的width等于原width的任意比例的宽度，如67%,写成
image1.Width:=image1.Width *0.67 ;delphi不运行
2、如何在image上用lineto方法画出以厘米为单位的线

nids · 2002-08-24

zhihuali · 2002-08-24

1:
Image1.Width := Trunc(Image1.Width * 0.67 + 0.5);
2:
一厘米等于 36 个象素，自己去转换吧！

truecat · 2002-08-24

1、
（1）autosize:=false;
（2）stretch:=true;
（3）image1.Width:=image1.Width *67 div 100;
2、我正在尝试。

yxjdelphi · 2002-08-24

image1.Width:=image1.Width *0.67 为什么不行啊？

Timage1有lineto 方法？

yxjdelphi · 2002-08-24

哦，那么如此应该可以吧：
with image1.canvas do
begin
pen.width:=36;
penpos:=(10,10);
lineto(20,20);
end;

chenxz · 2002-08-24

这是涉及到数据类型转换的问题，你可以先定义一个float型的变量，得到值后再转换过来。
如：
tmpWidth:Float;

tmpWidth := image1.Width *0.67;
image1.Width := int(tmpWidth);

ldaan3 · 2002-08-24

trunc(width*0.73)