Steema Central

Code: Select all

TChart.Graphics3D.UseBuffer=False

Code: Select all

  public partial class Form3 : Form
  {
    public Form3()
    {
      InitializeComponent();
      InitializeChart();
    }

    private void InitializeChart()
    {
      tChart1.Aspect.View3D = false;
      tChart1.Series.Add(line1 = new Line());
      TimerCallback timerDelegate = new TimerCallback(AddToSeriesAsyncTimer);
      timer = new System.Threading.Timer(timerDelegate);
    }

    private delegate void AddAsyncDelegate();
    private System.Threading.Timer timer;

    private void AddToSeries() 
    {
      AddAsyncDelegate caller = new AddAsyncDelegate(AddToSeriesAsync);
      IAsyncResult result = tChart1.BeginInvoke(caller);
      tChart1.EndInvoke(result);
    }


    private Steema.TeeChart.Styles.Line line1;

    private void AddToSeriesAsyncTimer(Object stateInfo)
    {
      if (line1.MaxYValue() < 1000)
      {
        tChart1.Chart.Graphics3D.BackBuffer = null;
        line1.Add(line1.MaxXValue() + 1, line1.MaxYValue() + 1);
      }
    }

    private void AddToSeriesAsync()
    {
      timer.Change(0, 500);
    }

    private void button1_Click(object sender, EventArgs e)
    {
      AddToSeries();
    }

Code: Select all

Public Class x
    Inherits Steema.TeeChart.TChart
    Private m_Lock As New Threading.ReaderWriterLock()

    Public ReadOnly Property LockObject() As Threading.ReaderWriterLock
        Get
            Return m_Lock
        End Get
    End Property

    Protected Overrides Sub OnPaint(ByVal pe As System.Windows.Forms.PaintEventArgs)
        m_Lock.AcquireWriterLock(100000000)
        MyBase.OnPaint(pe)
        m_Lock.ReleaseWriterLock()
    End Sub
End Class

Code: Select all

    Private Sub AddToSeriesAsync()
        While field.MaxYValue < 100000

            TChart.LockObject.AcquireWriterLock(1000000)
            TChart.Chart.Graphics3D.BackBuffer = Nothing
            TChart.LockObject.ReleaseWriterLock()

            field.Add(field.MaxXValue + 1, field.MaxYValue, field.MaxYValue - 1, field.MaxYValue + 2, field.MaxYValue + 1)
        End While
    End Sub