TChart-数据编辑（TChartListBox,TeeCommander）

先上图

功能代码：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, TeeNavigator, TeeChartGrid, Grids, StdCtrls,
  Buttons, ExtCtrls, TeeProcs, Chart, BubbleCh, TeeComma, TeeLisB;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Panel2: TPanel;
    Chart1: TChart;
    ColorDialog1: TColorDialog;
    ChartListBox1: TChartListBox;
    TeeCommander1: TTeeCommander;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Series1: TBarSeries;
    Series2: TLineSeries;
    Series3: TBarSeries;
    CheckBox5: TCheckBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  //
  Series1.FillSampleValues();
  Series2.FillSampleValues();
  Series3.FillSampleValues();
  Position := poScreenCenter;
  // TeeCommander1上的按钮可以自定义选择。
  TeeCommander1.CreateControls([tcbNormal, tcbSeparator,
                        tcbRotate, tcbMove, tcbZoom,
                        tcbDepth, tcb3D, tcbSeparator,
                        tcbEdit, tcbPrintPreview,
                        tcbCopy, tcbSave])

end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
  if CheckBox4.Checked then
    ChartListBox1.ShowSeriesTitle := True
  else
    ChartListBox1.ShowSeriesTitle := False;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  if CheckBox2.Checked then
    ChartListBox1.ShowSeriesColor := True
  else
    ChartListBox1.ShowSeriesColor := False;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    ChartListBox1.ShowSeriesIcon := True
  else
    ChartListBox1.ShowSeriesIcon := False;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  if CheckBox3.Checked then
    ChartListBox1.ShowActiveCheck := True
  else
    ChartListBox1.ShowActiveCheck := False;
end;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
  if CheckBox5.Checked then
    ChartListBox1.ShowSeriesNames := True
  else
    ChartListBox1.ShowSeriesNames := False;
end;

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

end.

界面代码：

object Form1: TForm1
  Left =
  Top =
  Width =
  Height =
  Caption = '数据编辑TChartListBox和TeeCommander'
  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 Panel1: TPanel
    Left =
    Top =
    Width =
    Height =
    Align = alTop
    BevelOuter = bvNone
    TabOrder =
    object CheckBox1: TCheckBox
      Left =
      Top =
      Width =
      Height =
      Caption = '图表'
      Checked = True
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder =
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left =
      Top =
      Width =
      Height =
      Caption = '颜色'
      Checked = True
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder =
      OnClick = CheckBox2Click
    end
    object CheckBox3: TCheckBox
      Left =
      Top =
      Width =
      Height =
      Caption = '检查框'
      Checked = True
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder =
      OnClick = CheckBox3Click
    end
    object CheckBox4: TCheckBox
      Left =
      Top =
      Width =
      Height =
      Caption = '标题'
      Checked = True
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder =
      OnClick = CheckBox4Click
    end
    object CheckBox5: TCheckBox
      Left =
      Top =
      Width =
      Height =
      Caption = '名称'
      Checked = True
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder =
      OnClick = CheckBox5Click
    end
    object Button1: TButton
      Left =
      Top =
      Width =
      Height =
      Caption = '编辑标题'
      TabOrder =
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left =
    Top =
    Width =
    Height =
    Align = alClient
    BevelOuter = bvNone
    TabOrder =
    object Chart1: TChart
      Left =
      Top =
      Width =
      Height =
      Title.Text.Strings = (
        'TChart')
      View3DOptions.Elevation =
      View3DOptions.HorizOffset =
      View3DOptions.Perspective =
      View3DOptions.Rotation =
      View3DOptions.Zoom =
      Align = alRight
      TabOrder =
      PrintMargins = (

        )
      object Series1: TBarSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = True
        BarWidthPercent =
        Gradient.Direction = gdTopBottom
        XValues.Name = 'X'
        XValues.Order = loAscending
        YValues.Name = 'Bar'
        YValues.Order = loNone
      end
      object Series2: TLineSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        Pointer.InflateMargins = True
        Pointer.Style = psRectangle
        Pointer.Visible = False
        XValues.Name = 'X'
        XValues.Order = loAscending
        YValues.Name = 'Y'
        YValues.Order = loNone
      end
      object Series3: TBarSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = True
        SeriesColor = clBlue
        BarStyle = bsCilinder
        Gradient.Direction = gdTopBottom
        XValues.Name = 'X'
        XValues.Order = loAscending
        YValues.Name = 'Bar'
        YValues.Order = loNone
      end
    end
    object ChartListBox1: TChartListBox
      Left =
      Top =
      Width =
      Height =
      Chart = Chart1
      Align = alClient
      ItemHeight =
      TabOrder =
    end
  end
  object TeeCommander1: TTeeCommander
    Left =
    Top =
    Width =
    Height =
    Panel = Chart1
    Align = alTop
    BevelOuter = bvNone
    ParentShowHint = False
    TabOrder =
  end
  object ColorDialog1: TColorDialog
    Left =
    Top =
  end
end