TeeChart v8：如何在运行时更改字体？

Question

目标：

我想在运行时更改字体。例如更改图例文字，标题，轴标签等的字体。

问题：

我找不到任何函数通过传递的CFont对象来更改字体。我使用函数SetFont（m_chartObj.SetFont（pFont）），但它不会改变任何东西。我想我应该单独更改图例，轴和其他对象的字体，但我找不到这样的功能。

问：

是否有人为了在运行时改变字体，而不是在编辑器知道这样的功能呢？

Answer 1

正如你可能已经发现，在编辑器包括改变所有的字体一下子选项：

但是，没有一个函数做同样的在运行时，让你应该更改您想要手动更改的所有字体的属性。
即在VB6中：

Private Sub Form_Load()    
    TChart1.AddSeries scBar 
    TChart1.Series(0).FillSampleValues 8 

    ChangeFont TChart1.Axis.Left.Labels.Font 
    ChangeFont TChart1.Axis.Bottom.Labels.Font 
    ChangeFont TChart1.Header.Font 
    ChangeFont TChart1.Legend.Font 
    ChangeFont TChart1.Series(0).Marks.Font 
End Sub 

Private Sub ChangeFont(fnt As IChartFont) 
    fnt.Bold = True 
    fnt.Name = "Arial" 
    fnt.Size = 10 
End Sub