Steema Central

Code: Select all

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Series, TeEngine, ExtCtrls, TeeProcs, Chart;

type
  TForm1 = class(TForm)
    btnCreate: TButton;
    btnExport: TButton;
    Chart1: TChart;
    btnImport: TButton;
    Chart2: TChart;
    procedure btnCreateClick(Sender: TObject);
    procedure btnExportClick(Sender: TObject);
    procedure btnImportClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses TeeStore;

procedure TForm1.btnCreateClick(Sender: TObject);
begin
  Chart1.AddSeries(TPieSeries);
  Chart1.AddSeries(TBarSeries);
  Chart1.AddSeries(TLineSeries);
  Chart1.SeriesList.FillSampleValues(15);
end;

procedure TForm1.btnExportClick(Sender: TObject);
begin
  SaveChartToFile(Chart1, 'c:\Export.tee', True);
end;

procedure TForm1.btnImportClick(Sender: TObject);
begin
  LoadChartFromFile(TCustomChart(Chart2), 'c:\Export.tee');
end;

end.

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.Gradient.Visible:=false;

  Chart1.AddSeries(TPointSeries.Create(Self));
  Chart1[0].FillSampleValues;

  SaveChartToFile(Chart1,'C:\tmp\chart.tee');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Chart1.Free;
  Chart1:=nil;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Click;
  Chart1:=TChart.Create(Self);
  RegisterClass(TPointSeries);
  LoadChartFromFile(TCustomChart(Chart1),'C:\tmp\chart.tee');
  Chart1.Parent:=Form1;
end;