sendcommand.dfm

这是一个正式的项目工程

object frmSendCommand: TfrmSendCommand
  Left = 75
  Top = 100
  Width = 671
  Height = 470
  Caption = '请输入工程名称和楼栋编号'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clHighlight
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object PanelSecond: TPanel
    Left = 48
    Top = 8
    Width = 538
    Height = 420
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 161
      Top = 1
      Width = 3
      Height = 366
      Cursor = crHSplit
    end
    object Panel1: TPanel
      Left = 1
      Top = 367
      Width = 536
      Height = 52
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 0
      object Panel4: TPanel
        Left = 1
        Top = 1
        Width = 352
        Height = 50
        Align = alLeft
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object PanelProgress: TPanel
          Left = 97
          Top = 2
          Width = 253
          Height = 46
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 0
          object LabelProgress: TLabel
            Left = 4
            Top = 7
            Width = 24
            Height = 12
            Caption = '进度'
            Font.Charset = GB2312_CHARSET
            Font.Color = clHighlight
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object GaugeProgress: TGauge
            Left = 17
            Top = 22
            Width = 215
            Height = 20
            Color = clBlue
            ParentColor = False
            Progress = 0
          end
        end
        object Panel15: TPanel
          Left = 2
          Top = 2
          Width = 95
          Height = 46
          Align = alLeft
          TabOrder = 1
          object LabelCommErr: TLabel
            Left = 8
            Top = 0
            Width = 28
            Height = 14
            Caption = 'Err:'
            Visible = False
          end
          object ComLed5: TComLed
            Left = 4
            Top = 8
            Width = 25
            Height = 25
            ComPort = ComPort
            LedSignal = lsTx
            Kind = lkRedLight
          end
          object ComLed6: TComLed
            Left = 36
            Top = 8
            Width = 25
            Height = 25
            ComPort = ComPort
            LedSignal = lsRx
            Kind = lkRedLight
          end
          object ComLed1: TComLed
            Left = 68
            Top = 8
            Width = 25
            Height = 25
            ComPort = ComPort
            LedSignal = lsConn
            Kind = lkRedLight
          end
          object labelOpen: TLabel
            Left = 65
            Top = 32
            Width = 24
            Height = 12
            Caption = '开闭'
            Font.Charset = GB2312_CHARSET
            Font.Color = clHighlight
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label6: TLabel
            Left = 34
            Top = 32
            Width = 24
            Height = 12
            Caption = '接收'
            Font.Charset = GB2312_CHARSET
            Font.Color = clHighlight
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label1: TLabel
            Left = 4
            Top = 32
            Width = 24
            Height = 12
            Caption = '发送'
            Font.Charset = GB2312_CHARSET
            Font.Color = clHighlight
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
        end
      end
      object Panel5: TPanel
        Left = 353
        Top = 1
        Width = 182
        Height = 50
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object Label9: TLabel
          Left = 3
          Top = 6
          Width = 52
          Height = 13
          Caption = '工程名称'
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 3
          Top = 26
          Width = 52
          Height = 13
          Caption = '楼栋编号'
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object LabelCurrentProject: TLabel
          Left = 60
          Top = 6
          Width = 42
          Height = 13
          Caption = 'Label9'
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object LabelCurrentHourse: TLabel
          Left = 60
          Top = 26
          Width = 42
          Height = 13
          Caption = 'Label9'
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
      end
    end
    object Panel2: TPanel
      Left = 164
      Top = 1
      Width = 373
      Height = 366
      Align = alClient
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 158
        Top = 1
        Width = 3
        Height = 330
        Cursor = crHSplit
      end
      object Panel3: TPanel
        Left = 1
        Top = 331
        Width = 371
        Height = 34
        Align = alBottom
        BevelOuter = bvLowered
        TabOrder = 0
        object BitBtnSendCommand: TBitBtn
          Left = 187
          Top = 5
          Width = 90
          Height = 25
          Action = ActionSendCommand
          Caption = '发布命令(&S)'
          Font.Charset = GB2312_CHARSET
          Font.Color = clHighlight
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            5555555555FFFFF5555555555000005555555555F777775FF555555008877700
            55555557755FFF775F55550887000777055555755F777FFF75F550880FBFBF07
            705557F57755577FF7F55080F00000F07055575755777557F75F087F00B3300F
            77057F5757555757FF7F080B0B3B330B07057F757F5555757F7F0F0F0BBBB30F