Exception moving mouse in .23

[Ed Dressel]

I recently upgraded to .23 and found an exception that I didn't get before:

---------------------------
Paycheck - TRAK Created: 5/2/2018 8:30:19 AM
---------------------------
Range check error.
---------------------------
OK
---------------------------

Here is the LOC in TeEngine.VCL:

Code: Select all

Function TChartSeries.GetMarkValue(ValueIndex:Integer):Double;
begin
  result:=MandatoryValueList.Value[ValueIndex];
end;

ValueIndex is -1.

My code doesn't tie into any mouse movement events. Call stack is below. (Before posting this I checked that all series have the same .Count for values).

Is this something you are aware of? Creating a demo won't be easy.

Ed Dressel

:74603f12 KERNELBASE.RaiseException + 0x62
VCLTee.TeEngine.TChartSeries.GetMarkValue(4227075)
VCLTee.TeEngine.TChartSeries.GetMarkValue(-1)
VCLTee.TeEngine.TChartSeries.GetOriginValue(-1)
VCLTee.Series.TCustomSeries.PointOrigin(-1,False)
VCLTee.Series.TCustomSeries.CalcStackedPos(-1,0)
VCLTee.Series.TCustomSeries.GetOriginPos(-1)
VCLTee.Series.TAreaSeries.GetOriginPos(-1)
VCLTee.Series.PointInArea(0)
VCLTee.Series.ClickedPoint(0)
VCLTee.Series.TCustomSeries.Clicked(359,506)
VCLTee.TeEngine.TChartSeries.CheckMouse(359,506)
VCLTee.TeEngine.TCustomAxisPanel.CheckMouseSeries(359,506)
VCLTee.Chart.TCustomChart.MouseMove([],359,506)
:0056ea0b TControl.WMMouseMove + $83
:00572c1e TWinControl.WndProc + $5EE
VCLTee.TeeProcs.TCustomTeePanel.WndProc((512, 0, 33161575, 0, 0, 0, (), 359, 506, (), 0, 0, ()))
:0057223b TWinControl.MainWndProc + $2F
:004e55d2 StdWndProc + $16
:7428e0bb user32.AddClipboardFormatListener + 0x4b
:74298849 ; C:\WINDOWS\SysWOW64\user32.dll
:7429b145 ; C:\WINDOWS\SysWOW64\user32.dll
:742890dc ; C:\WINDOWS\SysWOW64\user32.dll
:74288c20 user32.DispatchMessageW + 0x10

[Ed Dressel]

FWIW: this occurs in .24 as well, but when I reverted to .22 the problem went away.

[Yeray]

Hello,

It doesn't give any error for me, but I see when it tries to call GetMarkValue(-1).
Could you please try to modify the PointInArea(Index:Integer) nested function from Series.pas? You should substitute the 2 GetOriginPos(Index-1) occurrences for OldBottomPos.
From this:

Code: Select all

      tmp[3]:=TeePoint(OldXPos,GetOriginPos(Index-1));

To this:

Code: Select all

      tmp[3]:=TeePoint(OldXPos,OldBottomPos);

And from this:

Code: Select all

      tmp[3]:=TeePoint(GetOriginPos(Index-1),OldYPos);

To this:

Code: Select all

      tmp[3]:=TeePoint(OldBottomPos,OldYPos);

Any feedback will be appreciated.

[Ed Dressel]

Thank you. Initial testing and it is working fine.

[Yeray]

Hello Ed,

Thanks for confirming. I've created the ticket #2034 and already closed it.