Timage控件的问题
喝口水 2009-10-22 09:31:47 procedure TForm1.FormResize(Sender: TObject);
var
d,k:integer;
i:integer;
begin
image1.Top:=20;
image1.Height:=self.ClientHeight-40;
d:=image1.Height*9 div 10;
image1.Width:=d; //注:上面这部分省略可以看到下面画的线,但加上就不行了
with image1.Picture.Bitmap.Canvas do
begin
pen.Width:=2;
pen.Color:=clblack;
MoveTo(image1.Width-10,20);
lineto(image1.Width-10,100);//这儿画的线,为啥看不到呢,帮忙给看一下
end;
end;