unit1.dfm

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

object Form1: TForm1
  Left = 215
  Top = 126
  Width = 382
  Height = 270
  Caption = 'Series '#21644' Functions Gallery'#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 = 195
    Width = 374
    Height = 41
    Align = alBottom
    TabOrder = 0
    DesignSize = (
      374
      41)
    object BitBtn1: TBitBtn
      Left = 134
      Top = 8
      Width = 78
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Series '#28436#31034
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object CheckBox1: TCheckBox
      Left = 8
      Top = 12
      Width = 49
      Height = 17
      Caption = '3D'
      TabOrder = 1
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 72
      Top = 12
      Width = 65
      Height = 17
      Caption = 'Smooth'
      TabOrder = 2
      OnClick = CheckBox2Click
    end
    object Button1: TButton
      Left = 296
      Top = 8
      Width = 75
      Height = 25
      Caption = '&E.'#36864#20986
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 216
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Function'#28436#31034
      TabOrder = 4
      OnClick = Button2Click
    end
  end
  object Chart1: TChart
    Left = 97
    Top = 0
    Width = 277
    Height = 195
    Gradient.EndColor = 33023
    Gradient.MidColor = clWhite
    Gradient.StartColor = 4227327
    Gradient.Visible = True
    Title.Text.Strings = (
      'TChart')
    BottomAxis.Increment = 14.400000000000000000
    View3D = False
    Align = alClient
    TabOrder = 1
    object Series1: TBarSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = True
      Gradient.Direction = gdTopBottom
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Bar'
      YValues.Order = loNone
    end
    object Series2: 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
      object TeeFunction1: TAddTeeFunction
      end
    end
  end
  object ChartGalleryPanel1: TChartGalleryPanel
    Left = 0
    Top = 0
    Width = 97
    Height = 195
    Smooth = True
    OnSelectedChart = ChartGalleryPanel1SelectedChart
    Align = alLeft
    ParentColor = True
    TabOrder = 2
  end
end