Selection of series' points

[Chris.CHWU]

Greetings,

I want to select certain points of a sereis by draging a rectangle region.

I tried MouseDown and MouseUp events but just got the x-coordinates and y-coordinates in pixels (not relative to the values of x-axis and y-axis).

Do you have any suggestion about my requirement?

Thanks in advance.

[Yeray]

Hi Chris,

Here there is a topic where something similar was discussed.

[Chris.CHWU]

Greetings,

I want to highlight selected points after selection.

The way coming to my mind is to new a series of the selected points.
Then I could set the pointer style, color... any way I want to present the highlight.

But it seems not a good solution. Do you have any suggestion?

[Yeray]

Hi Chris,

Here you have an example using the same series, simply changing the color of the selected points:

Code: Select all

uses TeCanvas;

var Selected: array of bool;
    DrawRectangle: bool;
    StartX, StartY: Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.View3D := false;
  Chart1.AllowZoom := false;
  DrawRectangle := false;

  Chart1[0].FillSampleValues(25);

  SetLength(Selected, Chart1[0].Count);
end;

procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  DrawRectangle := true;
  StartX := X;
  StartY := Y;
end;

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if DrawRectangle then
  begin
    Chart1.Repaint;
    Chart1.Canvas.Brush.Style := bsClear;
    Chart1.Canvas.Rectangle(StartX, StartY, X, Y);
  end;
end;

procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var i: Integer;
begin
  for i:=0 to length(Selected)-1 do
  begin
    if PointInRect(Rect(StartX, StartY, X, Y), Chart1[0].CalcXPos(i), Chart1[0].CalcYPos(i)) then
      Selected[i] := true
    else
      Selected[i] := false;
  end;

  DrawRectangle := false;
  Chart1.Repaint;
end;

function TForm1.Series1GetPointerStyle(Sender: TChartSeries;
  ValueIndex: Integer): TSeriesPointerStyle;
begin
  Result := psRectangle;
  if Selected[ValueIndex] then
    Sender.ValueColor[ValueIndex] := clRed
  else
    Sender.ValueColor[ValueIndex] := Sender.Color;
end;

[Chris.CHWU]

Execuse me. Does this work in VB .NET version?

I try to implement it but encounter two problems:
1. The series.ValueColor[index] is a Read-Only property.
2. GetPointerStyle event is not found.

[Sandra]

Hello Cris,

1. The series.ValueColor[index] is a Read-Only property.

You can do a similar code with next example, please check that this code works fine in your application:

Code: Select all

Private Sub p_GetPointerStyle(ByVal series As Steema.TeeChart.Styles.CustomPoint, ByVal e As Steema.TeeChart.Styles.GetPointerStyleEventArgs)
        series(e.ValueIndex).Color = Color.Orange
    End Sub

2. GetPointerStyle event is not found.

If you want to created even in VB you coud do so two ways:

First: if you would to directly in run time(code), you needs to do next:

Code: Select all

AddHandler p.GetPointerStyle, AddressOf Me.p_GetPointerStyle

Second: if you would to design time, you have selected event

I hope will helps you,

Thanks,

[Chris.CHWU]

[quote="Sandra"]Hello Cris,

You can do a similar code with next example, please check that this code works fine in your application:

Code: Select all

Private Sub p_GetPointerStyle(ByVal series As Steema.TeeChart.Styles.CustomPoint, ByVal e As Steema.TeeChart.Styles.GetPointerStyleEventArgs)
        series(e.ValueIndex).Color = Color.Orange
    End Sub

Greetings,

Thanks. It worked in my program. But my series is of the type Steema.TeeChart.Styles.Line.
This way would change not only the pointer's color but also the line associated with the pointer.
Is there any way to avoid this? I just want the pointer's style changed.

Thanks for you help.

[Sandra]

Hello Cris,

Is there any way to avoid this? I just want the pointer's style changed.

Please check next code, that change only pointer's style, for example orange color.

Initialize: Add this two lines

Code: Select all

line.Pointer.Visible = true
AddHandler line.GetPointerStyle, AddressOf Me.line_GetPointerStyle

Line_GetPointerStyle Event:

Code: Select all

 Private Sub line_GetPointerStyle(ByVal series As Steema.TeeChart.Styles.CustomPoint, ByVal e As Steema.TeeChart.Styles.GetPointerStyleEventArgs)
        e.Color = Color.Orange
 End Sub

I hope that will helps

Thanks,

[Chris.CHWU]

Greetings,

