TCountourSeries.OnClick has an error

[WilliEbert]

Hello,
we use TeeChartPro 2010 version 11004. The OnClick event of a TContourSeries does not work like expected. If we click on a TContourSeries in a Chart (3D is false) this procedure shows not allays values:

procedure TGraphForm.ContourSeries2Click(Sender: TChartSeries;
ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var xk,yk, zk : Extended;
begin
xk := ContourSeries2.XValues [ ValueIndex ];
yk := ContourSeries2.YValues [ ValueIndex ];
zk := ContourSeries2.ZValues [ ValueIndex ];


StatusBar1.Panels[1].text := 'x = '+FloatToStr ( xk );
StatusBar1.Panels[2].text := 'y = '+FloatToStr ( yk );
StatusBar1.Panels[3].text := 'z = '+FloatToStr ( zk );
end;

There was an error in TLineSeries.OnCick in TeeChart 2010. too. Can it be there is another in TContourSeries.OnClick?

Your sincerely

Willi Ebert

[Yeray]

Hi Willi,

I'm trying to reproduce it with the following code but I can't. Could you please try it and tell us if it works as you expected?
Could you please modify it so we can reproduce the problem here?

Code: Select all

uses TeeSurfa;

var Series1: TColorGridSeries;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.View3D:=false;
  Chart1.Legend.Visible:=false;

  Series1:=Chart1.AddSeries(TColorGridSeries) as TColorGridSeries;
  Series1.FillSampleValues();
  Series1.Marks.Visible:=true;
  Series1.OnClick:=Series1Click;
end;

procedure TForm1.Series1Click(Sender: TChartSeries; ValueIndex: Integer;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var xk,yk, zk : Extended;
begin
  xk:=Series1.XValues[ValueIndex];
  yk:=Series1.YValues[ValueIndex];
  zk:=Series1.ZValues[ValueIndex];

  Chart1.Title.Text.Text:='(X: ' + FloatToStr(xk) + ', Y: ' + FormatFloat('#0.000',yk) + ', Z: ' + FloatToStr(zk) + ')';
end;

[WilliEbert]

Hello Yeray,
your sample didn't work, too. I will send you this sample without the .exe, because your limit of file size is to little.

Your sincerely

Willi

[Yeray]

Hi Willi,

I see in your project's dfm that you've set the Left Axis to be non automatic. Adding the following line to your project, it seems to work as expected:

Code: Select all

Chart1.Axes.Left.Automatic:=true;

[WilliEbert]

Hello Yeray,
with TColorGridSeries the error is gone. But my problem is with TContourSeries. Only about every fourth click changed the title like expected. I think every click in the Contour should change the tile.I will send you the changed source

Your sincerely

Willi

[Yeray]

Hi Willi,

Excuse me, it seems I read TColorGridSeries where you wrote TContourSeries.

Only about every fourth click changed the title like expected. I think every click in the Contour should change the tile.I will send you the changed source

Every time I click on a line, the title seems to be updated. Of course, if you click several times in the same level line, you won't see the update in the title.
You can check it adding a counter.

There can also be a problem with the precision. You can try making the lines wider.

Here it is the code modified:

Code: Select all

uses TeeSurfa;

var Series1: TContourSeries;
    n: Integer;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Chart1.View3D:=false;
  Chart1.Legend.Visible:=false;

  Series1:=Chart1.AddSeries(TContourSeries) as TContourSeries;
  Series1.FillSampleValues();
  Series1.Marks.Visible:=true;
  Series1.OnClick:=Series1Click;

  Series1.Pen.Width:=5;
  n:=0;
end;

procedure TForm2.Series1Click(Sender: TChartSeries; ValueIndex: Integer;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var xk,yk, zk : Extended;
    SegmentIndex, PointIndex: Integer;
begin
  xk:=Series1.XValues[ValueIndex];
  yk:=Series1.YValues[ValueIndex];
  zk:=Series1.ZValues[ValueIndex];

  Inc(n);
  Chart1.Title.Text.Text:='n: ' + IntToStr(n) + ' (X: ' + FloatToStr(xk) + ', Y: ' + FormatFloat('#0.000',yk) + ', Z: ' + FloatToStr(zk) + ')';
  Chart1.Title.Text.Text:=Chart1.Title.Text.Text + ' Level UpToValue: ' + FormatFloat('#0.000', Series1.Levels[Series1.Levels.Clicked(X, Y, SegmentIndex, PointIndex)].UpToValue);
end;

Note that I've also used TContourLevels.Clicked function to get the Level UpToValue.

[WilliEbert]

Hello Yeray,
i see the problem yet. Because in our Charts are about 100000 Points i can't make the lines thicker and i can't make the marks visible. And i was wrong, i though the click event is even generated if i click between the contour lines. Our customer wants the values of the of a specific sample chart (see picture) . So it is very hard to point to a single contour line to get the value. We need a event that give us the series value even our customer clicked between two contour lines. Is this possible?

Your sincerely

Willi

[Yeray]

Hi Willi,

In that case I'm afraid that the TContourSeries.Clicked method can't retrieve if the space between the levels because it is not part of the Series itself.
However, have you tried with a TIsoSurfaceSeries?