unit1.pas

《TeeChart应用技术详解》(屈景辉)源代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeeProcs, TeeGalleryPanel, ExtCtrls, TeEngine, Chart, StdCtrls,
  Buttons, TeeEdit, TeeURL, TeeOpenGL, Series, TeePolar, ArrowCha, TeeDonut,
  TeeFunci;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Chart1: TChart;
    ChartGalleryPanel1: TChartGalleryPanel;
    Series1: TBarSeries;
    Button1: TButton;
    Button2: TButton;
    Series2: TLineSeries;
    TeeFunction1: TAddTeeFunction;
    procedure BitBtn1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ChartGalleryPanel1SelectedChart(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin //显示Series Gallry
ChartGalleryPanel1.CreateChartList([ TLineSeries,TBarSeries,
                        THorizBarSeries,
                        TAreaSeries,
                        THorizAreaSeries,
                        TPointSeries,
                        TPieSeries,
                        TFastLineSeries ]);

ChartGalleryPanel1.FunctionsVisible := FALSE;
ChartGalleryPanel1.DisplaySub := true;
ChartGalleryPanel1.CreateGalleryPage('Standard');
ChartGalleryPanel1.CreateChartList([TArrowSeries,TPolarSeries, TRadarSeries,TPolarBarSeries,TDonutSeries]);
ChartGalleryPanel1.CreateGalleryPage('Extended');
ChartGalleryPanel1.NumCols := 1;  //排一列
ChartGalleryPanel1.NumRows := 3;

end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin //显示Function Gallery
ChartGalleryPanel1.FunctionsVisible := TRUE;
ChartGalleryPanel1.CreateGalleryPage('Standard');
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
ChartGalleryPanel1.View3D := CheckBox1.Checked;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
ChartGalleryPanel1.Smooth := CheckBox2.Checked;
end;





procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.FillSampleValues(10);
CheckBox1.Checked := ChartGalleryPanel1.View3D ;
CheckBox2.Checked := ChartGalleryPanel1.Smooth ;
Chart1.View3D :=   CheckBox1.Checked ;
//Chart1.ScrollMouseButton := mbMiddle;
end;


procedure TForm1.ChartGalleryPanel1SelectedChart(Sender: TObject);
var
MySeries:TChartSeries;
begin
Chart1.RemoveAllSeries;
MySeries := ChartGalleryPanel1.SelectedChart.GetASeries.Create(self);
MySeries.FillSampleValues(15);
Chart1.AddSeries(MySeries);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{
ChartGalleryPanel1.CreateChartList([
      TAddTeeFunction,
      TSubtractTeeFunction,
      TMultiplyTeeFunction,
      TDivideTeeFunction,
      THighTeeFunction,
      TLowTeeFunction,
      TAverageTeeFunction,
      TCustomTeeFunction,
      TMedianTeeFunction,
      TModeTeeFunction,
      TCountTeeFunction]);
}
ChartGalleryPanel1.FunctionsVisible := TRUE;
ChartGalleryPanel1.CreateGalleryPage('Standard');

end;

end.