testcontrol.dfm

合成实验的上位机程序

        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control16: TPanel
      Left = 400
      Top = 80
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      object Shape16: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control17: TPanel
      Left = 50
      Top = 120
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 16
      object Shape17: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control18: TPanel
      Left = 100
      Top = 120
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 17
      object Shape18: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control19: TPanel
      Left = 150
      Top = 120
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 18
      object Shape19: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control20: TPanel
      Left = 200
      Top = 120
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 19
      object Shape20: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control21: TPanel
      Left = 250
      Top = 120
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 20
      object Shape21: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control22: TPanel
      Left = 300
      Top = 120
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 21
      object Shape22: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control23: TPanel
      Left = 350
      Top = 120
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 22
      object Shape23: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control24: TPanel
      Left = 400
      Top = 120
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 23
      object Shape24: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control25: TPanel
      Left = 50
      Top = 160
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 24
      object Shape25: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control26: TPanel
      Left = 100
      Top = 160
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 25
      object Shape26: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control27: TPanel
      Left = 150
      Top = 160
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 26
      object Shape27: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control28: TPanel
      Left = 200
      Top = 160
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 27
      object Shape28: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control29: TPanel
      Left = 250
      Top = 160
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 28
      object Shape29: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object control30: TPanel
      Left = 300
      Top = 160
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 29
      object Shape30: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control31: TPanel
      Left = 350
      Top = 160
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 30
      object Shape31: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control32: TPanel
      Left = 400
      Top = 160
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 31
      object Shape32: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object control33: TPanel
      Left = 50
      Top = 200
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 32
      object Shape33: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object control34: TPanel
      Left = 100
      Top = 200
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 33
      object Shape34: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object control35: TPanel
      Left = 150
      Top = 200
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 34
      object Shape35: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object control36: TPanel
      Left = 200
      Top = 200
      Width = 50
      Height = 22
      BorderStyle = bsSingle
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 35
      object Shape36: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
  end
  object Button1: TButton
    Left = 32
    Top = 341
    Width = 129
    Height = 33
    Caption = #22797#20301
    Font.Charset = GB2312_CHARSET
    Font.Color = 247
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 184
    Top = 341
    Width = 145
    Height = 33
    Caption = #35797#39564
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 344
    Top = 341
    Width = 137
    Height = 33
    Caption = #26657#39564
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button3Click
  end
end