Mark tips Style
Posted: Wed Jun 18, 2008 8:15 am
Is there a way to display in mark tips Series name and X.Y values??????
Thanks
Alex
Thanks
Alex
Steema Software - Customer Support Forums
http://493266.hkjq7.group/support/
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.Marks.Visible := True;
end;
procedure TForm1.Series1GetMarkText(Sender: TChartSeries;
ValueIndex: Integer; var MarkText: String);
begin
MarkText := Sender.Name + ' X: ' + floattostr(Sender.XValues.Items[ValueIndex]) +
' Y: ' + floattostr(Sender.YValues.Items[ValueIndex]);
end;
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.Marks.Visible := False;
end;
procedure TForm1.Series1GetMarkText(Sender: TChartSeries;
ValueIndex: Integer; var MarkText: String);
begin
MarkText := Sender.Name + ' X: ' + FloatToStr(Sender.XValues.Items[ValueIndex]) +
' Y: ' + FloatToStr(Sender.YValues.Items[ValueIndex]);
end;