[SOLVED]SIGSEVG in 'tatools.pas' at line 772;when creating a chart toolset dynam

[CM630]

My code

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var
  myChart: TChart;
  ctMain: TChartToolset;
  ctMainPanUD:  TPanDragTool;
begin
  myChart:=  TChart.Create (Form1);
  myChart.Visible:=True;
  myChart.Parent:= Form1;
  ctMain:= TChartToolset.Create (myChart);
  ctMainPanUD:= TPanDragTool.Create(ctMain);
  ctMainPanUD.Directions:=[pdUp,pdDown];
  ctMainPanUD.Shift:=[ssAlt,ssLeft];
  ctMainPanUD.Enabled:=True;
  ctMain.Tools.Add (ctMainPanUD);
  myChart.Toolset:=ctMain;
end; 


crashes the app (sigsegv) with message

In file 'tatools.pas' at line 772;
Toolset.FIsHandled := true; 

The TATOOLS code is

Code: [Select]

procedure TChartTool.Handled;
begin
  Toolset.FIsHandled := true;
end;   
When the chart, toolset  and tools are created statically everything is fine.

[wp]

There had been similar discussions in the forum: Don't use TToolset.Add to add tools, but set the tool's property Toolset instead. The property setter calls the Add, plus sets the "Toolset" member of the new tool, and this avoids the crash:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var
  myChart: TChart;
  ctMain: TChartToolset;
  ctMainPanUD:  TPanDragTool;
begin
  myChart:=  TChart.Create (Form1);
  myChart.Visible:=True;
  myChart.Parent:= Form1;
  ctMain:= TChartToolset.Create (myChart);
  ctMainPanUD:= TPanDragTool.Create(ctMain);
  ctMainPanUD.Directions:=[pdUp,pdDown];
  ctMainPanUD.Shift:=[ssAlt,ssLeft];
  ctMainPanUD.Enabled:=True;
  //ctMain.Tools.Add (ctMainPanUD);  // wrong
  ctMainPanUD.Toolset := ctMain;     // correct
  myChart.Toolset:=ctMain;
end;