mainform.dfm

来自「著名的SecureBlackBox控件完整源码」· DFM 代码 · 共 194 行

object frmChatClient: TfrmChatClient
  Left = 315
  Top = 212
  Width = 467
  Height = 306
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'Indy Chat over SSH Client Demo'
  Color = clBtnFace
  Constraints.MinHeight = 220
  Constraints.MinWidth = 220
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnCanResize = FormCanResize
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object lMessages: TLabel
    Left = 144
    Top = 39
    Width = 51
    Height = 13
    Caption = 'Messages:'
  end
  object lYourMessage: TLabel
    Left = 133
    Top = 243
    Width = 71
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Your Message:'
  end
  object lOnline: TLabel
    Left = 1
    Top = 39
    Width = 56
    Height = 13
    Caption = 'Now online:'
  end
  object lbClients: TListBox
    Left = 0
    Top = 56
    Width = 129
    Height = 223
    Hint = 'This shows all the people currently online'
    Anchors = [akLeft, akTop, akBottom]
    ItemHeight = 13
    TabOrder = 0
  end
  object memMessages: TMemo
    Left = 131
    Top = 56
    Width = 329
    Height = 185
    Hint = 'Current Messages since you logged in.'
    Anchors = [akLeft, akTop, akRight, akBottom]
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object edMessage: TEdit
    Left = 131
    Top = 259
    Width = 328
    Height = 21
    Anchors = [akLeft, akRight, akBottom]
    TabOrder = 3
    OnKeyPress = edMessageKeyPress
  end
  object btnRefresh: TButton
    Left = 72
    Top = 36
    Width = 57
    Height = 18
    Caption = 'Refresh'
    TabOrder = 2
    OnClick = btnRefreshClick
  end
  object pTop: TPanel
    Left = 0
    Top = 0
    Width = 459
    Height = 31
    Align = alTop
    TabOrder = 4
    object btnConnect: TSpeedButton
      Left = 432
      Top = 4
      Width = 23
      Height = 22
      Hint = 'Connect/Disconnect'
      AllowAllUp = True
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00333333000030FFFFFFFFFFF03333330000330F0F0F0F0F0333333300000000
        FFFFFFF00003333300000FF800000008FF03333300000F9FFFFFFFF000033333
        00000FFFFFFFFFFFFF0333330000300000000000003333330000333000000000
        3333333300003330FFFF00703333333300003330F0000B307833333300003330
        F0CCC0BB0078333300003330F0CCC00BB300733300003330F00000F0BBB00733
        00003330FFFFFFF00BBB00830000333000000000BBB008330000333333333330
        0BBB00830000333333333333300BB008000033333333333333300B0000003333
        33333333333330000000}
      OnClick = btnConnectClick
    end
    object lServer: TLabel
      Left = 8
      Top = 8
      Width = 75
      Height = 13
      Caption = 'Server Address:'
    end
    object lPort: TLabel
      Left = 315
      Top = 8
      Width = 56
      Height = 13
      Caption = 'Server Port:'
    end
    object edServer: TEdit
      Left = 88
      Top = 5
      Width = 193
      Height = 21
      Hint = 'This is the address to the server that you want to connect to.'
      TabOrder = 0
      Text = 'localhost'
    end
    object sePort: TSpinEdit
      Left = 376
      Top = 5
      Width = 52
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 1
      Value = 23
    end
  end
  object tmrRefresh: TTimer
    Interval = 50
    OnTimer = tmrRefreshTimer
    Left = 344
    Top = 144
  end
  object dlgCert: TOpenDialog
    DefaultExt = 'ext'
    Filter = 'Certificate in PKCS#12 format (*.pfx)|*.pfx'
    Options = [ofReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 184
    Top = 144
  end
  object SSHTransport: TElClientIndySSHTransport
    Port = 0
    AuthenticationTypes = 22
    CloseIfNoActiveTunnels = True
    CompressionLevel = 6
    ForceCompression = False
    SoftwareName = 'EldoS.SSHBlackbox.3'
    Versions = [sbSSH1, sbSSH2]
    OnAuthenticationFailed = SSHTransportAuthenticationFailed
    OnAuthenticationSuccess = SSHTransportAuthenticationSuccess
    OnCloseConnection = SSHTransportCloseConnection
    OnKeyValidate = SSHTransportKeyValidate
    OnOpenConnection = SSHTransportOpenConnection
    Left = 224
    Top = 144
  end
  object SSHClientIOHandler: TElClientIndySSHIOHandlerSocket
    OwnTunnel = True
    Transport = SSHTransport
    TunnelType = ttSubsystem
    ToPort = 0
    ScreenNumber = -1
    Left = 264
    Top = 144
  end
  object SSHTCPClient: TIdTCPClient
    IOHandler = SSHClientIOHandler
    MaxLineAction = maException
    Port = 0
    Left = 304
    Top = 144
  end
end