mainform.dfm

来自「著名的SecureBlackBox控件完整源码」· DFM 代码 · 共 525 行 · 第 1/2 页

object frmMain: TfrmMain
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'SSH local port forwarding demo application'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object pConnProps: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 453
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object lblSSHProps: TLabel
      Left = 8
      Top = 8
      Width = 169
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'SSH settings'
      Color = clAppWorkSpace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object lblHost: TLabel
      Left = 8
      Top = 32
      Width = 77
      Height = 13
      Caption = 'Server address:'
    end
    object lblPort: TLabel
      Left = 136
      Top = 32
      Width = 24
      Height = 13
      Caption = 'Port:'
    end
    object lblUsername: TLabel
      Left = 8
      Top = 80
      Width = 52
      Height = 13
      Caption = 'Username:'
    end
    object lblPassword: TLabel
      Left = 8
      Top = 128
      Width = 50
      Height = 13
      Caption = 'Password:'
    end
    object lblForwardingProps: TLabel
      Left = 8
      Top = 184
      Width = 169
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'Forwarding settings'
      Color = clAppWorkSpace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object lblLocalPort: TLabel
      Left = 8
      Top = 208
      Width = 51
      Height = 13
      Caption = 'Local port:'
    end
    object lblDestination: TLabel
      Left = 8
      Top = 256
      Width = 126
      Height = 13
      Caption = 'Destination host and port:'
    end
    object editHost: TEdit
      Left = 8
      Top = 48
      Width = 121
      Height = 21
      TabOrder = 0
      Text = '192.168.0.67'
    end
    object editPort: TEdit
      Left = 136
      Top = 48
      Width = 41
      Height = 21
      TabOrder = 1
      Text = '22'
    end
    object editUsername: TEdit
      Left = 8
      Top = 96
      Width = 105
      Height = 21
      TabOrder = 2
      Text = 'root'
    end
    object editPassword: TEdit
      Left = 8
      Top = 144
      Width = 105
      Height = 21
      PasswordChar = '*'
      TabOrder = 3
      Text = ''
    end
    object editLocalPort: TEdit
      Left = 8
      Top = 224
      Width = 41
      Height = 21
      TabOrder = 4
      Text = '5001'
    end
    object editDestHost: TEdit
      Left = 8
      Top = 272
      Width = 121
      Height = 21
      TabOrder = 5
      Text = '127.0.0.1'
    end
    object editDestPort: TEdit
      Left = 136
      Top = 272
      Width = 41
      Height = 21
      TabOrder = 6
      Text = '5001'
    end
    object btnStart: TButton
      Left = 56
      Top = 328
      Width = 75
      Height = 25
      Caption = 'Start'
      Default = True
      TabOrder = 7
      OnClick = btnStartClick
    end
  end
  object pClient: TPanel
    Left = 185
    Top = 0
    Width = 503
    Height = 453
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object pLog: TPanel
      Left = 0
      Top = 328
      Width = 503
      Height = 125
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object lvLog: TListView
        Left = 0
        Top = 0
        Width = 503
        Height = 125
        Align = alClient
        Columns = <
          item
            Caption = 'Time'
            Width = 80
          end
          item
            Caption = 'Event'
            Width = 400
          end>
        ReadOnly = True
        RowSelect = True
        SmallImages = imgLog
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object lvConnections: TListView
      Left = 0
      Top = 0
      Width = 503
      Height = 328
      Align = alClient
      Columns = <
        item
          Caption = 'Host'
          Width = 120
        end
        item
          Caption = 'Sent'
          Width = 80
        end
        item
          Caption = 'Received'
          Width = 80
        end
        item
          Caption = 'Input state'
          Width = 80
        end
        item
          Caption = 'Output state'
          Width = 80
        end>
      ReadOnly = True
      RowSelect = True
      SmallImages = imgConnections
      TabOrder = 1
      ViewStyle = vsReport
    end
  end
  object imgConnections: TImageList
    Left = 216
    Top = 88
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000E1EEFB00B3D4F60086BAF00086BAF00086BAF000C3DDF700F0F6
      FD00000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000E1EEFB004A98E80059A0EA0068A9EC004A98E80068A9EC0059A0EA0059A0
      EA00F0F6FD000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000086BAF00059A0EA000E76E1000E76E1000E76E1000E76E1000E76E10068A9