I enabled the zooming tool after highlighting but met some problems.
The line associated with the highlighted points would be drawed outside the chart region.

Before zooming:

before zooming

3_.GIF (49.25 KiB) Viewed 19555 times

After zooming:

after zooming

4_.GIF (13.75 KiB) Viewed 19554 times

Do you have any iedas about this?

[Sandra]

Hello Cris,

Do you have any iedas about this?

I have commented two things:

First: Is possible that you have property tChart1.Aspect.ClipPoint= false, change this for true. I check with last version and works fine.

Second: If previous not works, please you could say what is your actualy version of TeeChartFor .Net?

If your version isn't laster, please update the version and tester code.If the problem still appears you can send a simple example because we can reproduce here. Now,you can attach your projecte direcly in the forums post.

Thanks.

[Chris.CHWU]

Hello Cris,

Is there any way to avoid this? I just want the pointer's style changed.

Please check next code, that change only pointer's style, for example orange color.

Initialize: Add this two lines

Code: Select all

line.Pointer.Visible = true
AddHandler line.GetPointerStyle, AddressOf Me.line_GetPointerStyle

Line_GetPointerStyle Event:

Code: Select all

 Private Sub line_GetPointerStyle(ByVal series As Steema.TeeChart.Styles.CustomPoint, ByVal e As Steema.TeeChart.Styles.GetPointerStyleEventArgs)
        e.Color = Color.Orange
 End Sub

I hope that will helps

Thanks,

Hi,

Coule I draw a circle on the outside of the pointer?

Please see the below image.

33.GIF (23.7 KiB) Viewed 19467 times

[Sandra]

Hello Chris,

I find two solutions for draw a circle, in your selection. The first solution is more simple than the second, but both make a circle around the pointer.

Firts solution: Using GetPointStyles

Code: Select all

bool[] Selected;
        Steema.TeeChart.Styles.Line line;
        bool drawrectangle;
        Rectangle rect;

        private void InitializeChart()
        {
            line = new Steema.TeeChart.Styles.Line (tChart1.Chart);
            line.FillSampleValues();
            line.Pointer.Visible = true;
            tChart1.Aspect.View3D = false;
            tChart1.Aspect.ClipPoints = true;
            drawrectangle = false;
            Selected = new bool[line.Count];
            tChart1.Panning.MouseButton = MouseButtons.Middle;
            tChart1.MouseMove += new MouseEventHandler(tChart1_MouseMove);
            tChart1.MouseUp += new MouseEventHandler(tChart1_MouseUp);
            tChart1.MouseDown += new MouseEventHandler(tChart1_MouseDown);
            tChart1.AfterDraw += new Steema.TeeChart.PaintChartEventHandler(tChart1_AfterDraw);
           line.GetPointerStyle += new Steema.TeeChart.Styles.CustomPoint.GetPointerStyleEventHandler(line_GetPointerStyle);
            tChart1.Draw();
            ResetCoords();
      
        }

        void tChart1_AfterDraw(object sender, Steema.TeeChart.Drawing.Graphics3D g)
        {
            if ((X0 != -1) && (Y0 != -1))
            {
                if (drawrectangle)
                {
                    g.Brush.Visible = false;
                    g.Pen.Color = Color.Black;
                    g.Rectangle(X0, Y0, X1, Y1);

                }
            }       
        }
 void tChart1_MouseDown(object sender, MouseEventArgs e)
        {
           
            if (e.Button == MouseButtons.Right)
            {
                drawrectangle = true;
                X0 = e.X;
                Y0 = e.Y;
            }
            
        }

        void tChart1_MouseUp(object sender, MouseEventArgs e)
        {
           if ((X0 != -1) && (Y0 != -1))
            {                
                rect = new Rectangle(X0, Y0, e.X -X0, e.Y-Y0);
                for (int i = 0; i < Selected.Length; i++)
                {
                    Point p = new Point(tChart1[0].CalcXPos(i), tChart1[0].CalcYPos(i));
                    if (rect.Contains(p))
                    {
                        Selected[i] = true;
                        
                    }
                    else
                    {
                        Selected[i] = false;
                    }
                  
                }

               ResetCoords();
            }
            drawrectangle = false;
            tChart1.Draw();

        }
        private int X0, Y0, X1, Y1;

        void tChart1_MouseMove(object sender, MouseEventArgs e)
        {

                    if (e.Button == MouseButtons.Right)
                    {
                        X1 = e.X;
                        Y1 = e.Y;
                    }
                tChart1.Invalidate();    

        }

        void line_GetPointerStyle(Steema.TeeChart.Styles.CustomPoint series, Steema.TeeChart.Styles.GetPointerStyleEventArgs e)
        {
            e.Style = Steema.TeeChart.Styles.PointerStyles.Circle;
            
            if (Selected[e.ValueIndex])
            {
                series.Pointer.Pen.Color = Color.Red;
                series.Pointer.Pen.Width = 2;
            }
            else
            {
                series.Pointer.Pen.Color = series.Color;
                series.Pointer.Pen.Width = 1;
            }
        }
        private void ResetCoords()
        {
            X0= -1;
            Y0= -1;
        }

