代码之家  ›  专栏  ›  技术社区  ›  Paul

TChart和TKnobGauge在运行时创建移位标签

  •  -1
  • Paul  · 技术社区  · 7 年前

    以下代码创建了标签右移的旋钮:

    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;
    

    shifted knob labels

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

    可能有什么问题?

    • 德尔福10
    2 回复  |  直到 7 年前
        1
  •  3
  •   Paul    7 年前

    TChart中有一个错误。当我设置时

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

    标签在它们的位置上。

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

    _chart.Title.Visible := False;
    

    他们被转移了。

        2
  •  1
  •   Yeray    7 年前

    #1547 ,最初报告 here
    请尝试一下罚单中描述的解决方法:

    我只能用一个只有空白的小标题来解决这个问题。