mainform.dfm

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

object FormMain: TFormMain
  Left = 203
  Top = 111
  Width = 741
  Height = 510
  Caption = 'SSH Local Port Forwarding Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 209
    Height = 483
    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 = 20
      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 = 47
      Height = 13
      Caption = 'Local port'
    end
    object Label6: TLabel
      Left = 8
      Top = 216
      Width = 105
      Height = 13
      Caption = 'Remote host and port'
    end
    object Label7: TLabel
      Left = 8
      Top = 304
      Width = 48
      Height = 13
      Caption = 'Username'
    end
    object Label8: TLabel
      Left = 112
      Top = 304
      Width = 46
      Height = 13
      Caption = 'Password'
    end
    object Label9: TLabel
      Left = 8
      Top = 352
      Width = 46
      Height = 13
      Caption = 'Database'
    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 = 'ssh-server-host.com'
    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
      Text = 'user'
    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 EditLocalPort: TEdit
      Left = 8
      Top = 184
      Width = 57
      Height = 21
      TabOrder = 6
      Text = '3306'
    end
    object EditRemoteHost: TEdit
      Left = 8
      Top = 232
      Width = 137
      Height = 21
      TabOrder = 7
      Text = '127.0.0.1'
    end
    object EditRemotePort: TEdit
      Left = 152
      Top = 232
      Width = 49
      Height = 21
      TabOrder = 8
      Text = '3306'
    end
    object ButtonStart: TButton
      Left = 64
      Top = 408
      Width = 75
      Height = 25
      Caption = 'Start'
      Default = True
      TabOrder = 9
      OnClick = ButtonStartClick
    end
    object Panel3: TPanel
      Left = 8
      Top = 272
      Width = 193
      Height = 17
      BevelOuter = bvLowered
      Caption = 'MySQL setup'
      Color = clAppWorkSpace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
    end
    object EditDBUsername: TEdit
      Left = 8
      Top = 320
      Width = 89
      Height = 21
      TabOrder = 11
      Text = 'root'
    end
    object EditDBPassword: TEdit
      Left = 112
      Top = 320
      Width = 89
      Height = 21
      PasswordChar = '*'
      TabOrder = 12
    end
    object EditDBName: TEdit
      Left = 8
      Top = 368
      Width = 121
      Height = 21
      TabOrder = 13
      Text = 'mydb'
    end
  end
  object PanelClient: TPanel
    Left = 209
    Top = 0
    Width = 524
    Height = 483
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 0
      Top = 382
      Width = 524
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object ListView: TListView
      Left = 0
      Top = 385
      Width = 524
      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 = 524
      Height = 382
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object ListViewConnections: TListView
        Left = 0
        Top = 280
        Width = 524
        Height = 102
        Align = alBottom
        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
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 524
        Height = 65
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Label10: TLabel
          Left = 8
          Top = 8
          Width = 54
          Height = 13
          Caption = 'SQL query:'
        end
        object EditQuery: TEdit