delphi 里如何绘制直线

delphi 里如何绘制直线,第1张

先要确定比例,也就是image里面加载的图上的像素点与实际经纬度的比例是多少,通过换算后来确定经纬度对应的image内point的x,y坐标。

画图的先调用Canvas.MoveTo(x, y)来指定起点,x,y为起点经纬度对应的坐标值,然后再调用Canvas.LineTo(x1, y1)来画直线,x1,y1为终点经纬度对应的坐标值

在Delphi中要画线段,需要先将画笔移到线段的一个端点,然后再画到另一个端点

Canvas.MoveTo(x1,y1)//移动到线段的一个端点

Canvas.LineTo(x2,y2)//画线到另一个端点

如果是多条首尾相连的线段,则只需要先移动到其中一条线段的端点上(MoveTo),之后一直画线(LineTo),直到最后一条线段的最后一个端点

MoveTo是只移动,不画线,LineTo是从当前点画线到指定点.


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/11853469.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-19
下一篇 2023-05-19

发表评论

登录后才能评论

评论列表(0条)

保存