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