mainform.dfm

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

object frmMain: TfrmMain
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'SSH Remote 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 = 201
    Height = 453
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object lblHost: TLabel
      Left = 8
      Top = 32
      Width = 98
      Height = 13
      Caption = 'SSH server address:'
    end
    object lblPort: TLabel
      Left = 144
      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 lblForwardedPort: TLabel
      Left = 8
      Top = 200
      Width = 118
      Height = 13
      Caption = 'Remote port to forward:'
    end
    object lblForwardToHost: TLabel
      Left = 8
      Top = 248
      Width = 126
      Height = 13
      Caption = 'Destination host and port:'
    end
    object editHost: TEdit
      Left = 8
      Top = 48
      Width = 129
      Height = 21
      TabOrder = 0
      Text = '192.168.0.67'
    end
    object pSSHSettings: TPanel
      Left = 8
      Top = 8
      Width = 185
      Height = 17
      BevelOuter = bvLowered
      Caption = 'SSH settings'
      Color = clAppWorkSpace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object editPort: TEdit
      Left = 144
      Top = 48
      Width = 49
      Height = 21
      TabOrder = 2
      Text = '22'
    end
    object editUsername: TEdit
      Left = 8
      Top = 96
      Width = 113
      Height = 21
      TabOrder = 3
      Text = 'root'
    end
    object editPassword: TEdit
      Left = 8
      Top = 144
      Width = 113
      Height = 21
      PasswordChar = '*'
      TabOrder = 4
      Text = ''
    end
    object pForwardingSettings: TPanel
      Left = 8
      Top = 176
      Width = 185
      Height = 17
      BevelOuter = bvLowered
      Caption = 'Forwarding settings'
      Color = clAppWorkSpace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object editForwardedPort: TEdit
      Left = 8
      Top = 216
      Width = 65
      Height = 21
      TabOrder = 6
      Text = '3333'
    end
    object editForwardToHost: TEdit
      Left = 8
      Top = 264
      Width = 129
      Height = 21
      TabOrder = 7
      Text = 'www.eldos.com'
    end
    object editForwardToPort: TEdit
      Left = 144
      Top = 264
      Width = 49
      Height = 21
      TabOrder = 8
      Text = '80'
    end
    object btnStart: TButton
      Left = 56
      Top = 304
      Width = 81
      Height = 25
      Caption = 'Start'
      Default = True
      TabOrder = 9
      OnClick = btnStartClick
    end
  end
  object pClient: TPanel
    Left = 201
    Top = 0
    Width = 487
    Height = 453
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object pLog: TPanel
      Left = 0
      Top = 336
      Width = 487
      Height = 117
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object lvLog: TListView
        Left = 0
        Top = 0
        Width = 487
        Height = 117
        Align = alClient
        Columns = <
          item
            Caption = 'Time'
            Width = 80
          end
          item
            Caption = 'Event'
            Width = 320
          end>
        ReadOnly = True
        RowSelect = True
        SmallImages = imgLog
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object pConnections: TPanel
      Left = 0
      Top = 0
      Width = 487
      Height = 336
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object lvConnections: TListView
        Left = 0
        Top = 0
        Width = 487
        Height = 336
        Align = alClient
        Columns = <
          item
            Caption = 'Host'
            Width = 130
          end
          item
            Caption = 'Sent'
            Width = 80
          end
          item
            Caption = 'Received'
            Width = 80
          end
          item
            Caption = 'Input state'
            Width = 60
          end
          item
            Caption = 'Output state'
            Width = 60
          end>
        ReadOnly = True
        RowSelect = True
        SmallImages = imgConnections
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
  object imgConnections: TImageList
    Left = 265
    Top = 104
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000E1EEFB00B3D4F60086BAF00086BAF00086BAF000C3DDF700F0F6
      FD00000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000E1EEFB004A98E80059A0EA0068A9EC004A98E80068A9EC0059A0EA0059A0
      EA00F0F6FD000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000