Second solution: Using AfterDraw and drawing directly in canvas.

Code: Select all

    bool[] Selected;
        Steema.TeeChart.Styles.Line line;
        bool drawrectangle;
        Rectangle rect;

        private void InitializeChart()
        {
            line = new Steema.TeeChart.Styles.Line(tChart1.Chart);
            line.FillSampleValues();
            line.Pointer.Visible = true;
            tChart1.Aspect.View3D = false;
            tChart1.Aspect.ClipPoints = true;
            drawrectangle = false;
            Selected = new bool[line.Count];
            tChart1.Panning.MouseButton = MouseButtons.Middle;
            tChart1.MouseMove += new MouseEventHandler(tChart1_MouseMove);
            tChart1.MouseUp += new MouseEventHandler(tChart1_MouseUp);
            tChart1.MouseDown += new MouseEventHandler(tChart1_MouseDown);
            tChart1.AfterDraw += new Steema.TeeChart.PaintChartEventHandler(tChart1_AfterDraw);
           line.GetPointerStyle += new Steema.TeeChart.Styles.CustomPoint.GetPointerStyleEventHandler(line_GetPointerStyle);
            tChart1.Draw();
            ResetCoords();
      
        }

        void tChart1_AfterDraw(object sender, Steema.TeeChart.Drawing.Graphics3D g)
        {
            if ((X0 != -1) && (Y0 != -1))
            {
                if (drawrectangle)
                {
                    g.Brush.Visible = false;
                    g.Pen.Color = Color.Black;
                    g.Rectangle(X0, Y0, X1, Y1);

                }
            }
            for (int i = 0; i < Selected.Length; i++)
            {
                Point p = new Point(tChart1[0].CalcXPos(i), tChart1[0].CalcYPos(i));
                Rectangle rect1 = new Rectangle(p.X - line.Pointer.HorizSize - 5, p.Y - line.Pointer.VertSize - 5, (line.Pointer.HorizSize + 5) * 2, (line.Pointer.VertSize + 5) * 2);


                if (Selected[i])
                {
                    g.Brush.Visible = false;
                    g.Pen.Color = Color.Blue;
                    g.Ellipse(rect1);
                }

            }

        }
   void tChart1_MouseDown(object sender, MouseEventArgs e)
        {
           
            if (e.Button == MouseButtons.Right)
            {
                drawrectangle = true;
                X0 = e.X;
                Y0 = e.Y;
            }
            
        }

        void tChart1_MouseUp(object sender, MouseEventArgs e)
        {
           if ((X0 != -1) && (Y0 != -1))
            {                
                rect = new Rectangle(X0, Y0, e.X -X0, e.Y-Y0);
                for (int i = 0; i < Selected.Length; i++)
                {
                    Point p = new Point(tChart1[0].CalcXPos(i), tChart1[0].CalcYPos(i));
                    if (rect.Contains(p))
                    {
                        Selected[i] = true;
                        
                    }
                    else
                    {
                        Selected[i] = false;
                    }
                  
                }

               ResetCoords();
            }
            drawrectangle = false;
            tChart1.Draw();

        }
        private int X0, Y0, X1, Y1;

        void tChart1_MouseMove(object sender, MouseEventArgs e)
        {

                    if (e.Button == MouseButtons.Right)
                    {
                        X1 = e.X;
                        Y1 = e.Y;
                    }
                tChart1.Invalidate();    

        }

        void line_GetPointerStyle(Steema.TeeChart.Styles.CustomPoint series, Steema.TeeChart.Styles.GetPointerStyleEventArgs e)
        {
            e.Style = Steema.TeeChart.Styles.PointerStyles.Circle;
            
            if (Selected[e.ValueIndex])
            {
                e.Color = Color.Red;

            }     
        }
        private void ResetCoords()
        {
            X0= -1;
            Y0= -1;
        }

Please, check that previous codes works correctly in your application.

I hope will helps.

Thanks,

[wwp3321]

Thanks！