Error with drawing TSeriesBandTool
Posted: Mon Apr 20, 2009 8:32 am
I use version 8.04 for Delphi 7.
Error with drawing TSeriesBandTool, when property "Stairs" True.
How it can be solved?
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;