我正在尝试在运行时从 TDonutSeries 创建一个附加标记。 我在下面使用了这个源代码:
with Series1.Marks.Children.Add do
begin
Shape.Font.Size:= 10;
Shape.ShapeStyle:= fosRectangle;
Shape.Style:= smsPercent;
end;
在这一行中
Shape.Style = smsPercent;
我收到此错误:E2003 未声明的标识符:"样式">
有没有办法为特定的标记项目设置样式,或者我需要使用特定的单位?
TTextShape
对象没有Style
属性。但是,您可以使用OnGetMarkText
事件以自己的自定义格式输出标记标签。
可以强制转换为TSeriesMarkShape
以访问Style
属性。即:
with Series1.Marks.Children.Add do
begin
Shape.Font.Size:= 10;
Shape.ShapeStyle:= fosRectangle;
TSeriesMarkShape(Shape).Style:= smsPercent;
end;