mainform.dfm

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

object Form1: TForm1
  Left = 391
  Top = 340
  BorderStyle = bsDialog
  Caption = 'SSH Client Demo'
  ClientHeight = 482
  ClientWidth = 544
  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 Label5: TLabel
    Left = 8
    Top = 376
    Width = 57
    Height = 13
    Caption = 'Log window'
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 217
    Height = 129
    Caption = 'Connection properties'
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 22
      Height = 13
      Caption = 'Host'
    end
    object Label2: TLabel
      Left = 144
      Top = 24
      Width = 19
      Height = 13
      Caption = 'Port'
    end
    object Edit1: TEdit
      Left = 16
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'localhost'
    end
    object Edit2: TEdit
      Left = 144
      Top = 40
      Width = 49
      Height = 21
      TabOrder = 1
      Text = '22'
    end
    object CheckBox1: TCheckBox
      Left = 16
      Top = 72
      Width = 57
      Height = 17
      Caption = 'SSHv1'
      TabOrder = 2
    end
    object CheckBox2: TCheckBox
      Left = 16
      Top = 96
      Width = 57
      Height = 17
      Caption = 'SSHv2'
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
    object Button1: TButton
      Left = 120
      Top = 80
      Width = 75
      Height = 25
      Caption = 'Connect'
      Default = True
      TabOrder = 4
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 232
    Top = 8
    Width = 305
    Height = 129
    Caption = 'Authentication properties'
    TabOrder = 1
    object Label3: TLabel
      Left = 16
      Top = 24
      Width = 48
      Height = 13
      Caption = 'Username'
    end
    object Label4: TLabel
      Left = 160
      Top = 24
      Width = 46
      Height = 13
      Caption = 'Password'
    end
    object Label6: TLabel
      Left = 16
      Top = 80
      Width = 239
      Height = 13
      Caption = 'Private key file for PUBLICKEY authentication type'
    end
    object Edit3: TEdit
      Left = 16
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object Edit4: TEdit
      Left = 160
      Top = 40
      Width = 121
      Height = 21
      PasswordChar = '*'
      TabOrder = 1
    end
    object Edit6: TEdit
      Left = 16
      Top = 96
      Width = 241
      Height = 21
      TabOrder = 2
    end
    object BrowseBtn: TButton
      Left = 256
      Top = 96
      Width = 23
      Height = 22
      Caption = '...'
      TabOrder = 3
      OnClick = BrowseBtnClick
    end
  end
  object Memo1: TMemo
    Left = 8
    Top = 144
    Width = 529
    Height = 201
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object Memo2: TMemo
    Left = 8
    Top = 392
    Width = 529
    Height = 81
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object Edit5: TEdit
    Left = 168
    Top = 352
    Width = 289
    Height = 21
    TabOrder = 4
  end
  object Button2: TButton
    Left = 464
    Top = 352
    Width = 75
    Height = 25
    Caption = 'Send'
    TabOrder = 5
    OnClick = Button2Click
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctBlocking
    Port = 0
    OnConnect = ClientSocket1Connect
    OnRead = ClientSocket1Read
    Left = 368
    Top = 104
  end
  object OpenDialog1: TOpenDialog
    InitialDir = '.'
    Title = 'Specify file with private key'
    Left = 416
    Top = 104
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 24
    Top = 424
  end
end