Steema Central

Code: Select all

function TFOrm1.CreateChart: TChart;
begin
  result := TChart.Create(nil);
  result.Parent := Self;

  //result.Canvas := TTeeCanvas3D.Create;  doesn't allow transparent series for batch gap chart

  result.Color := clWhite;
  result.BevelOuter := bvNone;
  result.LeftAxis.Grid.Color := clSilver;

//  result.LeftAxis.LabelsFont.Name := 'Arial Narrow'; {added from Gap Chart}
  result.LeftAxis.AutomaticMinimum := False; {added from Gap Chart}
  result.LeftAxis.Minimum := 0; {added from Gap Chart}
  result.LeftAxis.MinorTicks.Visible := False; {added from Gap Chart}
  result.LeftAxis.TicksInner.Visible := False; {added from Gap Chart}
  result.LeftAxis.Ticks.Style := psDot;
  result.LeftAxis.TickLength := 2; {added from Gap Chart}
  result.LeftAxis.Axis.Width := 1;
  result.LeftAxis.Title.Font.Name := 'Arial Narrow';

  result.BottomAxis.Axis.Color := clSilver;
  result.BottomAxis.MinorTicks.Visible := false; {added from Gap Chart}
  result.BottomAxis.Ticks.Visible := false;
//  result.BottomAxis.LabelsFont.Name := 'Arial Narrow';
  result.BottomAxis.Grid.Visible := False;
  result.BottomAxis.Axis.Width := 1;

  result.Legend.Frame.Visible := False;
  result.Legend.Title.Font.Name := 'Arial Narrow';
  result.Legend.Title.Font.Style := [];
  result.Legend.Shadow.VertSize := 0;
  result.Legend.LegendStyle := lsSeries;
  result.Legend.Shadow.HorizSize := 0;
  result.Legend.Alignment := laRight;
  result.Legend.Transparent := True;

  result.LeftAxis.Axis.Color := clSilver;
  result.LeftAxis.AxisValuesFormat := '$,0';

  result.Walls.Visible := False;

  result.BackWall.Pen.Color := clSilver;
//  result.OnGetAxisLabel := ChartAxisLabel;

  result.View3D := False;
end;


procedure TForm1.CreateChartImage;
var
  lChart: TChart;

  function CreateChartSeries: TAreaSeries;
  begin
    result := TAreaSeries.Create(self);
    result.ParentChart := lChart;
    result.AreaLinesPen.Visible := false;
    result.Pen.Visible := false;
  end;

var
  lRect: TRect;
begin
  lChart := CreateChart;
  try
    lChart.LeftAxis.Title.Font.Size := 10;
    lChart.BottomAxis.Title.Caption := 'Years in Retirement';
    lChart.BottomAxis.Title.Font.Size := 10;
    lChart.Legend.CustomPosition := True;

    lRect := Rect(1, 1, Image1.Width, Image1.Height);

    lChart.SetBounds(0, 0, lRect.Width, lRect.Height);

    lChart.Draw;
    lChart.Draw;

  finally // wrap up
   // lChart.FreeAllSeries;
  // lChart.Free;
  end;    // try/finally
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateChartImage;
end;

Code: Select all

function TdmCreateChart.CreateImage(aRect: TRect): TGraphic;
//...
    lChart.Legend.CustomPosition := True;

    lSrs := CreateChartSeries;
    lSrs.FillSampleValues(100);

    lChart.SetBounds(aRect.Left, aRect.Top, aRect.Right, aRect.Bottom);
    lChart.MarginTop:=10;  //Add some margin at the top

    {lChart.Draw;
    lChart.Draw;}
//...

Code: Select all

    ...
    lChart.OnAfterDraw := GapChartAfterDraw;
    ...

procedure TMyUnit.GapChartAfterDraw(Sender: TObject);
begin
  Assert(sender is TChart);
  AdjustGapChartLegend(Sender as TChart);
end;

procedure TMyUnit.AdjustGapChartLegend(aChart: TChart);
var
  lLeft: Integer;
begin
  if (aChart.SeriesCount > 0) and (aChart.Series[0].Count > 0) then
  begin
    lLeft := aChart.Series[0].CalcXPos(1);
    aChart.Legend.Left := lLeft;
  end;
end;