TChart-图表编辑器的测试

最近不知怎么的，想研究一下图表。先上效果图：

功能代码：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ChartEditorPanel1: TChartEditorPanel;
    ChartEditor1: TChartEditor;
    ChartEditorPanel2: TChartEditorPanel;
    Chart1: TChart;
    Series1: TBarSeries;
    Series2: TBarSeries;
    Button1: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    ComboBox2: TComboBox;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Chart1ClickAxis(Sender: TCustomChart; Axis: TChartAxis;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Chart1ClickLegend(Sender: TCustomChart; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.Position := poScreenCenter;
  //右下角图表编辑器树形显示
  ChartEditorPanel2.Editor.Tree.Visible := True;
  //随机添加10个数
  Series1.FillSampleValues();
  Series2.FillSampleValues();
end;

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

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  Pos: TTabPosition;
begin
  Pos := tpTop;
  case ComboBox1.ItemIndex of
    : Pos := tpTop;
    : Pos := tpBottom;
    : Pos := tpLeft;
    : Pos := tpRight;
  end;
  ChartEditorPanel1.Editor.TabGeneral.PageControl.TabPosition := Pos;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
var
  ts: TTabStyle;
begin
  ts := tsTabs;
  case ComboBox2.ItemIndex of
    : ts := tsTabs;
    : ts := tsButtons;
    : ts := tsFlatButtons;
  end;
  ChartEditorPanel1.Editor.TabGeneral.PageControl.Style := ts;
end;

procedure TForm1.Chart1ClickAxis(Sender: TCustomChart; Axis: TChartAxis;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ChartEditorPanel1.Editor.TabAxis.Show;
  ChartEditorPanel1.Editor.TabAxis.PageControl.ActivePage.PageIndex;
end;

procedure TForm1.Chart1ClickLegend(Sender: TCustomChart;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ChartEditorPanel1.Editor.TabLegend.Show;
end;

end.

界面代码：

object Form1: TForm1
  Left =
  Top =
  Width =
  Height =
  Caption = '图表编辑器ChartEditor和ChartEditorPanel功能演示'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch =
  TextHeight =
  object Label1: TLabel
    Left =
    Top =
    Width =
    Height =
    Caption = 'Tabs位置：'
  end
  object Label2: TLabel
    Left =
    Top =
    Width =
    Height =
    Caption = 'Tabs风格：'
  end
  object ChartEditorPanel1: TChartEditorPanel
    Left =
    Top =
    Width =
    Height =
    Chart = Chart1
    TabOrder =
  end
  object ChartEditorPanel2: TChartEditorPanel
    Left =
    Top =
    Width =
    Height =
    Chart = Chart1
    TabOrder =
  end
  object Chart1: TChart
    Left =
    Top =
    Width =
    Height =
    Title.Text.Strings = (
      '图表编辑器测试')
    OnClickAxis = Chart1ClickAxis
    OnClickLegend = Chart1ClickLegend
    TabOrder =
    object Series1: TBarSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = True
      SeriesColor =
      Gradient.Direction = gdTopBottom
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Bar'
      YValues.Order = loNone
    end
    object Series2: TBarSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = True
      SeriesColor = clSilver
      Gradient.Direction = gdTopBottom
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Bar'
      YValues.Order = loNone
    end
  end
  object Button1: TButton
    Left =
    Top =
    Width =
    Height =
    Caption = '调用图表编辑器'
    TabOrder =
    OnClick = Button1Click
  end
  object ComboBox1: TComboBox
    Left =
    Top =
    Width =
    Height =
    Style = csDropDownList
    ItemHeight =
    TabOrder =
    OnChange = ComboBox1Change
    Items.Strings = (
      'Top'
      'Bottom'
      'Left'
      'Right')
  end
  object ComboBox2: TComboBox
    Left =
    Top =
    Width =
    Height =
    Style = csDropDownList
    ItemHeight =
    ItemIndex =
    TabOrder =
    Text = 'Tabs'
    OnChange = ComboBox2Change
    Items.Strings = (
      'Tabs'
      'Buttons'
      'FlatButtons')
  end
  object ChartEditor1: TChartEditor
    Chart = Chart1
    Left =
    Top =
  end
end