unit1.dfm

delphi环境下应用teechart控件

object Form1: TForm1
  Left = 425
  Top = 109
  Width = 297
  Height = 304
  Caption = #20202#34920#30424#21151#33021#27979#35797'...'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Chart1: TChart
    Left = 0
    Top = 0
    Width = 289
    Height = 229
    AllowPanning = pmNone
    BackWall.Pen.Visible = False
    Gradient.EndColor = 14285190
    Gradient.MidColor = clSilver
    Gradient.StartColor = 1415426
    Gradient.Visible = True
    Legend.Visible = False
    MarginLeft = 0
    MarginRight = 0
    MarginTop = 3
    Title.Font.Charset = GB2312_CHARSET
    Title.Font.Height = -21
    Title.Font.Name = #21326#25991#38582#20070
    Title.Text.Strings = (
      #20202#34920#30424#21151#33021#27979#35797)
    Frame.Visible = False
    LeftAxis.Axis.Color = clRed
    LeftAxis.MinorTickLength = 6
    LeftAxis.TickLength = 14
    View3D = False
    View3DWalls = False
    Zoom.Animated = True
    Zoom.Brush.Color = clGray
    Zoom.Brush.Style = bsSolid
    Align = alClient
    TabOrder = 0
    PrintMargins = (
      15
      11
      15
      11)
    object Series1: TGaugeSeries
      Marks.Callout.Brush.Color = clBlack
      Marks.Callout.Length = 9
      Marks.Visible = False
      PercentFormat = '##0,## %'
      Circled = False
      Center.Brush.Color = clBlack
      Center.Gradient.EndColor = clBlack
      Center.Gradient.MidColor = clSilver
      Center.Gradient.StartColor = 1415426
      Center.Gradient.Visible = True
      Center.HorizSize = 8
      Center.InflateMargins = True
      Center.Style = psCircle
      Center.VertSize = 8
      Center.Visible = True
      CircleGradient.EndColor = clGray
      CircleGradient.MidColor = clWhite
      CircleGradient.StartColor = clSilver
      CircleGradient.Visible = True
      EndPoint.Brush.Color = clWhite
      EndPoint.Gradient.EndColor = clWhite
      EndPoint.Gradient.Visible = True
      EndPoint.HorizSize = 3
      EndPoint.InflateMargins = True
      EndPoint.Pen.Mode = pmNotXor
      EndPoint.Style = psCircle
      EndPoint.VertSize = 3
      EndPoint.Visible = False
      Maximum = 100.000000000000000000
      HandDistance = 32
      RotationAngle = 180
      TotalAngle = 180.000000000000000000
      Value = 60.511622042395170000
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 229
    Width = 289
    Height = 41
    Align = alBottom
    TabOrder = 1
    object Button1: TButton
      Left = 208
      Top = 8
      Width = 67
      Height = 25
      Caption = '&E.'#36864#20986
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 8
      Top = 8
      Width = 105
      Height = 25
      Caption = '&O.'#23548#20986#23545#35805#26694
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object Timer1: TTimer
    Interval = 500
    OnTimer = Timer1Timer
    Left = 168
    Top = 235
  end
  object ChartEditor1: TChartEditor
    Chart = Chart1
    Options = [ceDelete, ceChange, ceClone, ceDataSource, ceHelp, ceGroupAll]
    Left = 128
    Top = 235
  end
end