scanipunit.~dfm

DELPHI 下远程控制源码

        Top = 97
        Width = 16
        Height = 22
        Caption = 'A'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 135
        Top = 97
        Width = 15
        Height = 22
        Caption = 'B'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 150
        Top = 97
        Width = 15
        Height = 22
        Caption = 'C'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 165
        Top = 97
        Width = 16
        Height = 22
        Caption = 'D'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = SpeedButton4Click
      end
      object SpeedButton5: TSpeedButton
        Left = 161
        Top = 123
        Width = 20
        Height = 22
        GroupIndex = 2
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
          00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
          70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
          70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
          70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
          70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
          70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
          00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton5Click
      end
      object SpeedButton6: TSpeedButton
        Left = 161
        Top = 152
        Width = 20
        Height = 22
        GroupIndex = 2
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
          00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
          70E337F33333333337F3E0F33333333370E337F333FF3FF337F3E0F330030033
          70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
          70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
          70E337F33773773337F3E0F33333333370E337F33333333337F3E0F333333333
          70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
          00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton6Click
      end
      object Gauge2: TGauge
        Left = 26
        Top = 179
        Width = 155
        Height = 17
        BackColor = cl3DLight
        ForeColor = clPurple
        Progress = 0
      end
      object Gauge3: TGauge
        Left = 15
        Top = 22
        Width = 52
        Height = 52
        BackColor = clGray
        BorderStyle = bsNone
        ForeColor = clGreen
        Kind = gkPie
        Progress = 18
        ShowText = False
      end
      object Label3: TLabel
        Left = 27
        Top = 101
        Width = 34
        Height = 13
        AutoSize = False
        Caption = #31471#21475#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Gauge4: TGauge
        Left = 78
        Top = 23
        Width = 11
        Height = 52
        Hint = #32447#31243#32531#20914#27744
        ForeColor = 33023
        Kind = gkVerticalBar
        ParentShowHint = False
        Progress = 0
        ShowHint = True
        ShowText = False
      end
      object Label9: TLabel
        Left = 63
        Top = 79
        Width = 72
        Height = 13
        Caption = #21551#21160#32447#31243#25968#65306
      end
      object Panel4: TPanel
        Left = 26
        Top = 121
        Width = 132
        Height = 25
        Alignment = taLeftJustify
        BevelOuter = bvLowered
        Color = clGray
        TabOrder = 0
        object Edit1: TEdit
          Left = 3
          Top = 2
          Width = 25
          Height = 21
          BevelEdges = [beTop, beBottom]
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          TabOrder = 0
          Text = '0'
          OnChange = Edit1Change
          OnKeyUp = Edit1KeyUp
          OnMouseDown = Edit1MouseDown
        end
        object Edit2: TEdit
          Left = 30
          Top = 2
          Width = 25
          Height = 21
          BevelEdges = [beTop, beBottom]
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          TabOrder = 1
          Text = '0'
          OnChange = Edit2Change
          OnKeyUp = Edit2KeyUp
          OnMouseDown = Edit1MouseDown
        end
        object Edit3: TEdit
          Left = 57
          Top = 2
          Width = 25
          Height = 21
          BevelEdges = [beTop, beBottom]
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          TabOrder = 2
          Text = '0'
          OnChange = Edit3Change
          OnKeyUp = Edit3KeyUp
          OnMouseDown = Edit1MouseDown
        end
        object Edit4: TEdit
          Left = 84
          Top = 2
          Width = 25
          Height = 21
          BevelEdges = [beTop, beBottom]
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          TabOrder = 3
          Text = '0'
          OnChange = Edit1Change
          OnKeyUp = Edit4KeyUp
          OnMouseDown = Edit1MouseDown
        end
        object SpinButton1: TSpinButton
          Left = 111
          Top = 3
          Width = 20
          Height = 21
          DownGlyph.Data = {
            BA000000424DBA00000000000000420000002800000009000000060000000100
            1000030000007800000000000000000000000000000000000000007C0000E003
            00001F0000000042004200420042004200420042004200420000004200420042
            0042000000420042004200420000004200420042000000000000004200420042
            0000004200420000000000000000000000420042000000420000000000000000
            000000000000004200000042004200420042004200420042004200420000}
          TabOrder = 4
          UpGlyph.Data = {
            BA000000424DBA00000000000000420000002800000009000000060000000100
            1000030000007800000000000000000000000000000000000000007C0000E003
            00001F0000000042004200420042004200420042004200420000004200000000
            0000000000000000000000420000004200420000000000000000000000420042
            0000004200420042000000000000004200420042000000420042004200420000
            004200420042004200000042004200420042004200420042004200420000}
          OnDownClick = SpinButton1DownClick
          OnUpClick = SpinButton1UpClick
        end
      end
      object Panel5: TPanel
        Left = 26
        Top = 150
        Width = 132
        Height = 25
        Alignment = taLeftJustify
        BevelOuter = bvLowered
        Color = clGray
        TabOrder = 1
        object Edit5: TEdit
          Left = 3
          Top = 2
          Width = 25
          Height = 21
          BevelEdges = [beTop, beBottom]
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          TabOrder = 0
          Text = '0'
          OnChange = Edit1Change
          OnKeyUp = Edit5KeyUp
          OnMouseDown = Edit5MouseDown
        end
        object Edit6: TEdit
          Left = 30
          Top = 2
          Width = 25
          Height = 21
          BevelEdges = [beTop, beBottom]
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          TabOrder = 1
          Text = '0'
          OnChange = Edit1Change
          OnKeyUp = Edit6KeyUp
          OnMouseDown = Edit5MouseDown
        end
        object Edit7: TEdit
          Left = 57
          Top = 2
          Width = 25
          Height = 21
          BevelEdges = [beTop, beBottom]
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          TabOrder = 2
          Text = '0'
          OnChange = Edit1Change
          OnKeyUp = Edit7KeyUp
          OnMouseDown = Edit5MouseDown
        end
        object Edit8: TEdit
          Left = 84
          Top = 2
          Width = 25
          Height = 21
          BevelEdges = [beTop, beBottom]
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          TabOrder = 3
          Text = '0'
          OnChange = Edit1Change
          OnKeyUp = Edit8KeyUp
          OnMouseDown = Edit5MouseDown
        end
        object SpinButton2: TSpinButton
          Left = 111
          Top = 3
          Width = 20
          Height = 21
          DownGlyph.Data = {
            BA000000424DBA00000000000000420000002800000009000000060000000100
            1000030000007800000000000000000000000000000000000000007C0000E003
            00001F0000000042004200420042004200420042004200420000004200420042
            0042000000420042004200420000004200420042000000000000004200420042
            0000004200420000000000000000000000420042000000420000000000000000
            000000000000004200000042004200420042004200420042004200420000}
          TabOrder = 4
          UpGlyph.Data = {
            BA000000424DBA00000000000000420000002800000009000000060000000100
            1000030000007800000000000000000000000000000000000000007C0000E003
            00001F0000000042004200420042004200420042004200420000004200000000
            0000000000000000000000420000004200420000000000000000000000420042
            0000004200420042000000000000004200420042000000420042004200420000
            004200420042004200000042004200420042004200420042004200420000}
          OnDownClick = SpinButton2DownClick
          OnUpClick = SpinButton2UpClick
        end
      end
      object RadioGroup1: TRadioGroup
        Left = 108
        Top = 8
        Width = 73
        Height = 57
        ItemIndex = 0
        Items.Strings = (
          'Ping'
          #25353#31471#21475)
        TabOrder = 2
        OnClick = RadioGroup1Click
      end
      object Edit9: TEdit
        Left = 63
        Top = 97
        Width = 54
        Height = 21
        Color = clNavy
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Text = '51888'
      end