Steema Central

Code: Select all

TeeSaveToPDFFile(Chart1,'Chart1.pdf');

Code: Select all

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VclTee.TeeGDIPlus, VCLTee.TeEngine,
  Vcl.ExtCtrls, VCLTee.TeeProcs, VCLTee.Chart, VCLTee.TeeTools, VCLTee.Series,
  Vcl.StdCtrls, VCLTee.TeePDFCanvas;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Button1: TButton;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  FName: string;
begin
  SaveDialog1.Filter := 'PDF file (*.pdf)|*.pdf';
  if not SaveDialog1.Execute then Exit;
  FName := SaveDialog1.FileName;
  if ExtractFileExt(FName) = '' then FName := FName + '.pdf';
  try
    TeeSaveToPDFFile(Chart1,FName);
  except
    on E:exception do ShowMessage(E.Message);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I,Bands: integer;
  W,X: double;
begin
  Chart1.Tools.Clear;
  Bands := 3 + Random(20);
  with Chart1.BottomAxis do W := Maximum - Minimum;
  for I := 0 to Bands-1 do
    begin
      with Chart1.Tools.Add(TColorBandTool) as TColorBandTool do
      begin
        Axis := Chart1.BottomAxis;
        StartValue := Axis.Minimum + I*W/Bands;
        EndValue := StartValue + W/Bands;
        DrawBehindAxes := true;
        AllowDrag := false;
        if Odd(I) then Color := clLime else Color := clYellow;
        ResizeStart := false;
        ResizeEnd := false;
        Pen.Visible := false;
        StartLinePen.Visible := false;
        EndLinePen.Visible := false;
        Transparency := 80;
      end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  aLineSeries: TLineSeries;
begin
  aLineSeries := TLineSeries.Create(self);
  Chart1.AddSeries(aLineSeries);
  aLineSeries.FillSampleValues(100);
end;

end.