unit1.dfm

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

object Form1: TForm1
  Left = 314
  Top = 131
  Width = 442
  Height = 268
  Caption = #23545#35937#35266#23519#22120'TeeInspactor'#19982#32452#21512#21015#34920#26694'ComboFla'#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
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Chart1: TChart
    Left = 0
    Top = 0
    Width = 257
    Height = 193
    Border.Width = 2
    Border.Visible = True
    BottomWall.Gradient.EndColor = 6308951
    BottomWall.Gradient.MidColor = 13529477
    BottomWall.Gradient.StartColor = 2514871
    BottomWall.Gradient.Visible = True
    Gradient.Balance = 74
    Gradient.Direction = gdBottomTop
    Gradient.EndColor = clWhite
    Gradient.StartColor = clAqua
    Gradient.Visible = True
    LeftWall.Gradient.Balance = 74
    LeftWall.Gradient.Direction = gdBottomTop
    LeftWall.Gradient.EndColor = clBlack
    LeftWall.Gradient.MidColor = 16744576
    LeftWall.Gradient.StartColor = clBlack
    LeftWall.Gradient.Visible = True
    Legend.CheckBoxesStyle = cbsRadio
    Title.Font.Color = clBlack
    Title.Text.Strings = (
      #32452#20214#27979#35797#65306#27700#26524#20135#37327)
    BottomAxis.Title.Caption = #21697#21517
    Chart3DPercent = 30
    LeftAxis.Title.Caption = #25968#37327
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    Anchors = [akLeft, akTop, akRight, akBottom]
    object Series1: TBarSeries
      ColorEachPoint = True
      Marks.Callout.Brush.Color = clBlack
      Marks.Gradient.Visible = True
      Marks.Style = smsLabelValue
      Marks.Visible = True
      PercentFormat = '##0,## %'
      BarStyle = bsRectGradient
      Gradient.Direction = gdTopBottom
      Gradient.MidColor = 16059031
      Gradient.StartColor = 14540754
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Bar'
      YValues.Order = loNone
    end
  end
  object TeeInspector1: TTeeInspector
    Left = 257
    Top = 0
    Width = 590
    Height = 193
    Align = alClient
    FixedCols = 1
    RowCount = 8
    FixedRows = 0
    Options = [goFixedVertLine, goVertLine, goHorzLine, goColSizing, goThumbTracking]
    TabOrder = 1
    Items = <
      item
        Caption = '3D'
        Value = True
        OnChange = TeeInspector1Items0Change
      end
      item
        Caption = #26631#31614
        Value = True
        OnChange = TeeInspector1Items1Change
      end
      item
        Caption = #22270#20363
        Value = True
        OnChange = TeeInspector1Items2Change
      end
      item
        Caption = #27178#22352#26631
        Style = iiString
        Value = #21697#21517
        OnChange = TeeInspector1Items3Change
      end
      item
        Caption = #32437#22352#26631
        Style = iiString
        Value = #25968#37327
        OnChange = TeeInspector1Items4Change
      end
      item
        Caption = #23383#39068#33394
        Style = iiColor
        Value = 0
        OnChange = TeeInspector1Items5Change
      end
      item
        Caption = #22270#34920#26631#39064
        Style = iiString
        Value = #32452#20214#27979#35797#65306#27700#26524#20135#37327
        OnChange = TeeInspector1Items6Change
      end>
    Header.Font.Color = clNavy
    Header.Font.Gradient.Visible = True
    ColWidths = (
      82
      504)
    RowHeights = (
      19
      19
      19
      19
      19
      19
      19
      19)
  end
  object Panel1: TPanel
    Left = 0
    Top = 193
    Width = 847
    Height = 41
    Align = alBottom
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 11
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #31181#31867#65306
    end
    object ComboFlat1: TComboFlat
      Left = 72
      Top = 8
      Width = 153
      BevelKind = bkSoft
      Color = clWhite
      ItemIndex = 0
      TabOrder = 0
      Text = #33529#26524
      OnChange = ComboFlat1Change
      Items.Strings = (
        #33529#26524
        #26708#23376
        #26792
        #33889#33796
        #29976#34071
        #35199#29916)
    end
    object Button1: TButton
      Left = 344
      Top = 8
      Width = 75
      Height = 25
      Caption = '&R.'#36820#22238
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 264
      Top = 8
      Width = 75
      Height = 25
      Caption = '&P.'#25171#21360
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object ChartPreviewer1: TChartPreviewer
    Chart = Chart1
    Title = #25171#21360'...'
    Left = 232
    Top = 201
  end
end