unit1.dfm

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

object Form1: TForm1
  Left = 278
  Top = 176
  Width = 391
  Height = 284
  Caption = 'TeeXMLSource'#25968#25454#28304#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 = 16
    Width = 329
    Height = 169
    Title.Text.Strings = (
      'XML'#25968#25454#28304#28436#31034'(TChart)')
    TabOrder = 0
    object Series1: TBarSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = True
      DataSource = TeeXMLSource1
      Gradient.Direction = gdTopBottom
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Bar'
      YValues.Order = loNone
    end
    object Series2: TBarSeries
      ColorEachPoint = True
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = True
      BarStyle = bsRectGradient
      Gradient.Direction = gdTopBottom
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Bar'
      YValues.Order = loNone
    end
  end
  object Button1: TButton
    Left = 40
    Top = 200
    Width = 75
    Height = 25
    Caption = '&O.'#25171#24320'XML'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 280
    Top = 200
    Width = 75
    Height = 25
    Caption = '&E.'#36864#20986
    TabOrder = 2
    OnClick = Button1Click
  end
  object TeeXMLSource1: TTeeXMLSource
    Active = True
    Chart = Chart1
    FileName = 
      'C:\Documents and Settings\qujh\My Documents\TeeChart'#20351#29992#35828#26126'\'#31532'2'#31456' Tee' +
      'Chart'#30340#32452#20214'\'#31532'2'#31456#23454#20363'\'#25968#25454#28304#32452#20214'TeeXMLSource'#21151#33021'\Example.xml'
    Series = Series1
    ValueSource = 'Y'
  end
end