Frequently Asked Component Specific Questions
Options |
|
Display all FAQ items |
Displaying items 1 to 1 of 1, page 1 of 1
<< previous next >>
TMS VCL ChartAdd custom X-axis text programmatically
With the latest version of the TAdvChartView component it is possible to add custom X-Axis text by a new override of the AddSinglePoint method that has a parameter XAxisText.
The sample code snippet here shows how to add a custom numbering as X-axis label text rotated by 40°.
procedure TForm.FormCreate(Sender: TObject);
var
i: integer;
xval: Double;
begin
with AdvChartView1.Panes[0] do
begin
//Set range
Range.RangeFrom := 0;
Range.RangeTo := 100;
Range.MaximumScrollRange := 100;
Range.MinimumScrollRange := 0;
//Set X-Axis size
XAxis.Size := 60;
//Add points with custom X-Axis text
with Series[0] do
begin
ChartType := ctBar;
AutoRange := arEnabledZeroBased;
Color := clBlue;
ColorTo := clSilver;
for I := 0 to 100 do
begin
xval := 144 + (I * 0.2);
AddSinglePoint(RandomRange(20, 100), FloatToStr(xval));
end;
//Rotate text
XAxis.TextBottom.Angle := 40;
//Enabled tickmarks
XAxis.TickMarkColor := clBlack;
end;
end;