delphi在image1中画直线,image1.Canvas.MoveTo(10,10);image1.Canvas.LineTo(20,100);画的直线看起来不直见附图.如何处理才能看起来像条直线.

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/14 12:32:36
delphi在image1中画直线,image1.Canvas.MoveTo(10,10);image1.Canvas.LineTo(20,100);画的直线看起来不直见附图.如何处理才能看起来像条直线.

delphi在image1中画直线,image1.Canvas.MoveTo(10,10);image1.Canvas.LineTo(20,100);画的直线看起来不直见附图.如何处理才能看起来像条直线.
delphi在image1中画直线,image1.Canvas.MoveTo(10,10);image1.Canvas.LineTo(20,100);画的直线看起来不直
见附图.如何处理才能看起来像条直线.

delphi在image1中画直线,image1.Canvas.MoveTo(10,10);image1.Canvas.LineTo(20,100);画的直线看起来不直见附图.如何处理才能看起来像条直线.
要画很直的直线（看起来是）必须两个点的横坐标或纵坐标相等才成,除非加粗直线,否则没有办法处理.
另外,在实际编程中,在ImageEN画布上画直线对象也要好很多,不知道它是不是进行特殊处理了（没有仔细研究过它的源代码）

delphi在image1中画直线,image1.Canvas.MoveTo(10,10);image1.Canvas.LineTo(20,100);画的直线看起来不直见附图.如何处理才能看起来像条直线. delphi image1.canvas.moveto(x,y),image1,canvas.lineto(x1,y1).连续画直线,每画一段中间是断续的? delphi中dimens[1]. vb相当于delphi的ShowMessageFmt()的函数是什么?比如delphi这句话：ShowMessageFmt('%x',[TTRYVERSION]);在VB中怎么表述? 请问大家delphi中的除号用什么符号表示?加减乘分别用+ - * 表示请问在delphi中除号用什么表示啊? delphi中在panel控件上怎样再加panel控件并让子panel控件完全位于主panel的上部,随主panel的改变而改变 Im im im Im im Im im 霍尔实验中当励磁电流达到一定值以后,Im-Vh直线斜率变化的原因 德语：Der Teufel Im Lichte 中,im Lichte delphi中if then else语句怎么写.举个最简单的例子 Delphi中[Hint] Prj_load.dpr(23):Value assigned to 'pdatabuffer' never 怎样修改这个错误? delphi怎么控制edit中只能输入数字?vari:integer;procedure TForm1.Edit1Change(Sender:TObject);beginif edit1.text'' thentryi:=strtoint(edit1.Text)exceptbeginedit1.Clear;showmessage('输入错误');endend;end;我是这样写的代码.但在调