realchart.dfm

这是一个正式的项目工程

object frmRealChart: TfrmRealChart
  Left = 44
  Top = 99
  Width = 700
  Height = 440
  Caption = '实时状态显示'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 385
    Width = 692
    Height = 28
    Panels = <>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 361
    Width = 692
    Height = 24
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 1
    object RadioGroupChart: TRadioGroup
      Left = 1
      Top = -6
      Width = 690
      Height = 29
      Align = alBottom
      Columns = 3
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Items.Strings = (
        '重力'
        '高度'
        '水平')
      ParentFont = False
      TabOrder = 0
      OnClick = RadioGroupChartClick
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 0
    Width = 692
    Height = 361
    Align = alClient
    Color = clBlack
    ParentColor = False
    TabOrder = 2
    object Chart1: TChart
      Left = 0
      Top = 0
      Width = 688
      Height = 357
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Title.Text.Strings = (
        '实时重力柱状图')
      BottomAxis.ExactDateTime = False
      BottomAxis.Increment = 1
      LeftAxis.Automatic = False
      LeftAxis.AutomaticMaximum = False
      LeftAxis.AutomaticMinimum = False
      LeftAxis.Maximum = 1000
      RightAxis.Visible = False
      TopAxis.Visible = False
      View3D = False
      Align = alClient
      TabOrder = 0
      object SpeedButton1: TSpeedButton
        Left = 632
        Top = 333
        Width = 55
        Height = 22
        Anchors = [akRight, akBottom]
        Caption = '重置高度'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        OnClick = SpeedButton1Click
      end
      object CheckBox1: TCheckBox
        Left = 639
        Top = 7
        Width = 43
        Height = 17
        Anchors = [akTop, akRight]
        Caption = '图例'
        Font.Charset = GB2312_CHARSET
        Font.Color = clAqua
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = CheckBox1Click
      end
      object Series3: TBarSeries
        Marks.ArrowLength = 20
        Marks.Style = smsValue
        Marks.Visible = False
        SeriesColor = clRed
        Title = '超重停'
        BarWidthPercent = 40
        MultiBar = mbNone
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
      object Series4: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clYellow
        Title = '超重调'
        BarWidthPercent = 40
        MultiBar = mbNone
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
      object Series2: TBarSeries
        Marks.ArrowLength = 20
        Marks.Style = smsValue
        Marks.Visible = False
        SeriesColor = clLime
        Title = '标准重力值'
        VertAxis = aBothVertAxis
        BarWidthPercent = 40
        MultiBar = mbNone
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
      object Series5: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clLime
        Title = '正常值'
        BarWidthPercent = 40
        MultiBar = mbNone
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
      object Series7: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clYellow
        Title = '失重调'
        BarBrush.Color = clWhite
        BarWidthPercent = 40
        MultiBar = mbNone
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
      object Series6: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clRed
        Title = '失重停'
        BarWidthPercent = 40
        MultiBar = mbNone
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
      object Series1: TBarSeries
        Marks.ArrowLength = 20
        Marks.Style = smsValue
        Marks.Visible = True
        SeriesColor = clWhite
        Title = '实测重力值'
        VertAxis = aBothVertAxis
        BarWidthPercent = 20
        MultiBar = mbNone
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 2
    Top = 293
  end
end