6
6ysnow
Unregistered / Unconfirmed
GUEST, unregistred user!
var
FStart_X,FStart_Y,FEnd_X:integer;
begin
ImageView.Canvas.Pen.Style:=psSolid;
ImageView.Canvas.Pen.Color:=clred;
FStart_X:=100;
FStart_Y:=190;
FEnd_X:=150;
ImageView.Canvas.MoveTo(FStart_X,FStart_Y);
ImageView.Canvas.LineTo(FEnd_X ,FStart_Y) ;
end
各位能给我看看嘛,上述语句居然画不了直线!!!
错在哪里??
FStart_X,FStart_Y,FEnd_X:integer;
begin
ImageView.Canvas.Pen.Style:=psSolid;
ImageView.Canvas.Pen.Color:=clred;
FStart_X:=100;
FStart_Y:=190;
FEnd_X:=150;
ImageView.Canvas.MoveTo(FStart_X,FStart_Y);
ImageView.Canvas.LineTo(FEnd_X ,FStart_Y) ;
end
各位能给我看看嘛,上述语句居然画不了直线!!!
错在哪里??