Steema Software - Customer Support Forums
http://216.92.101.67/support/
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
begin
Chart1.Title.CustomPosition:=true;
Chart1.Title.Left:=100;
Chart1.Title.Top:=50;
end;Oups, I misread that.cssesuc wrote:thanks for the prompt reply, but my question was about the position of the axis label, not the chart title.
I'm afraid that's not possible. Instead, you should use an annotation tool and set its position manually.cssesuc wrote:I need to have:
chart1.BottomAxis.Title.Caption := 'bla';
I want to change the position of this label. How can I do this?
Code: Select all
uses Series, TeeTools;
var annot1: TAnnotationTool;
procedure TForm1.FormCreate(Sender: TObject);
begin
Chart1.AddSeries(TBarSeries).FillSampleValues;
annot1:=Chart1.Tools.Add(TAnnotationTool) as TAnnotationTool;
with annot1 do
begin
Text:='This is a bottom axis title with offset';
Shape.Transparent:=true;
end;
end;
procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
var xOffset, tmpWidth, tmpHeight: Integer;
begin
xOffset:=10;
annot1.Shape.CustomPosition:=true;
tmpWidth:=annot1.Width;
tmpHeight:=annot1.Height;
Chart1.Canvas.AssignFont(annot1.Shape.Font);
if tmpWidth=0 then
tmpWidth:=Chart1.Canvas.TextWidth(annot1.Text);
if tmpHeight=0 then
tmpHeight:=Chart1.Canvas.TextHeight(annot1.Text);
annot1.Left:=Chart1.Axes.Bottom.IStartPos + Chart1.Axes.Bottom.IAxisSize div 2 - tmpWidth div 2 + xOffset;
annot1.Top:=Chart1.Height - tmpHeight - 10;
end;