Steema Central

Posted: **Thu Jun 30, 2005 8:49 am**

I have a vertical axis with labels.
Now, I need to add a custom label, showing the last value of the series.
If I add the new custom label with this code

lastValue := mySeries.YValues[k];

with mySeries.GetVertAxis.Items.Add(lastValue) do
begin
Transparent := False;
Transparency := 50;
Color := clBlue;
end;

all previous labels become invisible.
How can I add a custom label without hiding all other labels?

Thanks
FM

Posted: **Thu Jun 30, 2005 10:51 am**

Hi FM,

To achieve what you request you should use Canvas.TextOut method in the AfterDraw event:

Code: Select all

procedure TForm1.Chart1AfterDraw(Sender: TObject);
begin
  Chart1.Canvas.Font.Color:=clRed;
  Chart1.Canvas.TextOut(Chart1.Axes.Left.PosAxis-25,
                        Series1.CalcYPos(Series1.LastValueIndex),
                        FloatToStr(Series1.YValue[Series1.LastValueIndex]));
end;

Posted: **Fri Jul 01, 2005 7:59 am**

Great! Exactly what I need.

Many thanks, Narcìs.

Best Regards

FM

Steema Central

Custom labels and axis labels

Custom labels and axis labels