testcontrol.dfm

合成实验的上位机程序

      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Shape46: TShape
      Left = 50
      Top = 265
      Width = 30
      Height = 30
      Shape = stCircle
    end
    object Shape47: TShape
      Left = 95
      Top = 265
      Width = 30
      Height = 30
      Shape = stCircle
    end
    object Shape48: TShape
      Left = 140
      Top = 265
      Width = 30
      Height = 30
      Shape = stCircle
    end
    object Shape49: TShape
      Left = 185
      Top = 265
      Width = 30
      Height = 30
      Shape = stCircle
    end
    object Shape50: TShape
      Left = 285
      Top = 265
      Width = 30
      Height = 30
      Shape = stCircle
    end
    object Shape51: TShape
      Left = 330
      Top = 265
      Width = 30
      Height = 30
      Shape = stCircle
    end
    object Shape52: TShape
      Left = 375
      Top = 265
      Width = 30
      Height = 30
      Shape = stCircle
    end
    object Shape53: TShape
      Left = 420
      Top = 265
      Width = 30
      Height = 30
      Shape = stCircle
    end
    object Label33: TLabel
      Left = 112
      Top = 310
      Width = 56
      Height = 14
      Alignment = taCenter
      Caption = #24310#24359#24320#38145
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label34: TLabel
      Left = 333
      Top = 310
      Width = 56
      Height = 14
      Alignment = taCenter
      Caption = #39640#21387#24320#38145
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label41: TLabel
      Left = 54
      Top = 222
      Width = 42
      Height = 14
      Alignment = taCenter
      Caption = #25511#21046'33'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label42: TLabel
      Left = 104
      Top = 222
      Width = 42
      Height = 14
      Alignment = taCenter
      Caption = #25511#21046'34'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label43: TLabel
      Left = 154
      Top = 222
      Width = 42
      Height = 14
      Alignment = taCenter
      Caption = #25511#21046'35'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label44: TLabel
      Left = 204
      Top = 222
      Width = 42
      Height = 14
      Alignment = taCenter
      Caption = #25511#21046'36'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Bevel2: TBevel
      Left = 25
      Top = 260
      Width = 215
      Height = 40
    end
    object Bevel3: TBevel
      Left = 260
      Top = 260
      Width = 215
      Height = 40
    end
    object Label35: TLabel
      Left = 360
      Top = 207
      Width = 18
      Height = 12
      Caption = '  '#9679'  '
      Color = clGrayText
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -10
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label36: TLabel
      Left = 415
      Top = 207
      Width = 18
      Height = 12
      Caption = '  '#9679'  '
      Color = clGrayText
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -10
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Bevel1: TBevel
      Left = 25
      Top = 25
      Width = 450
      Height = 225
    end
    object Label37: TLabel
      Left = 240
      Top = 304
      Width = 12
      Height = 21
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Control1: TPanel
      Left = 50
      Top = 40
      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 = 0
      object Shape1: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control2: TPanel
      Left = 100
      Top = 40
      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 = 1
      object Shape2: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 13
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control3: TPanel
      Left = 150
      Top = 40
      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 = 2
      object Shape3: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control4: TPanel
      Left = 200
      Top = 40
      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 = 3
      object Shape4: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control5: TPanel
      Left = 250
      Top = 40
      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 = 4
      object Shape5: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control6: TPanel
      Left = 300
      Top = 40
      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 = 5
      object Shape6: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control7: TPanel
      Left = 350
      Top = 40
      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 = 6
      object Shape7: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control8: TPanel
      Left = 400
      Top = 40
      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 = 7
      object Shape8: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control9: TPanel
      Left = 50
      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 = 8
      object Shape9: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control10: TPanel
      Left = 100
      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 = 9
      object Shape10: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control11: TPanel
      Left = 150
      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 = 10
      object Shape11: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control12: TPanel
      Left = 200
      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 = 11
      object Shape12: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control13: TPanel
      Left = 250
      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 = 12
      object Shape13: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control14: TPanel
      Left = 300
      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 = 13
      object Shape14: TShape
        Left = 19
        Top = 4
        Width = 10
        Height = 10
        Brush.Color = clSilver
        Pen.Color = clGrayText
        Shape = stCircle
      end
    end
    object Control15: TPanel
      Left = 350
      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 = 14
      object Shape15: TShape
        Left = 19