TeeChart v8: как изменить шрифты во время выполнения?
Цель:
Я хочу изменить шрифты во время выполнения. Например, измените шрифт текста легенды, заголовков, меток осей и т. Д.
Проблема:
Я не могу найти функцию для изменения шрифтов путем передачи объекта CFont. Я использовал функцию SetFont (m_chartObj.SetFont (pFont)), но она ничего не меняет. Я думаю, что я должен изменить шрифт отдельно для легенды, оси и других объектов, но я не могу найти такие функции.
Вопрос:
Кто-нибудь знает такие функции для того, чтобы менять шрифты во время выполнения, а не в редакторе?
Решение
Как вы, вероятно, обнаружили, в редакторе есть возможность изменить все шрифты одновременно:
Тем не менее, нет функции, которая делает то же самое во время выполнения, поэтому вы должны изменить свойства всех шрифтов, которые вы хотите изменить вручную.
То есть в 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
Другие решения