Steema Central

Code: Select all

for iC := 0 to slReadingTypes.Count - 1 do
   begin
      csSeries := TLineSeries.Create(self);
      csSeries.Marks.ArrowLength := 1;
      csSeries.Pointer.Style := psCircle;
      csSeries.Pointer.Visible := true;
      csSeries.Pointer.Size := 2;
      csSeries.XValues.DateTime := true;
      csSeries.Title := slReadingTypes[iC];

      fraGTGraphNew.chtGraph.AddSeries(csSeries);

      ldsGraph.Filtered := True;
      ldsGraph.Filter := 'READTYPE = ''' + slReadingTypes[iC] + '''';
      ldsGraph.First;

      while not ldsGraph.eof do
      begin
         csSeries.AddXY(ldsGraph['TESTDATE'],ldsGraph['READING']);
         ldsGraph.Next;
      end;

   end;

Code: Select all

uses Series;

procedure TForm1.FormCreate(Sender: TObject);
var point1: TPointSeries;
begin
  Chart1.View3D:=false;

  point1:=Chart1.AddSeries(TPointSeries) as TPointSeries;
  point1.XValues.DateTime:=true;
  point1.FillSampleValues(4);

  Chart1.Axes.Bottom.LabelStyle:=talText;
end;

procedure TForm1.Chart1GetAxisLabel(Sender: TChartAxis;
  Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
begin
  if ((Sender = Chart1.Axes.Bottom) and (Sender.LabelStyle = talText)) then
  begin
    if ((Series <> nil) and (ValueIndex > -1)) then
    begin
      if (Sender.IsDateTime) then
        LabelText:=FormatDateTime(Sender.DateTimeFormat, Series.XValues[ValueIndex])
      else
        LabelText:=FloatToStr(Series.XValues[ValueIndex]);
    end;
  end;
end;

Code: Select all

  Chart1.Axes.Bottom.LabelStyle:=talText;
  Chart1.Axes.Bottom.Title.Caption:='My bottom axis title';
  Chart1.Legend.Alignment:=laBottom;

Code: Select all

procedure miChartInit(Graph: TDBChart;
   ReadLabelFlag: boolean;
   {FilterReadingLabel: string;}
   const XAxisLabelPosition: String {= 'horizontal'};
   const LeftAxisMaxOffset: integer {= 5};
   const RightAxisMaxOffset: integer {= 5};
   const BottomAxisMinOffset: integer {= 5};
   const BottomAxisMaxOffset: integer {= 5};
   const HideReadingLabels: string {= ''});
var
   iC: integer;
   bSetClipFlag: boolean;
begin

   ReadLabelFlag:= false;

   bSetClipFlag:= false;

   with Graph do
   begin

      for iC := 0 to Axes.Count - 1 do
         Axes[iC].Title.Font.InterCharSize:=0;


      LeftAxis.LabelsAngle:= 0;
      RightAxis.LabelsAngle:= 0;

      LeftAxis.MaximumOffset:= LeftAxisMaxOffset;
      RightAxis.MaximumOffset:= RightAxisMaxOffset;
      BottomAxis.MinimumOffset := BottomAxisMinOffset;
      BottomAxis.MaximumOffset := BottomAxisMaxOffset;

      ShowHint := false;

      if XAxisLabelPosition = 'horizontal' then
         BottomAxis.LabelsAngle:= 0
      else if XAxisLabelPosition = 'vertical' then
         BottomAxis.LabelsAngle:= 90
      else
         BottomAxis.LabelsAngle:= 0;

         Legend.CheckBoxes:= true;
         Legend.ShapeStyle:= fosRoundRectangle;
         Legend.RoundSize:= 15;
         Legend.ShadowSize:= 0;
         Legend.Alignment:= laBottom;

         Zoom.Pen.SmallDots:= true;
         Zoom.Pen.Color:= clWhite;
         Zoom.Brush.Style:= bsSolid;
         Zoom.UpLeftZooms:= true;
         Zoom.Brush.Color:= 8454016;

         Zoom.MouseButton:= mbLeft;
         ScrollMouseButton:= mbLeft;

         Title.Font.Color:= 0;
         Title.Font.Size:= 10;
         Title.Font.Style:= Title.Font.Style + [fsBold];
         Title.Font.InterCharSize:= 0;

         Color:= cl3DLight;

      for iC := 0 to SeriesCount - 1 do
      begin
         Series[iC].Marks.Visible:= false;
         Series[iC].Marks.Clip:=false;
         Series[iC].Marks.Font.Size:= 8;
         Series[iC].Marks.ArrowLength:= 1;
         Series[iC].Marks.Shadow.Visible:=false;
      end;
   end;

   miClipReadingLabels(Graph,false,bSetClipFlag);

end;

Code: Select all

uses Series, Math, TeeTools;

var maxLabelsWidthBottom: Integer;

procedure TForm1.FormCreate(Sender: TObject);
var point1: TPointSeries;
begin
  Chart1.Align:=alClient;
  Chart1.View3D:=false;

  point1:=Chart1.AddSeries(TPointSeries) as TPointSeries;
  point1.XValues.DateTime:=true;
  point1.FillSampleValues(8);

  Chart1.Axes.Bottom.LabelStyle:=talText;

  Chart1.Axes.Bottom.LabelStyle:=talText;
  Chart1.Axes.Bottom.Title.Caption:='My bottom axis title';
  Chart1.Axes.Bottom.Title.Visible:=false;
  Chart1.Legend.Alignment:=laBottom;
  Chart1.Legend.CustomPosition:=true;

  Chart1.Axes.Bottom.LabelsAngle:=90;

  with Chart1.Tools.Add(TAnnotationTool) as TAnnotationTool do
  begin
    Text:=Chart1.Axes.Bottom.Title.Caption;
    Shape.Visible:=false;
  end;

  Chart1.Draw;
end;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
begin
  AdjustMarginsAndLegend;
end;

procedure TForm1.Chart1GetAxisLabel(Sender: TChartAxis;
  Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
begin
  if ((Sender = Chart1.Axes.Bottom) and (Sender.LabelStyle = talText)) then
  begin
    if ((Series <> nil) and (ValueIndex > -1)) then
    begin
      if (Sender.IsDateTime) then
        LabelText:=FormatDateTime(Sender.DateTimeFormat, Series.XValues[ValueIndex])
      else
        LabelText:=FloatToStr(Series.XValues[ValueIndex]);

      if ValueIndex = 0 then
        maxLabelsWidthBottom:=Chart1.Canvas.TextWidth(LabelText)
      else
        maxLabelsWidthBottom:=Max(maxLabelsWidthBottom,Chart1.Canvas.TextWidth(LabelText));
    end;
  end;
end;

procedure TForm1.AdjustMarginsAndLegend;
var AnotTitle: TAnnotationTool;
begin
  Chart1.MarginUnits:=muPixels;

  AnotTitle:=Chart1.Tools[0] as TAnnotationTool;
  with Chart1.Axes.Bottom, Chart1.Canvas do
  begin
    Chart1.MarginBottom:=maxLabelsWidthBottom + TickLength + Chart1.Legend.Height + TextHeight(AnotTitle.Text);
    AnotTitle.Top:=Chart1.Height - Chart1.Legend.Height - TextHeight(AnotTitle.Text);
    AnotTitle.Left:=Round((Chart1.Width/2) - (TextWidth(AnotTitle.Text)/2));
  end;

  Chart1.Legend.Left:=Round((Chart1.Width/2) - (Chart1.Legend.Width/2));
  Chart1.Legend.Top:=Chart1.Height - Chart1.Legend.Height;
end;