mainform.dfm

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

object FormMain: TFormMain
  Left = 204
  Top = 114
  Width = 730
  Height = 573
  Caption = 'SSH Remote Port Forwarding Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 209
    Height = 539
    Align = alLeft
    Caption = 'Connections options'
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 40
      Width = 22
      Height = 13
      Caption = 'Host'
    end
    object Label2: TLabel
      Left = 152
      Top = 40
      Width = 19
      Height = 13
      Caption = 'Port'
    end
    object Label3: TLabel
      Left = 8
      Top = 88
      Width = 48
      Height = 13
      Caption = 'Username'
    end
    object Label4: TLabel
      Left = 112
      Top = 88
      Width = 46
      Height = 13
      Caption = 'Password'
    end
    object Label5: TLabel
      Left = 8
      Top = 168
      Width = 93
      Height = 13
      Caption = 'Server listening port'
    end
    object Label6: TLabel
      Left = 8
      Top = 216
      Width = 118
      Height = 13
      Caption = 'Destination host and port'
    end
    object Panel1: TPanel
      Left = 8
      Top = 16
      Width = 193
      Height = 17
      BevelOuter = bvLowered
      Caption = 'SSH'
      Color = clAppWorkSpace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object EditHost: TEdit
      Left = 8
      Top = 56
      Width = 137
      Height = 21
      TabOrder = 1
      Text = '192.168.0.1'
    end
    object EditPort: TEdit
      Left = 152
      Top = 56
      Width = 49
      Height = 21
      TabOrder = 2
      Text = '22'
    end
    object EditUsername: TEdit
      Left = 8
      Top = 104
      Width = 89
      Height = 21
      TabOrder = 3
    end
    object EditPassword: TEdit
      Left = 112
      Top = 104
      Width = 89
      Height = 21
      PasswordChar = '*'
      TabOrder = 4
    end
    object Panel2: TPanel
      Left = 8
      Top = 144
      Width = 193
      Height = 17
      BevelOuter = bvLowered
      Caption = 'Forwarding'
      Color = clAppWorkSpace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object EditListeningPort: TEdit
      Left = 8
      Top = 184
      Width = 57
      Height = 21
      TabOrder = 6
      Text = '8871'
    end
    object EditDestHost: TEdit
      Left = 8
      Top = 232
      Width = 137
      Height = 21
      TabOrder = 7
      Text = 'www.google.com'
    end
    object EditDestPort: TEdit
      Left = 152
      Top = 232
      Width = 49
      Height = 21
      TabOrder = 8
      Text = '80'
    end
    object ButtonStart: TButton
      Left = 64
      Top = 272
      Width = 75
      Height = 25
      Caption = 'Start'
      Default = True
      TabOrder = 9
      OnClick = ButtonStartClick
    end
  end
  object PanelClient: TPanel
    Left = 209
    Top = 0
    Width = 513
    Height = 539
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 0
      Top = 438
      Width = 513
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object ListView: TListView
      Left = 0
      Top = 441
      Width = 513
      Height = 98
      Align = alBottom
      Columns = <
        item
          Width = 25
        end
        item
          Caption = 'Timestamp'
          Width = 150
        end
        item
          Caption = 'Event'
          Width = 300
        end>
      LargeImages = ImageList
      ReadOnly = True
      RowSelect = True
      SmallImages = ImageList
      TabOrder = 0
      ViewStyle = vsReport
    end
    object PanelStatus: TPanel
      Left = 0
      Top = 0
      Width = 513
      Height = 438
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object ListViewConnections: TListView
        Left = 0
        Top = 0
        Width = 513
        Height = 438
        Align = alClient
        Columns = <
          item
            Width = 25
          end
          item
            Caption = 'Address'
            Width = 120
          end
          item
            Caption = 'Sent'
            Width = 70
          end
          item
            Caption = 'Received'
            Width = 70
          end
          item
            Caption = 'State'
            Width = 100
          end>
        LargeImages = ImageListConns
        ReadOnly = True
        RowSelect = True
        SmallImages = ImageListConns
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocketConnect
    OnDisconnect = ClientSocketDisconnect
    OnRead = ClientSocketRead
    Left = 104
    Top = 176
  end
  object ElSSHClient: TElSSHClient
    SoftwareName = 'EldoS_SSH'
    ForceCompression = False
    CompressionLevel = 6
    AuthenticationTypes = 22
    CloseIfNoActiveTunnels = False
    OnSend = ElSSHClientSend
    OnReceive = ElSSHClientReceive
    OnOpenConnection = ElSSHClientOpenConnection
    OnCloseConnection = ElSSHClientCloseConnection
    OnDebugData = ElSSHClientDebugData
    OnError = ElSSHClientError
    Versions = [sbSSH1, sbSSH2]
    TunnelList = ElSSHTunnelList
    OnKeyValidate = ElSSHClientKeyValidate
    OnAuthenticationSuccess = ElSSHClientAuthenticationSuccess
    OnAuthenticationFailed = ElSSHClientAuthenticationFailed
    ThreadSafe = True
    Left = 136
    Top = 176
  end
  object ElSSHTunnelList: TElSSHTunnelList
    Left = 200
    Top = 176
  end
  object ImageList: TImageList
    Left = 233
    Top = 176
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000