drawdisp_time.dfm

西门子与计算机通讯程序包括源代码 程序说明 可以进行时时数据采集记录

object Form13: TForm13
  Left = 360
  Top = 182
  Width = 582
  Height = 497
  Caption = #23454#26102#25968#25454#26174#31034
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 448
    Height = 463
    Align = alClient
    Caption = 'Panel1'
    Color = clWhite
    TabOrder = 0
    object Chart1: TChart
      Left = 1
      Top = 1
      Width = 446
      Height = 461
      Border.Color = clBtnFace
      Legend.Brush.Color = clWhite
      Legend.Brush.Style = bsClear
      Legend.ColorWidth = 10
      Legend.CurrentPage = False
      Legend.Gradient.Direction = gdTopBottom
      Legend.Gradient.EndColor = 14285190
      Legend.Gradient.MidColor = clSilver
      Legend.Gradient.StartColor = 1415426
      Legend.LegendStyle = lsSeries
      Legend.Shadow.HorizSize = 0
      Legend.Shadow.Smooth = False
      Legend.Shadow.VertSize = 0
      Legend.Symbol.Gradient.EndColor = 753908
      Legend.Symbol.Gradient.MidColor = 16059031
      Legend.Symbol.Gradient.StartColor = 14540754
      Legend.Symbol.Width = 10
      Legend.Symbol.WidthUnits = lcsPixels
      Legend.Title.Gradient.Direction = gdRadial
      Legend.Title.Gradient.StartColor = clRed
      Legend.Title.Shadow.HorizSize = 0
      Legend.Title.Shadow.Smooth = False
      Legend.Title.Shadow.VertSize = 0
      Legend.TopPos = 3
      Legend.Visible = False
      MarginBottom = 0
      MarginLeft = 0
      MarginRight = 0
      MarginTop = 0
      Title.Text.Strings = (
        'TChart')
      ClipPoints = False
      DepthAxis.Automatic = False
      DepthAxis.AutomaticMaximum = False
      DepthAxis.AutomaticMinimum = False
      DepthAxis.Maximum = 0.500000000000000000
      DepthAxis.Minimum = -0.500000000000000000
      DepthTopAxis.Automatic = False
      DepthTopAxis.AutomaticMaximum = False
      DepthTopAxis.AutomaticMinimum = False
      DepthTopAxis.Maximum = 0.500000000000000000
      DepthTopAxis.Minimum = -0.500000000000000000
      RightAxis.Automatic = False
      RightAxis.AutomaticMaximum = False
      RightAxis.AutomaticMinimum = False
      RightAxis.Visible = False
      ScaleLastPage = False
      TopAxis.Automatic = False
      TopAxis.AutomaticMaximum = False
      TopAxis.AutomaticMinimum = False
      TopAxis.Visible = False
      View3D = False
      View3DOptions.ZoomText = False
      Zoom.Direction = tzdVertical
      Align = alClient
      BevelOuter = bvSpace
      Color = clWhite
      TabOrder = 0
      object Series1: TFastLineSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        DataSource = Series3
        Title = '1111'
        LinePen.Color = clRed
        XValues.Name = 'X'
        XValues.Order = loAscending
        XValues.ValueSource = 'Y'
        YValues.Name = 'Y'
        YValues.Order = loNone
      end
      object Series2: TFastLineSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        SeriesColor = 4227327
        LinePen.Color = 4227327
        XValues.Name = 'X'
        XValues.Order = loAscending
        YValues.Name = 'Y'
        YValues.Order = loNone
        Data = {
          011900000000000000000000006866666666262540555555555555F13F9C9999
          9999B93F4055555555555501406866666666BE40400000000000000A40343333
          3333334C4055555555555511403433333333635340AAAAAAAAAAAA1540686666
          6666264540FFFFFFFFFFFF194000000000003C58405455555555551E40000000
          0000705A4055555555555521409A999999999B634000000000008023409A9999
          9999B56440ABAAAAAAAAAA254068666666665A67405655555555D52740686666
          66665A67400100000000002A409C999999991D6940ACAAAAAAAA2A2C40010000
          0000A071405755555555552E406866666666A86A4001000000004030409C9999
          99999F6E405655555555553140CECCCCCCCCF67040ABAAAAAAAA6A32409B9999
          9999DA7040000000000080334002000000006174405555555555953440CFCCCC
          CCCC697040AAAAAAAAAAAA35409E99999999376A40FFFFFFFFFFBF3640CFCCCC
          CCCC6970405455555555D537403633333333D67240A9AAAAAAAAEA38409C9999
          99999B7340FEFFFFFFFFFF39403633333333497240}
      end
      object Series3: TFastLineSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        SeriesColor = clBlue
        LinePen.Color = clBlue
        XValues.Name = 'X'
        XValues.Order = loAscending
        YValues.Name = 'Y'
        YValues.Order = loNone
        Data = {
          0119000000000000000000000066666666660C6440555555555555F13F989999
          99991D694055555555555501409899999999CF65400000000000000A40CACCCC
          CCCC785640555555555555114098999999999B6340AAAAAAAAAAAA1540656666
          6666BE6040FFFFFFFFFFFF19403033333333675E405455555555551E40646666
          66668E69405555555555552140CACCCCCCCCC669400000000000802340303333
          3333496240ABAAAAAAAAAA254060666666662655405655555555D52740003333
          3333332C400100000000002A40C0CCCCCCCC144D40ACAAAAAAAA2A2C40FDFFFF
          FFFF8560405755555555552E4064666666668E69400100000000403040656666
          6666317040565555555555314096999999996B6C40ABAAAAAAAA6A3240323333
          3333A2704000000000008033406566666666D871405555555555953440303333
          3333E56840AAAAAAAAAAAA35406466666666DC6C40FFFFFFFFFFBF3640979999
          99998162405455555555D537406466666666F26240A9AAAAAAAAEA3840646666
          6666BE6040FEFFFFFFFFFF39405C666666668E4940}
      end
      object Series4: TFastLineSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        SeriesColor = 16711808
        LinePen.Color = 16711808
        XValues.Name = 'X'
        XValues.Order = loAscending
        YValues.Name = 'Y'
        YValues.Order = loNone
      end
      object Series5: TFastLineSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        SeriesColor = 4210816
        LinePen.Color = 4210816
        XValues.Name = 'X'
        XValues.Order = loAscending
        YValues.Name = 'Y'
        YValues.Order = loNone
      end
      object Series6: TFastLineSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        LinePen.Color = clFuchsia
        XValues.Name = 'X'
        XValues.Order = loAscending
        YValues.Name = 'Y'
        YValues.Order = loNone
      end
      object Series7: TFastLineSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        SeriesColor = clBlack
        XValues.Name = 'X'
        XValues.Order = loAscending
        YValues.Name = 'Y'
        YValues.Order = loNone
      end
      object Series8: TFastLineSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        SeriesColor = clLime
        LinePen.Color = clLime
        XValues.Name = 'X'
        XValues.Order = loAscending
        YValues.Name = 'Y'
        YValues.Order = loNone
      end
      object ChartTool2: TDragMarksTool
      end
      object ChartTool3: TClipSeriesTool
      end
    end
  end
  object Panel2: TPanel
    Left = 448
    Top = 0
    Width = 126
    Height = 463
    Align = alRight
    Color = clWhite
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 124
      Height = 367
      Align = alClient
      Caption = 'Panel3'
      Color = clWhite
      TabOrder = 0
      DesignSize = (
        124
        367)
      object ChartListBox1: TChartListBox
        Left = 1
        Top = 1
        Width = 122
        Height = 365
        Chart = Chart1
        EnableChangeColor = False
        EnableDragSeries = False
        EnableChangeType = False
        ShowSeriesIcon = False
        Align = alClient
        BorderStyle = bsNone
        ExtendedSelect = False
        ItemHeight = 20
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
      end
      object Button3: TButton
        Left = 56
        Top = 336
        Width = 59
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = #21047#26032
        TabOrder = 1
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 368
      Width = 124
      Height = 94
      Align = alBottom
      Color = clWhite
      TabOrder = 1
      DesignSize = (
        124
        94)
      object Button2: TButton
        Left = 16
        Top = 61
        Width = 49
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = #19979#39029
        TabOrder = 0
        OnClick = Button2Click
      end
      object Button1: TButton
        Left = 72
        Top = 61
        Width = 49
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = #19978#39029
        TabOrder = 1
        OnClick = Button1Click
      end
      object ComboBox1: TComboBox
        Left = 8
        Top = 8
        Width = 105
        Height = 21
        Style = csDropDownList
        Anchors = [akRight, akBottom]
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 2
        Text = #22402#30452#21464#21270
        OnChange = ComboBox1Change
        Items.Strings = (
          #22402#30452#21464#21270
          #27700#24179#21464#21270
          #21452#21521#21464#21270)
      end
      object BitBtn1: TBitBtn
        Left = 0
        Top = 32
        Width = 41
        Height = 25
        Caption = '><'
        TabOrder = 3
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 80
        Top = 32
        Width = 33
        Height = 25
        Caption = '<>'
        TabOrder = 4
        OnClick = BitBtn2Click
      end
      object BitBtn3: TBitBtn
        Left = 40
        Top = 32
        Width = 41
        Height = 25
        Caption = 'O'
        TabOrder = 5
        OnClick = BitBtn3Click
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 209
    Top = 49
  end
end