unit1.dfm

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

object Form1: TForm1
  Left = 334
  Top = 138
  Width = 491
  Height = 377
  Caption = #25968#25454#28304#32452#20214#21151#33021#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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 483
    Height = 41
    Align = alTop
    TabOrder = 0
    object Button1: TButton
      Left = 32
      Top = 8
      Width = 75
      Height = 25
      Caption = 'XML'#28436#31034
      TabOrder = 0
      OnClick = Button1Click
    end
    object Edit1: TEdit
      Left = 120
      Top = 11
      Width = 217
      Height = 21
      TabOrder = 1
      Text = 'http://www.steema.com/SampleData.xml'
    end
    object Button3: TButton
      Left = 352
      Top = 8
      Width = 65
      Height = 25
      Caption = #35013#20837
      TabOrder = 2
      OnClick = Button3Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 261
    Width = 483
    Height = 41
    Align = alBottom
    TabOrder = 1
    object Button2: TButton
      Left = 24
      Top = 8
      Width = 75
      Height = 25
      Caption = 'TXT'#28436#31034
      TabOrder = 0
      OnClick = Button2Click
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 41
    Width = 483
    Height = 220
    Align = alClient
    Caption = 'Panel3'
    TabOrder = 2
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 201
      Height = 205
      BevelKind = bkFlat
      BevelOuter = bvRaised
      Lines.Strings = (
        '<?xml version="1.0" ?>'
        '<chart>'
        '<series title="Series1" type="Point">'
        '<points count="6">'
        '<point  text="a" color="#FF8040" Y="1986"/>'
        '<point  text="b" color="#008080" Y="1197"/>'
        '<point  text="c" color="#FF00FF" Y="1126"/>'
        '<point  text="d" color="#FFFF00" Y="1535"/>'
        '<point  text="e" color="#000080" Y="1182"/>'
        '<point  text="f" color="#FF0000" Y="1089"/>'
        '</points>'
        '</series>'
        '</chart>')
      ScrollBars = ssBoth
      TabOrder = 0
      Visible = False
    end
    object Memo2: TMemo
      Left = 89
      Top = 1
      Width = 185
      Height = 205
      Lines.Strings = (
        'This memo contains series points'
        '( format is X,Y,Text )'
        '1,123,A'
        '2,456,B'
        '3,321,C'
        '4,222,D'
        '5,90,E'
        '6,111,F'
        '7,-10,G'
        '8,25,H'
        '9,123,I')
      ScrollBars = ssBoth
      TabOrder = 2
      Visible = False
    end
    object Chart1: TChart
      Left = 184
      Top = 1
      Width = 273
      Height = 205
      BottomWall.Gradient.Balance = 4
      BottomWall.Gradient.Direction = gdBottomTop
      BottomWall.Gradient.EndColor = 25284
      BottomWall.Gradient.MidColor = clWhite
      BottomWall.Gradient.StartColor = 27349
      BottomWall.Gradient.Visible = True
      Gradient.EndColor = 16777088
      Gradient.StartColor = 16744448
      Gradient.Visible = True
      LeftWall.Gradient.EndColor = 753908
      LeftWall.Gradient.MidColor = 16059031
      LeftWall.Gradient.StartColor = 14540754
      LeftWall.Gradient.Visible = True
      Legend.Visible = False
      Title.Text.Strings = (
        'XML'#25991#20214#23548#20837#25968#25454#28436#31034)
      Chart3DPercent = 50
      TabOrder = 1
      object Series1: TPointSeries
        ColorEachPoint = True
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        DataSource = TeeXMLSource1
        PercentFormat = '##0,## %'
        ClickableLine = False
        Pointer.Brush.Style = bsCross
        Pointer.Brush.Image.Data = {
          07544269746D61707E000000424D7E000000000000003E000000280000001000
          0000100000000100010000000000400000000000000000000000020000000200
          000000000000FFFFFF0000000000AAAA000000000000AAAA000000000000AAAA
          000000000000AAAA000000000000AAAA000000000000AAAA000000000000AAAA
          000000000000AAAA0000}
        Pointer.Gradient.Balance = 4
        Pointer.Gradient.Direction = gdBottomTop
        Pointer.Gradient.EndColor = clNavy
        Pointer.Gradient.MidColor = clWhite
        Pointer.Gradient.StartColor = 27349
        Pointer.Gradient.Visible = True
        Pointer.HorizSize = 5
        Pointer.InflateMargins = True
        Pointer.Style = psRectangle
        Pointer.VertSize = 5
        Pointer.Visible = True
        XValues.Name = 'X'
        XValues.Order = loAscending
        YValues.Name = 'Y'
        YValues.Order = loNone
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 302
    Width = 483
    Height = 41
    Align = alBottom
    TabOrder = 3
    object Button4: TButton
      Left = 24
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Button4'
      TabOrder = 0
    end
  end
  object TeeXMLSource1: TTeeXMLSource
    Chart = Chart1
    FileName = 'wby.xml'
    Series = Series1
    ValueSource = 'Y'
    Top = 8
  end
  object SeriesTextSource1: TSeriesTextSource
    Active = True
    HeaderLines = 2
    Fields = <>
    FieldSeparator = ','
    FileName = 'wby.txt'
    Series = Series1
    Left = 32
    Top = 8
  end
  object DBCrossTabSource1: TDBCrossTabSource
    Active = True
    Series = Series1
  end
end