unit1.dfm

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

object Form1: TForm1
  Left = 279
  Top = 109
  Width = 562
  Height = 402
  Caption = #22270#34920#28378#21160'ChartScrollBar'#19982'ChartPageNavigator'#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 = 327
    Width = 554
    Height = 41
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 0
    object Button1: TButton
      Left = 16
      Top = 8
      Width = 75
      Height = 25
      Caption = #39318#39029
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 104
      Top = 8
      Width = 75
      Height = 25
      Caption = #26411#39029
      TabOrder = 1
      OnClick = Button2Click
    end
    object CheckBox1: TCheckBox
      Left = 200
      Top = 12
      Width = 57
      Height = 17
      Caption = #26631#31614
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 271
      Top = 12
      Width = 66
      Height = 17
      Caption = #28857#26631#35760
      Checked = True
      State = cbChecked
      TabOrder = 3
      OnClick = CheckBox2Click
    end
    object CheckBox3: TCheckBox
      Left = 341
      Top = 12
      Width = 52
      Height = 17
      Caption = '3D'
      Checked = True
      State = cbChecked
      TabOrder = 4
      OnClick = CheckBox3Click
    end
  end
  object ChartPageNavigator1: TChartPageNavigator
    Left = 0
    Top = 0
    Width = 554
    Height = 33
    Align = alTop
    TabOrder = 1
    Chart = Chart1
  end
  object ChartScrollBar1: TChartScrollBar
    Left = 0
    Top = 304
    Width = 554
    Height = 23
    Align = alBottom
    Enabled = True
    LargeChange = 1
    Max = 1
    Min = 1
    PageSize = 1
    Position = 1
    SmallChange = 1
    TabOrder = 2
    Chart = Chart1
  end
  object Chart1: TChart
    Left = 0
    Top = 33
    Width = 554
    Height = 271
    Gradient.EndColor = 13556735
    Gradient.StartColor = 16774122
    Gradient.Visible = True
    Title.Text.Strings = (
      #22270#34920#28378#21160#21644#39029#38754#23548#33322#32452#20214#28436#31034)
    MaxPointsPerPage = 20
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 3
    object Series1: TLineSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = True
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = True
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Y'
      YValues.Order = loNone
    end
    object ChartTool1: TPageNumTool
      Callout.Brush.Color = clBlack
      Callout.Arrow.Visible = False
      Shape.CustomPosition = True
      Shape.Left = 450
      Shape.Top = 10
      Text = #31532' %d '#39029#20849' %d '#39029
      Format = #31532' %d '#39029#20849' %d '#39029
    end
  end
end