Sub DrawDynamicLinePoints
MinVisibleInterval = 100 'sec
....
If others.AutoRefresh Then
ReadingsToShow = 50
Else
ReadingsToShow = MinVisibleInterval / (others.RefreshInterval / 1000)
End If
'Log("ReadingsToShow1= " & ReadingsToShow)
If ReadingsToShow > 300 Then
Dim MaxTargetPointsOnScreen As Int = 100
Dim PointsPerLine As Int = MaxTargetPointsOnScreen / selection.Size
ReadingsToShow = PointsPerLine
End If
'Log("ReadingsToShow2 = " & ReadingsToShow)
If ReadingsToShow > 50 Then
DynamicLines1.DrawVerticalGridLines = False
Else
DynamicLines1.DrawVerticalGridLines = True
End If
If DynamicLines1.NbPoints = ReadingsToShow Then
DynamicLines1.RemovePointData(0)
End If
Dim x As Float = others.ticker/1000
Private ElapsedTime As String = NumberFormat2(x, 2, 2, 2, False)
DynamicLines1.AddLineMultiplePoints(ElapsedTime, Values, True)
DynamicLines1.DrawChart
End Sub