德尔福 7 在运行时创建图表条形金字塔/圆柱体

Question

我知道 - 德尔福7是史前的，tChart不是最好的。但我必须使用它们，所以...

我可以在运行时更改系列的类型

var cs: tChartSeries;
begin
  cs := chart.Series[0];
  ChangeSeriesType(cs, TBarSeries);
end;

我发现了其中的大多数：tLineSeries，tBarSeries，tAreaSeries，tPointSeries,...

不幸的是，我找不到如何将其设置为条形/金字塔和条形/圆柱体。如果我尝试在运行时创建它们，我看到向导称它们为"样式"，但如果我尝试

chart.series[0].Style := …

该属性（类型为 tChartSeriesStyles）引用不同的东西。只是为了将来参考，因为很难找到：

TChartSeriesStyle = set of ( tssIsTemplate, 
                             tssDenyChangeType, 
                             tssDenyDelete, 
                             tssDenyClone, 
                             tssIsPersistent, 
                             tssHideDataSource ); 

所以，问题是：如何在运行时将德尔福 7 tChart 系列更改为"金字塔"和"圆柱体"？

谢谢

Answer 1

> 在 Delphi 10.3 中，在 IDE 中手动设置金字塔样式的条形图并以文本形式查看 DFM 会得到如下部分：

  object Chart1: TChart
    Left = 224
    Top = 136
    Width = 400
    Height = 250
    Title.Text.Strings = (
      'TChart')
    TabOrder = 0
    DefaultCanvas = 'TGDIPlusCanvas'
    ColorPaletteIndex = 13
    object Series2: TBarSeries
      BarStyle = bsPyramid
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Bar'
      YValues.Order = loNone
    end
  end

可以尝试在Delphi 7中执行相同的操作，并查看哪些属性设置为哪些值。

在 Delphi 10.3 的代码中，它的结尾是这样的（假设 Series2 是 TBarSeries）：

  Series2.BarStyle := bsPyramid;

Answer 2

您需要将该系列"投射"到 tBarSeries，然后您可以更改该值。例：

(c.series[0] as tBarSeries).BarStyle := bsPyramid;
(c.series[1] as tBarSeries).BarStyle := bsCilinder;

由于它看起来没有记录在任何地方，只需键入"bs"并按 CTRL-SPACE 即可查看所有可能的值。