Steema Central

Code: Select all

Private Sub Form_Load()
  TeeCommander1.Chart = TChart1
  
  Dim i As Integer
  For i = 0 To 5
    TChart1.AddSeries scPoint
    TChart1.Series(i).FillSampleValues 5
  Next i
End Sub


Private Sub TChart1_OnGetLegendText(ByVal LegendStyle As Long, ByVal ValueIndex As Long, LegendText As String)
  Select Case ValueIndex
    Case 0: LegendText = "My first item"
    Case 1: LegendText = "My second item"
    Case 2: LegendText = "My third item"
    Case 3: LegendText = "My fourth item"
    Case 4: LegendText = "My fifth item"
    Case 5: LegendText = "My sixth item"
  End Select
End Sub

Code: Select all

Chart1.Legend.Item[0].Text:='custom text';

Code: Select all

Private Sub TChart1_OnGetLegendText(ByVal LegendStyle As Long, ByVal ValueIndex As Long, LegendText As String)
  Select Case ValueIndex
    Case 0: LegendText = "custom text"
  End Select
End Sub

Code: Select all

Private Sub Command1_Click()
  TChart1.AddSeries scLine
End Sub

Private Sub Form_Load() 
  Dim i As Integer
  For i = 0 To 1
    TChart1.AddSeries scLine
    TChart1.Series(i).FillSampleValues 5
  Next i
  
  TChart1.Series(0).Title = "US Population for default scenario"
  TChart1.Series(1).Title = "UK Population for default scenario"
End Sub

Private Sub TChart1_OnAddSeries(ByVal SeriesIndex As Long)
  If SeriesIndex = 2 Then
    TChart1.Series(SeriesIndex).Title = "total population"
    TChart1.Series(SeriesIndex).FillSampleValues 5
  End If
End Sub

Code: Select all

Option Explicit

Dim MySeries() As Integer
Dim NumEls As Integer

Private Sub Command1_Click()
Dim i As Integer
    NumEls = 0
    For i = 0 To 4
        TChart1.AddSeries scLine
        TChart1.Series(i).FillSampleValues 10
    Next i
    
    TChart1.Series(0).Title = "Population[US], default, LHS"
    TChart1.Series(1).Title = "Population[DE], default, LHS"
    TChart1.Series(2).Title = "Population[IE], default, LHS"
    TChart1.Series(3).Title = "Population[UK], default, LHS"
    TChart1.Series(4).Title = "Population[FR], default, LHS"
    
End Sub

Private Sub Command2_Click()
TChart1.ShowEditor
'TeeEditor1.ShowEditor
End Sub

Private Sub Command3_Click()
Dim i As Integer

    For i = 0 To 1
        TChart1.AddSeries scLine
        TChart1.Series(TChart1.SeriesCount - 1).FillSampleValues 10
    Next i
    
    TChart1.Series(TChart1.SeriesCount - 2).Title = "Population[IT], default, LHS"
    TChart1.Series(TChart1.SeriesCount - 1).Title = "Population[ES], default, LHS"
End Sub

Private Sub Command4_Click()
  TChart1.Series(0).RefreshSeries
End Sub

Private Sub TChart1_OnAddSeries(ByVal SeriesIndex As Long)
  ReDim Preserve MySeries(NumEls + 1) As Integer
  MySeries(NumEls) = SeriesIndex
  NumEls = NumEls + 1
End Sub

Private Sub TChart1_OnGetLegendText(ByVal LegendStyle As Long, ByVal ValueIndex As Long, LegendText As String)
  Dim i, MyIndex, UserCount As Integer
  UserCount = -1
  MyIndex = -1
  For i = 0 To NumEls - 1
    If MySeries(i) = ValueIndex Then
      MyIndex = i
    Else
      If MySeries(i) > ValueIndex Then
        UserCount = i
        Exit For
      End If
    End If
  Next i

  If MyIndex <> -1 Then
    Select Case MyIndex
    Case 0:
        LegendText = "US Population for default scenario"
    Case 1:
        LegendText = "DE Population for default scenario"
    Case 2:
        LegendText = "IE Population for default scenario"
    Case 3:
        LegendText = "UK Population for default scenario"
    Case 4:
        LegendText = "FR Population for default scenario"
    Case 5:
        LegendText = "IT Population for default scenario"
    Case 6:
        LegendText = "ES Population for default scenario"
    End Select
  Else
    If UserCount = -1 Then
      UserCount = NumEls
    End If
    LegendText = "user's series nº " + Str$(ValueIndex - UserCount)
  End If
End Sub