Steema Central

Code: Select all

		public Form1()
		{

			InitializeComponent();
			InitializeChart();
		}

		private Line line;
		private void InitializeChart()
		{
			line = new Line(tChart1.Chart);
			line.XValues.DateTime = true;

			tChart1.Axes.Bottom.Labels.Angle = 90;
			tChart1.Axes.Bottom.Increment = Steema.TeeChart.Utils.GetDateTimeStep(Steema.TeeChart.DateTimeSteps.OneHour);
			tChart1.Axes.Bottom.Labels.DateTimeFormat = "yyyy/MM/dd hh:mm:ss";

			DateTime dateTime = DateTime.Now;
			Random rnd = new Random();

			for (int i = 0; i < 400; i++)
			{
				line.Add(dateTime, rnd.Next(1000));
				dateTime = dateTime.AddMinutes(15);
			}

			tChart1.Axes.Bottom.SetMinMax(line.XValues[175], line.XValues[225]);

			CursorTool cursorTool = new CursorTool(tChart1.Chart);
			cursorTool.Series = line;
			cursorTool.FollowMouse = true;
			cursorTool.Pen.Color = System.Drawing.Color.Red;
			cursorTool.Style = CursorToolStyles.Vertical;
			cursorTool.Change += CursorTool_Change;
		}

		private void CursorTool_Change(object sender, CursorChangeEventArgs e)
		{
			int start = tChart1.Axes.Left.IStartPos;
			int end = tChart1.Axes.Left.IEndPos;
			int valueIndex;

			for (int i = start; i < end; i++)
			{
				valueIndex = line.Clicked(e.x, i);
				if (valueIndex > -1)
				{
					tChart1.Header.Text = "YValue: " + line.YValues[valueIndex];
					break;
				}
			}
		}

		private void DoScrollBottomAxis(double offset, bool positive)
		{
			double max = tChart1.Axes.Bottom.Maximum;
			double min = tChart1.Axes.Bottom.Minimum;
			if (positive)
				tChart1.Axes.Bottom.SetMinMax(min + offset, max + offset);
			else
				tChart1.Axes.Bottom.SetMinMax(min - offset, max - offset);

		}

		private void bLeft_Click(object sender, EventArgs e)
		{
			DoScrollBottomAxis(Steema.TeeChart.Utils.GetDateTimeStep(Steema.TeeChart.DateTimeSteps.OneHour), false);
		}

		private void bRight_Click(object sender, EventArgs e)
		{
			DoScrollBottomAxis(Steema.TeeChart.Utils.GetDateTimeStep(Steema.TeeChart.DateTimeSteps.OneHour), true);
		}

Code: Select all

	Public Sub New()

		' This call is required by the designer.
		InitializeComponent()

		' Add any initialization after the InitializeComponent() call.

		InitializeChart()

	End Sub

	Private Sub bLeft_Click(sender As Object, e As EventArgs) Handles bLeft.Click
		DoScrollBottomAxis(Steema.TeeChart.Utils.GetDateTimeStep(Steema.TeeChart.DateTimeSteps.OneHour), False)
	End Sub

	Private Sub bRight_Click(sender As Object, e As EventArgs) Handles bRight.Click
		DoScrollBottomAxis(Steema.TeeChart.Utils.GetDateTimeStep(Steema.TeeChart.DateTimeSteps.OneHour), True)
	End Sub

	Dim line1 As Line

	Private Sub DoScrollBottomAxis(offset As Double, positive As Boolean)
		Dim max As Double = TChart1.Axes.Bottom.Maximum
		Dim min As Double = TChart1.Axes.Bottom.Minimum
		If positive Then
			TChart1.Axes.Bottom.SetMinMax(min + offset, max + offset)
		Else
			TChart1.Axes.Bottom.SetMinMax(min - offset, max - offset)
		End If
	End Sub

	Private Sub InitializeChart()
		line1 = New Line(TChart1.Chart)
		line1.XValues.DateTime = True

		TChart1.Axes.Bottom.Labels.Angle = 90
		TChart1.Axes.Bottom.Increment = Steema.TeeChart.Utils.GetDateTimeStep(DateTimeSteps.OneHour)
		TChart1.Axes.Bottom.Labels.DateTimeFormat = "yyyy/MM/dd hh:mm:ss"

		Dim dateTime As DateTime = DateTime.Now
		Dim rnd As Random = New Random()

		For i = 0 To 400
			line1.Add(dateTime, rnd.Next(1000))
			dateTime = dateTime.AddMinutes(15)
		Next

		TChart1.Axes.Bottom.SetMinMax(line1.XValues.Item(175), line1.XValues.Item(225))

		Dim cursorTool As CursorTool = New CursorTool(TChart1.Chart)
		cursorTool.Series = line1
		cursorTool.FollowMouse = True
		cursorTool.Pen.Color = Color.Red
		cursorTool.Style = CursorToolStyles.Vertical
		AddHandler cursorTool.Change, AddressOf CursorTool_Change


	End Sub

	Private Sub CursorTool_Change(sender As Object, e As CursorChangeEventArgs)
		Dim start As Integer = TChart1.Axes.Left.IStartPos
		Dim ended As Integer = TChart1.Axes.Left.IEndPos
		Dim valueIndex As Integer

		Try
			For i = start To ended
				valueIndex = line1.Clicked(e.x, i)
				If valueIndex > -1 Then
					TChart1.Header.Text = "YValue: " + line1.YValues.Item(valueIndex).ToString()
					Exit Try
				End If
			Next
		Finally
		End Try
	End Sub