TChart alignment of multiple charts

TeeChart VCL for Borland/CodeGear/Embarcadero RAD Studio, Delphi and C++ Builder.
Post Reply
darcy
Newbie
Newbie
Posts: 16
Joined: Mon Sep 14, 2009 12:00 am

TChart alignment of multiple charts

Post by darcy » Wed Dec 23, 2009 11:44 am

HI,
I have multiple charts positioned above each other and need to align both the left and right axes i.e. fix the width of all charts regardless of data present. Some charts have multiple axes i.e. labels on right, while others are simple charts with labels/ticks only on left axis.
The bottom axes is the same for all charts, TDateTime, and I want to be able to show a fixed time period e.g. 72hrs, regardless of whether there is data for that time. I have enclosed an image of the existing. To sum up:

1) How do I fix the widths for multiple charts
2) How do I fix the bottom axis data to display a fixed time period regardless of data present

I have searched for similar articles but could not find a great match. Please feel free to direct me to any existing articles if present.

Thanks & Merry Christmas,
D'Arcy
Attachments
Graph.JPG
Graph.JPG (129.1 KiB) Viewed 5881 times

Yeray
Site Admin
Site Admin
Posts: 8614
Joined: Tue Dec 05, 2006 12:00 am
Location: Girona, Catalonia
Contact:

Re: TChart alignment of multiple charts

Post by Yeray » Wed Dec 23, 2009 5:12 pm

Hi darcy,

1. Take a look at the following example that shows how you could set the margins to have two charts aligned:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  Series1.FillSampleValues(100);
  Series2.FillSampleValues(200);
  Series1.VertAxis:=aBothVertAxis;

  LeftAlignCharts([Chart1,Chart2],100,600);

  Chart1.Draw;
  Chart2.Draw;

  RightAlignCharts([Chart1,Chart2],100);
end;

procedure TForm1.LeftAlignCharts(Const Charts: Array of TCustomChart; aLeft: Integer; aWidth: Integer);
var i: Integer;
begin
  for i := Low(Charts) to High(Charts) do
  With Charts[i] do
  begin
    Left := aLeft;
    MarginLeft := 0;
    Width := aWidth;
    Axes.Left.TitleSize := 15;
    Axes.Left.LabelsSize := 30;
    Axes.Left.LabelsAlign := alDefault;
  end;
end;

procedure TForm1.RightAlignCharts(Const Charts: Array of TCustomChart; aRight: Integer);
var i: Integer;
begin
  for i:=Low(Charts) to High(Charts) do
  With Charts[i] do
  begin
    MarginUnits:=muPixels;
    Legend.PositionUnits:=muPixels;
    Legend.Left:=530;
  end;

  if Charts[0].Axes.Bottom.IAxisSize < Charts[1].Axes.Bottom.IAxisSize then
  begin
    Charts[0].MarginRight:=aRight;
    Charts[1].MarginRight:=aRight+Charts[0].Axes.Right.MaxLabelsWidth+Charts[0].Axes.Right.TickLength;
  end
  else
  begin
    Charts[1].MarginRight:=aRight;
    Charts[0].MarginRight:=aRight+Charts[1].Axes.Right.MaxLabelsWidth+Charts[1].Axes.Right.TickLength;
  end;
end;
2. Have you tried with the axis Increment property?

Code: Select all

Chart2.Axes.Bottom.Increment:=50;
Best Regards,
ImageYeray Alonso
Development & Support
Steema Software
Av. Montilivi 33, 17003 Girona, Catalonia (SP)
Image Image Image Image Image Image Image Please read our Bug Fixing Policy

darcy
Newbie
Newbie
Posts: 16
Joined: Mon Sep 14, 2009 12:00 am

Re: TChart alignment of multiple charts

Post by darcy » Wed Jan 13, 2010 12:24 pm

Hi Yeray,
Thanks for the reply.
1) I have been able to force the charts to be aligned correctly using CustomChartRect = true and defining the rect size relevant to the parent control. RESOLVED
2) I still am having issues forcing the charts to be fixed to a set time period for the x-axis e.g. 72hrs, despite the presence of data. The increment works fine but will not plot markers along the x-axis after the last data value. What I mean is if I add a dummy data point at the very last X-axis point it will behave as I want. I want the time increments to increase to 72hrs despite the presence of data.

I hope the above makes sense.

Thanks
D'Arcy.

Yeray
Site Admin
Site Admin
Posts: 8614
Joined: Tue Dec 05, 2006 12:00 am
Location: Girona, Catalonia
Contact:

Re: TChart alignment of multiple charts

Post by Yeray » Fri Jan 15, 2010 12:19 pm

Hi D'Arcy,

Then I think that the only solution would be using custom labels like in the demo at All features/Welcome !/Axes/Labels/Custom Labels. You can clear all the labels from the bottom axis and add the labels you wish and with the text you want.
Best Regards,
ImageYeray Alonso
Development & Support
Steema Software
Av. Montilivi 33, 17003 Girona, Catalonia (SP)
Image Image Image Image Image Image Image Please read our Bug Fixing Policy

Mark
Newbie
Newbie
Posts: 5
Joined: Wed May 18, 2011 12:00 am

Re: TChart alignment of multiple charts

Post by Mark » Fri May 20, 2011 12:15 am

I'm trying to do a similar thing. I have multiple charts which I want to align so the data along the x-axis is in the same position. I can set the left side no problem but because the right axis width varies I can't get an exact alignment.

I tried the above code but they don't seem to address this issue unless I missed something.

Is there any way of doing this?

Thanks
Mark
Chart1.jpg
Chart1.jpg (104.78 KiB) Viewed 5414 times

Mark
Newbie
Newbie
Posts: 5
Joined: Wed May 18, 2011 12:00 am

Re: TChart alignment of multiple charts

Post by Mark » Fri May 20, 2011 2:02 am

I think I sorted it.

At design time it's down to setting the Axes/Label/Style size. In code you set the LabelsSize property.

By the way I'm really like the product. It's so flexible. Just so many features to learn! :D

Mark

Yeray
Site Admin
Site Admin
Posts: 8614
Joined: Tue Dec 05, 2006 12:00 am
Location: Girona, Catalonia
Contact:

Re: TChart alignment of multiple charts

Post by Yeray » Fri May 20, 2011 1:33 pm

Hello Mark,

Have in mind that some properties (like axis MaxLabelsWidth) need the chart to be drawn to give a correct value.
Take a look at the tutorials, demos and the support forums, and don't hesitate to let us know any doubt you have with the component! :wink:
Best Regards,
ImageYeray Alonso
Development & Support
Steema Software
Av. Montilivi 33, 17003 Girona, Catalonia (SP)
Image Image Image Image Image Image Image Please read our Bug Fixing Policy

Post Reply