I have a question concerning axis labels : is it possible to keep default axis labels when adding a custom one with the routine
Code: Select all
NewAxisItem := Chart.DepthAxis.Items.Add(0.0)
Franck
Code: Select all
NewAxisItem := Chart.DepthAxis.Items.Add(0.0)
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
begin
Chart1.AddSeries(TSurfaceSeries.Create(self));
Chart1[0].FillSampleValues(10);
Chart1.Chart3DPercent := 100;
Chart1.Axes.Depth.Visible := true;
Chart1.Draw;
Chart1.Axes.Depth.Items.Add(5.5);
end;
Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) | |
Please read our Bug Fixing Policy |
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
Chart1.AddSeries(TLineSeries.Create(self));
Chart1[0].AddArray([200,0,123,300,260,-100,650,400]);
Chart1.Draw;
AddCustomLabels;
end;
Procedure TForm1.AddCustomLabels;
begin
with Chart1.Axes.Left do
begin
// Items.Clear; // remove all custom labels
// add custom labels
Items.Add(123,'Hello').Font.Size:=16;
Items.Add(466,'Good'#13'Bye').Transparent:=False;
Items.Add(300);
with Items.Add(-100) do
begin
Transparent:=False;
Transparency:=50;
Color:=clBlue;
end;
end;
end;
Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) | |
Please read our Bug Fixing Policy |
Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) | |
Please read our Bug Fixing Policy |