带有 TKnobGauge 的 TChart 在运行时创建移位标签

Question

以下代码创建了标签向右移动的旋钮：

procedure TForm1.FormShow(Sender: TObject);
begin
  _chart := TChart.Create(Self);
  _chart.Parent := Self;
  _chart.Align := alClient;

  _knob := TKnobGauge.Create(Self);
  _knob.ParentChart := _chart;
  _knob.RotateLabels := False;
  _knob.RotationAngle := 180;
end;

与 DFM 相同的代码生成右旋钮。

有什么问题吗？

TeeChart Pro v2015.16.150901 32 位 VCL
Delphi 10

Answer 1

TChart 中存在错误。当我设置

_chart.Title.Text.Text := 'Some title';

标签在其位置上。

当我做的时候

_chart.Title.Text.Text := '';

或

_chart.Title.Visible := False;

他们被转移了。

之所以 DFM 中的相同代码产生了正确的旋钮，是因为视觉设计器通过自动添加几个属性来扩展我的最小图表声明。这些属性中还有一个图表标题。它由 "TChart" 文本自动填充。

Answer 2

听起来与票证中描述的完全一样#1547, initially reported here。
请尝试票证中描述的解决方法：

I can only workaround by having a small title with only a blank in it.

带有 TKnobGauge 的 TChart 在运行时创建移位标签

TChart with TKnobGauge creates shifted labels at runtime

delphi

teechart