unit1.dfm

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

object Form1: TForm1
  Left = 386
  Top = 116
  Width = 375
  Height = 365
  Caption = 'SeriesDataSet'#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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 367
    Height = 331
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 1
      Top = 185
      Width = 365
      Height = 111
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 296
      Width = 365
      Height = 34
      DataSource = DataSource1
      Align = alBottom
      TabOrder = 1
    end
    object Chart1: TChart
      Left = 1
      Top = 1
      Width = 365
      Height = 184
      Gradient.EndColor = 14285190
      Gradient.MidColor = clSilver
      Gradient.StartColor = 1415426
      Gradient.Visible = True
      Legend.Visible = False
      MarginTop = 10
      Title.Text.Strings = (
        'SeriesDataSet'#32452#20214#28436#31034'(TChart)')
      View3D = False
      Align = alTop
      TabOrder = 2
      object BitBtn1: TBitBtn
        Left = 288
        Top = 8
        Width = 75
        Height = 25
        Caption = '&E.'#36864#20986
        TabOrder = 0
        OnClick = BitBtn1Click
      end
      object Series1: 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
  end
  object SeriesDataSet1: TSeriesDataSet
    Series = Series1
    Active = True
    object SeriesDataSet1Color: TIntegerField
      FieldName = 'Color'
    end
    object SeriesDataSet1X: TFloatField
      FieldName = 'X'
    end
    object SeriesDataSet1Y: TFloatField
      FieldName = 'Y'
    end
    object SeriesDataSet1Label: TStringField
      FieldName = 'Label'
      Size = 128
    end
  end
  object DataSource1: TDataSource
    DataSet = SeriesDataSet1
    Left = 32
  end
end