mainform.dfm

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

object frmMain: TfrmMain
  Left = 283
  Top = 142
  Width = 667
  Height = 511
  Caption = 'ElSFTPServer/ElSSHServer Demo Application'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter: TSplitter
    Left = 0
    Top = 341
    Width = 659
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 659
    Height = 24
    Caption = 'ToolBar'
    Flat = True
    Images = ImageListToolbar
    TabOrder = 0
    object btnStart: TToolButton
      Left = 0
      Top = 0
      Hint = 'Start'
      Caption = 'btnStart'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = btnStartClick
    end
    object btnStop: TToolButton
      Left = 23
      Top = 0
      Hint = 'Stop'
      Caption = 'btnStop'
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = btnStopClick
    end
    object btnDelim1: TToolButton
      Left = 46
      Top = 0
      Width = 8
      Caption = 'btnDelim1'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object btnAuthSettings: TToolButton
      Left = 54
      Top = 0
      Hint = 'Authentication settings'
      Caption = 'btnAuthSettings'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = btnAuthSettingsClick
    end
    object btnServerSettings: TToolButton
      Left = 77
      Top = 0
      Hint = 'Server settings'
      Caption = 'btnServerSettings'
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = btnServerSettingsClick
    end
    object btnDelim2: TToolButton
      Left = 100
      Top = 0
      Width = 8
      Caption = 'btnDelim2'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object btnKillConn: TToolButton
      Left = 108
      Top = 0
      Hint = 'Kill selected connection'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = btnKillConnClick
    end
  end
  object pLog: TPanel
    Left = 0
    Top = 344
    Width = 659
    Height = 113
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object lvLog: TListView
      Left = 0
      Top = 0
      Width = 659
      Height = 94
      Align = alClient
      Columns = <
        item
          Caption = 'Time'
          Width = 80
        end
        item
          Caption = 'Event'
          Width = 450
        end>
      ReadOnly = True
      RowSelect = True
      SmallImages = ImageListLog
      TabOrder = 0
      ViewStyle = vsReport
    end
    object StatusBar: TStatusBar
      Left = 0
      Top = 94
      Width = 659
      Height = 19
      Panels = <
        item
          Width = 120
        end
        item
          Width = 50
        end>
      SimplePanel = False
    end
  end
  object pClient: TPanel
    Left = 0
    Top = 24
    Width = 659
    Height = 317
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object lvConnections: TListView
      Left = 0
      Top = 0
      Width = 659
      Height = 317
      Align = alClient
      Columns = <
        item
          Caption = 'Remote host'
          Width = 120
        end
        item
          Caption = 'User'
          Width = 90
        end
        item
          Caption = 'Status'
          Width = 80
        end
        item
          Caption = 'Tunnels'
          Width = 100
        end>
      ReadOnly = True
      RowSelect = True
      SmallImages = ImageListClients
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object MainMenu: TMainMenu
    Images = ImageListToolbar
    Left = 208
    object mnuServer: TMenuItem
      Caption = 'Server'
      object mnuStart: TMenuItem
        Caption = 'Start...'
        ImageIndex = 0
        OnClick = mnuStartClick
      end
      object mnuStop: TMenuItem
        Caption = 'Stop'
        ImageIndex = 1
        OnClick = mnuStopClick
      end
      object mnuBreak: TMenuItem
        Caption = '-'
      end
      object mnuExit: TMenuItem
        Caption = 'Exit'
        OnClick = mnuExitClick
      end
    end
    object mnuHelp: TMenuItem
      Caption = 'Help'
      object mnuAbout: TMenuItem
        Caption = 'About...'
        OnClick = mnuAboutClick
      end
    end
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 0
    ServerType = stThreadBlocking
    ThreadCacheSize = 0
    OnGetThread = ServerSocketGetThread
    Left = 8
    Top = 45
  end
  object ImageListLog: TImageList
    Left = 48
    Top = 61
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600