繁体   English   中英

Delphi TeeChart 绘制在 canvas 上

[英]Delphi TeeChart drawing on canvas

我使用 delphi 10.3 TeeChart 到 map 了一些点。

将这些点映射出来后,我想在这些点之间生成线。

所以基本上是从 A 点到 B 点的一条线

chart1.Canvas.Pen.Color := ClYellow;
chart1.Canvas.Pen.Width := 2;
chart1.Canvas.MoveTo(Chart1.Axes.Bottom.CalcXPosValue(chart1.Series[0].XValues[WayPoint]),Chart1.Axes.left.CalcYPosValue(Chart1.Series[0].YValues[WayPoint]));
chart1.Canvas.LineTo(Chart1.Axes.Bottom.CalcXPosValue(chart1.Series[0].XValues[WayPoint+1]),Chart1.Axes.left.CalcYPosValue(Chart1.Series[0].YValues[WayPoint+1]));

该代码在 chart1 的 AfterDraw 事件上运行,它在 a for I:= 1 to Points(航点数)下运行。

我得到的结果如下:

一个

任何帮助或建议都会很棒!

如果IWaypoint相同,请注意系列值列表的索引从0NPoints - 1 ,因此对于I:= 1 to Points看起来很奇怪。

此外,要连接点,您需要NPoints - 1段,因此循环应从0计数到NPoint - 2 (以避免在WayPoint+1处超出数组)

主要的疑问 - 为什么你要“用手”画线,而TChart就是为此目的?

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM