Image1.Canvas.Pen.Mode:=pmCopy;
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Pen.Width:=2;
Image1.Canvas.MoveTo(x0,y0);
Image1.Canvas.LineTo(x,y); Image1.Canvas.Pen.Mode:=pmXor;
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Pen.Width:=2;
Image1.Canvas.LineTo(x,y);
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Pen.Width:=2;
Image1.Canvas.MoveTo(x0,y0);
Image1.Canvas.LineTo(x,y); Image1.Canvas.Pen.Mode:=pmXor;
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Pen.Width:=2;
Image1.Canvas.LineTo(x,y);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货