unit1.dfm

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

object Form1: TForm1
  Left = 226
  Top = 143
  AutoScroll = False
  Caption = #25968#25454#32534#36753'ChartGrid'#19982#23548#33322'ChartGridNavigator'#21151#33021#28436#31034
  ClientHeight = 262
  ClientWidth = 532
  Color = clBtnFace
  Constraints.MinHeight = 50
  Constraints.MinWidth = 270
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 532
    Height = 33
    Align = alTop
    TabOrder = 0
    object CheckBox1: TCheckBox
      Left = 14
      Top = 12
      Width = 75
      Height = 17
      Caption = #22270#26631
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 130
      Top = 12
      Width = 75
      Height = 17
      Caption = #39068#33394
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = CheckBox2Click
    end
    object CheckBox4: TCheckBox
      Left = 390
      Top = 12
      Width = 75
      Height = 17
      Caption = #26631#39064
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnClick = CheckBox2Click
    end
  end
  object Chart1: TChart
    Left = 169
    Top = 66
    Width = 363
    Height = 196
    BackWall.Gradient.EndColor = 11118482
    BackWall.Gradient.Visible = True
    BackWall.Pen.Visible = False
    BackWall.Transparent = False
    Border.Color = 14645801
    Border.EndStyle = esSquare
    Border.Visible = True
    BottomWall.Gradient.EndColor = 16580349
    BottomWall.Gradient.StartColor = 3114493
    BottomWall.Gradient.Visible = True
    Gradient.EndColor = clWhite
    Gradient.StartColor = clAqua
    Gradient.Visible = True
    LeftWall.Gradient.EndColor = 2413052
    LeftWall.Gradient.StartColor = 900220
    LeftWall.Gradient.Visible = True
    Legend.Gradient.Direction = gdTopBottom
    Legend.Gradient.EndColor = clYellow
    Legend.Gradient.StartColor = clWhite
    Legend.Gradient.Visible = True
    Legend.Shadow.Color = clGray
    Legend.Shadow.Transparency = 50
    Legend.Symbol.Pen.Visible = False
    MarginRight = 10
    Title.Font.Height = -12
    Title.Text.Strings = (
      #25968#25454#26629#26684#19982#23548#33322#28436#31034)
    BottomAxis.MinorTicks.Color = clBlack
    BottomAxis.TicksInner.Color = clBlack
    DepthAxis.MinorTicks.Color = clBlack
    DepthAxis.TicksInner.Color = clBlack
    DepthTopAxis.MinorTicks.Color = clBlack
    DepthTopAxis.TicksInner.Color = clBlack
    Frame.Visible = False
    LeftAxis.MinorTickLength = 6
    LeftAxis.MinorTicks.Color = clBlack
    LeftAxis.TickLength = 14
    LeftAxis.TicksInner.Color = clBlack
    RightAxis.MinorTicks.Color = clBlack
    RightAxis.TicksInner.Color = clBlack
    Shadow.Color = clBlack
    Shadow.HorizSize = 10
    Shadow.VertSize = 10
    TopAxis.MinorTicks.Color = clBlack
    TopAxis.TicksInner.Color = clBlack
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    PrintMargins = (
      15
      1
      15
      1)
    ColorPaletteIndex = 9
    object Series1: TBarSeries
      Depth = 0
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = False
      PercentFormat = '##0,## %'
      SeriesColor = 4227327
      Title = #30005#23376
      Gradient.Direction = gdTopBottom
      MultiBar = mbNone
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = #38271#26465
      YValues.Order = loNone
    end
    object Series2: TPointSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = False
      Title = #26426#26800
      ClickableLine = False
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = True
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Y'
      YValues.Order = loNone
    end
    object Series3: TBarSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = False
      Gradient.Direction = gdTopBottom
      MultiBar = mbNone
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Bar'
      YValues.Order = loNone
    end
    object Series4: TFastLineSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = False
      LinePen.Color = 900220
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Y'
      YValues.Order = loNone
    end
    object Series5: TFastLineSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = False
      LinePen.Color = 3114493
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Y'
      YValues.Order = loNone
    end
    object Series6: 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 Series7: 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 Series8: 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
  end
  object TeeCommander1: TTeeCommander
    Left = 0
    Top = 33
    Width = 532
    Height = 33
    Panel = Chart1
    Align = alTop
    ParentShowHint = False
    TabOrder = 2
  end
  object ChartListBox1: TChartListBox
    Left = 0
    Top = 66
    Width = 169
    Height = 196
    Chart = Chart1
    Align = alLeft
    ItemHeight = 24
    TabOrder = 3
  end
  object CheckBox3: TCheckBox
    Left = 214
    Top = 12
    Width = 75
    Height = 17
    Caption = #26816#26597#26694
    Checked = True
    State = cbChecked
    TabOrder = 4
    OnClick = CheckBox2Click
  end
  object ColorDialog1: TColorDialog
    Left = 40
    Top = 24
  end
end