Инструмент tcLegendScrollBar
предназначен для отображения элементов в легенде, что не вписывается в легенду прямоугольника, а не ограничить количество символов, показанных в деталях. Вот это пример usign его:
Private Sub Form_Load()
TChart1.Aspect.View3D = False
Dim i As Integer
For i = 0 To 10
TChart1.AddSeries scFastLine
TChart1.Series(i).FillSampleValues 10
TChart1.Series(i).Title = "this is a very very veeeeeeery long string to be shown in the legend as title for the series " + Str$(i)
Next i
TChart1.Legend.MaxNumRows = 5
TChart1.Tools.Add tcLegendScrollBar
End Sub
Чтобы ограничить длину строки в легенде вы можете использовать OnGetLegendText
событие. То есть:
Private Sub TChart1_OnGetLegendText(ByVal LegendStyle As Long, ByVal ValueIndex As Long, LegendText As String)
LegendText = Left$(LegendText, 10) + "..."
End Sub
Мы можем зафиксировать размер прямоугольника легенды, чтобы в то же время он отобразил 6 элементов и остался на свитке. потому что в моем случае каждый раз, когда я добавляю легенду, он увеличивает вертикальную высоту окна легенды. –