unit1.dfm

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

object Form1: TForm1
  Left = 252
  Top = 130
  AutoScroll = False
  Caption = #22270#34920#32534#36753#22120'ChartEditor'#21644'ChartEditorPanel'#21151#33021#28436#31034
  ClientHeight = 343
  ClientWidth = 626
  Color = clBtnFace
  Constraints.MinHeight = 50
  Constraints.MinWidth = 270
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 626
    Height = 57
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 151
      Top = 20
      Width = 61
      Height = 13
      AutoSize = False
      Caption = 'Labs'#20301#32622#65306
    end
    object Label2: TLabel
      Left = 311
      Top = 20
      Width = 61
      Height = 13
      AutoSize = False
      Caption = 'Tabs'#39118#26684#65306
    end
    object Button1: TButton
      Left = 8
      Top = 16
      Width = 129
      Height = 25
      Caption = #35843#29992#22270#34920#32534#36753#22120
      TabOrder = 0
      OnClick = Button1Click
    end
    object ComboBox1: TComboBox
      Left = 208
      Top = 16
      Width = 97
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 1
      Text = 'Top'
      OnChange = ComboBox1Change
      Items.Strings = (
        'Top'
        'Button'
        'Left'
        'Right')
    end
    object ComboBox2: TComboBox
      Left = 376
      Top = 16
      Width = 97
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 2
      Text = 'Tabs'
      OnChange = ComboBox2Change
      Items.Strings = (
        'Tabs'
        'Buttons'
        'FlatButtons')
    end
  end
  object Chart1: TChart
    Left = 201
    Top = 57
    Width = 247
    Height = 286
    BackWall.Gradient.EndColor = 11118482
    BackWall.Gradient.Visible = True
    BackWall.Pen.Visible = False
    BackWall.Transparent = False
    Border.Color = 14645801
    Border.EndStyle = esSquare
    Border.Visible = True
    BottomWall.Gradient.EndColor = 16580349
    BottomWall.Gradient.StartColor = 3114493
    BottomWall.Gradient.Visible = True
    Gradient.EndColor = clWhite
    Gradient.StartColor = clAqua
    Gradient.Visible = True
    LeftWall.Gradient.EndColor = 2413052
    LeftWall.Gradient.StartColor = 900220
    LeftWall.Gradient.Visible = True
    LeftWall.Visible = False
    Legend.Alignment = laBottom
    Legend.Gradient.Direction = gdTopBottom
    Legend.Gradient.EndColor = clYellow
    Legend.Gradient.StartColor = clWhite
    Legend.Gradient.Visible = True
    Legend.Shadow.Color = clGray
    Legend.Shadow.Transparency = 50
    Legend.Symbol.Pen.Visible = False
    Legend.TopPos = 7
    Legend.VertMargin = 1
    MarginBottom = 5
    MarginRight = 15
    Title.Font.Charset = GB2312_CHARSET
    Title.Font.Height = -19
    Title.Font.Name = #26999#20307'_GB2312'
    Title.Text.Strings = (
      #22270#34920#32534#36753#22120#28436#31034)
    OnClickAxis = Chart1ClickAxis
    OnClickLegend = Chart1ClickLegend
    BottomAxis.MinorTicks.Color = clBlack
    BottomAxis.TicksInner.Color = clBlack
    DepthAxis.MinorTicks.Color = clBlack
    DepthAxis.TicksInner.Color = clBlack
    DepthTopAxis.MinorTicks.Color = clBlack
    DepthTopAxis.TicksInner.Color = clBlack
    Frame.Visible = False
    LeftAxis.MinorTickLength = 6
    LeftAxis.MinorTicks.Color = clBlack
    LeftAxis.TickLength = 14
    LeftAxis.TicksInner.Color = clBlack
    RightAxis.MinorTicks.Color = clBlack
    RightAxis.TicksInner.Color = clBlack
    Shadow.Color = clBlack
    Shadow.HorizSize = 10
    Shadow.VertSize = 10
    TopAxis.MinorTicks.Color = clBlack
    TopAxis.TicksInner.Color = clBlack
    View3DOptions.OrthoAngle = 135
    View3DWalls = False
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    PrintMargins = (
      28
      15
      28
      15)
    ColorPaletteIndex = 9
    object Series1: TBarSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Callout.Length = 8
      Marks.Visible = False
      Gradient.Direction = gdTopBottom
      XValues.Name = 'X'
      XValues.Order = loNone
      YValues.Name = #38271#26465
      YValues.Order = loNone
    end
    object Series2: TBarSeries
      BarPen.Color = 2413052
      Marks.Callout.Brush.Color = clBlack
      Marks.Visible = False
      PercentFormat = '##0,## %'
      Gradient.Direction = gdTopBottom
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = #38271#26465
      YValues.Order = loNone
    end
  end
  object ChartEditorPanel1: TChartEditorPanel
    Left = 0
    Top = 57
    Width = 201
    Height = 286
    Align = alLeft
    BevelOuter = bvRaised
    Chart = Chart1
    TabOrder = 2
  end
  object ChartEditorPanel2: TChartEditorPanel
    Left = 448
    Top = 57
    Width = 178
    Height = 286
    Align = alClient
    BevelOuter = bvRaised
    Chart = Chart1
    TabOrder = 3
  end
  object ChartEditor1: TChartEditor
    Chart = Chart1
    Left = 104
    Top = 40
  end
end