Steema Central

Code: Select all

		private void Form1_Load(object sender, EventArgs e)
		{
			for (int i = 0; i < 5; i++)
			{
				tChart1.Series.Add(new Steema.TeeChart.Styles.Line());
				tChart1[i].FillSampleValues();
			}

			MemoryStream stream = new MemoryStream();

			tChart1.Export.Template.Save(stream);
			stream.Position = 0;
			tChart2.Import.Template.Load(stream);			
		}

Code: Select all

		Private  Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
			tChart1.Series.Add(New Steema.TeeChart.Styles.Line())
 
			tChart1(0).Add(1, 1)
			tChart1(0).Add(2, 2)
			tChart1(0).Add() 'Add a null value
			tChart1(0).Add(4, 4)
			tChart1(0).Add(5, 5)
 
			Dim stream As MemoryStream =  New MemoryStream() 
 
			tChart1.Export.Template.Save(stream)
			stream.Position = 0
			tChart2.Import.Template.Load(stream)
		End Sub

Code: Select all

        Dim stream As New IO.MemoryStream
        Dim WhichRow As Integer
        Dim Line1 As Steema.TeeChart.Styles.Line
        Dim DetailsTable As New DataTable

        Randomize()
        DetailsTable.Columns.Add("ChartData", Type.GetType("System.Decimal"))
        For WhichRow = 0 To 9
            DetailsTable.Rows.Add()
            DetailsTable.Rows(WhichRow)(0) = Rnd() * 100
        Next WhichRow
        DetailsTable.Rows(2)(0) = DBNull.Value

        Line1 = New Steema.TeeChart.Styles.Line(TChart1.Chart)
        Line1.DataSource = DetailsTable
        Line1.YValues.DataMember = DetailsTable.Columns(0).ColumnName
        Line1.Color = Color.Green
        TChart1.Export.Template.IncludeData = True
        TChart1.Export.Template.Save(stream)
        stream.Position = 0
        TChart2.Import.Template.Load(stream)

Code: Select all

        DetailsTable.Rows(2)(0) = DBNull.Value

Code: Select all

TChart1.Series(0).Colors.Clear()

Code: Select all

		Private Function CreateDataSet() As DataTable
			Dim DetailsTable As DataTable =  New DataTable() 
 
			Dim DATA As DataColumn =  New DataColumn("DATA",Type.GetType("System.Double")) 
			Dim COLOR As DataColumn =  New DataColumn("COLOR",Type.GetType("System.Object")) 
 
			DetailsTable.Columns.Add(DATA)
			DetailsTable.Columns.Add(COLOR)
 
			Dim dataRow As DataRow
			Dim y As Random =  New Random() 
 
			Dim i As Integer
			For  i = 0 To  10- 1  Step  i + 1
				dataRow = DetailsTable.NewRow()
				dataRow(DATA) = y.Next()
				dataRow(COLOR) =(If i <> 2 Then Color.Green Else Color.Transparent)
 
				DetailsTable.Rows.Add(dataRow)
			Next
 
			Return DetailsTable
		End Function
 
		Private  Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
			Dim Line1 As Steema.TeeChart.Styles.Line =  New Steema.TeeChart.Styles.Line(tChart1.Chart) 
 
			Line1.Clear()
			Line1.DataSource = CreateDataSet()
			Line1.YValues.DataMember = "DATA"
			Line1.ColorMember = "COLOR"
 
			Dim stream As System.IO.MemoryStream =  New System.IO.MemoryStream() 
 
			tChart1.Export.Template.IncludeData = True
			tChart1.Export.Template.Save(stream)
 
			stream.Position = 0
			tChart2.Import.Template.Load(stream)
		End Sub

Code: Select all

		private void Form1_Load(object sender, EventArgs e)
		{
			Steema.TeeChart.Styles.Line line1 = new Steema.TeeChart.Styles.Line(tChart1.Chart);

			line1.FillSampleValues();
			line1.Add(); //This causes Series.Color being lost
			line1.Color = Color.Green;

			System.IO.MemoryStream stream = new System.IO.MemoryStream();

			tChart1.Export.Template.IncludeData = true;
			tChart1.Export.Template.Save(stream);

			stream.Position = 0;
			tChart2.Import.Template.Load(stream);
		}