unit1.dfm

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

object Form1: TForm1
  Left = 305
  Top = 103
  Width = 455
  Height = 350
  Caption = #25991#26412#25968#25454#28304'SeriesTextSource'#32452#20214#28436#31034
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Chart1: TChart
    Left = 24
    Top = 8
    Width = 400
    Height = 250
    Gradient.EndColor = 14285190
    Gradient.MidColor = clSilver
    Gradient.StartColor = 1415426
    Gradient.Visible = True
    Title.Text.Strings = (
      #25991#26412#25968#25454#28304#22270#34920#28436#31034'(TChart)')
    TabOrder = 0
    object Series1: TBarSeries
      ColorEachPoint = True
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = True
      DataSource = SeriesTextSource1
      BarStyle = bsRectGradient
      Gradient.Direction = gdTopBottom
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Bar'
      YValues.Order = loNone
    end
  end
  object Button1: TButton
    Left = 344
    Top = 272
    Width = 75
    Height = 25
    Caption = '&E.'#36864#20986
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 32
    Top = 272
    Width = 121
    Height = 25
    Caption = '&O.'#25171#24320#25991#26412#25991#20214
    TabOrder = 2
    OnClick = Button2Click
  end
  object OpenDialog1: TOpenDialog
    Top = 272
  end
  object SeriesTextSource1: TSeriesTextSource
    Active = True
    Fields = <
      item
        FieldIndex = 2
        FieldName = 'Text'
      end
      item
        FieldIndex = 1
        FieldName = 'X'
      end
      item
        FieldIndex = 3
        FieldName = 'Bar'
      end>
    FieldSeparator = ','
    FileName = 'c:\test.txt'
    Series = Series1
  end
end