Error with drawing TSeriesBandTool

[BoikovSoft]

I use version 8.04 for Delphi 7.
Error with drawing TSeriesBandTool, when property "Stairs" True.

Code: Select all

procedure TForm1.Bug1Click(Sender: TObject);
Var
  CH :TChart;
  SBT: TSeriesBandTool;
begin
  CH:=TChart.Create(self);
  ch.Parent:=self;
  ch.View3D:=false;
  ch.Legend.Visible:=false;
  ch.AddSeries(THorizLineSeries.Create(ch));
  ch.AddSeries(THorizLineSeries.Create(ch));
  ch.Series[0].FillSampleValues();
  ch.Series[1].FillSampleValues();
  SBT:=TSeriesBandTool.Create(Ch);
  sbt.Series:=ch.Series[0];
  sbt.Series2:=ch.Series[1];
  sbt.Gradient.Visible := True;
  THorizLineSeries(ch.Series[0]).Stairs:=true;  // <- TSeriesBandTool it is drawn without property "Stairs"
  ch.Tools.Add(SBT);
end;

How it can be solved?

[Yeray]

Hi

Yes, this is a known bug already in the wish list (TV52013141). I've incremented the priority to be fixed as soon as possible.