mainform.dfm

著名的SecureBlackBox控件完整源码

object frmMain: TfrmMain
  Left = 554
  Top = 268
  Width = 702
  Height = 585
  Caption = 'ElSimpleSftpClient demo application'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object spLog: TSplitter
    Left = 0
    Top = 449
    Width = 694
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object tbToolbar: TToolBar
    Left = 0
    Top = 0
    Width = 694
    Height = 24
    Caption = 'tbToolbar'
    Flat = True
    Images = imgListViews
    TabOrder = 0
    object tbConnect: TToolButton
      Left = 0
      Top = 0
      Hint = 'Connect'
      Caption = 'tbConnect'
      ImageIndex = 5
      ParentShowHint = False
      ShowHint = True
      OnClick = tbConnectClick
    end
    object tbDisconnect: TToolButton
      Left = 23
      Top = 0
      Hint = 'Disconnect'
      Caption = 'tbDisconnect'
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = tbDisconnectClick
    end
    object tbDelim1: TToolButton
      Left = 46
      Top = 0
      Width = 8
      Caption = 'tbDelim1'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object tbRename: TToolButton
      Left = 54
      Top = 0
      Hint = 'Rename'
      Caption = 'tbRename'
      ImageIndex = 6
      ParentShowHint = False
      ShowHint = True
      OnClick = tbRenameClick
    end
    object tbMakeDir: TToolButton
      Left = 77
      Top = 0
      Hint = 'Make Directory'
      Caption = 'tbMakeDir'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = tbMakeDirClick
    end
    object tbDelete: TToolButton
      Left = 100
      Top = 0
      Hint = 'Delete selected'
      Caption = 'tbDelete'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = tbDeleteClick
    end
    object tbDelim2: TToolButton
      Left = 123
      Top = 0
      Width = 8
      Caption = 'tbDelim2'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object tbDownload: TToolButton
      Left = 131
      Top = 0
      Hint = 'Download file'
      Caption = 'tbDownload'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = tbDownloadClick
    end
    object tbUpload: TToolButton
      Left = 154
      Top = 0
      Hint = 'Upload file'
      Caption = 'tbUpload'
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = tbUploadClick
    end
    object tbDelim3: TToolButton
      Left = 177
      Top = 0
      Width = 8
      Caption = 'tbDelim3'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object tbRefresh: TToolButton
      Left = 185
      Top = 0
      Hint = 'Refresh'
      Caption = 'tbRefresh'
      ImageIndex = 7
      ParentShowHint = False
      ShowHint = True
      OnClick = tbRefreshClick
    end
  end
  object lvLog: TListView
    Left = 0
    Top = 452
    Width = 694
    Height = 79
    Align = alBottom
    Columns = <
      item
        Caption = 'Time'
        Width = 80
      end
      item
        Caption = 'Event'
        Width = 400
      end>
    ReadOnly = True
    RowSelect = True
    SmallImages = imgListViews
    TabOrder = 1
    ViewStyle = vsReport
  end
  object lvFiles: TListView
    Left = 0
    Top = 24
    Width = 694
    Height = 404
    Align = alClient
    Columns = <
      item
        Caption = 'Filename'
        Width = 150
      end
      item
        Caption = 'Size'
        Width = 70
      end
      item
        Caption = 'Modified'
        Width = 80
      end
      item
        Caption = 'Owner'
      end
      item
        Caption = 'Rights'
        Width = 90
      end>
    ReadOnly = True
    RowSelect = True
    SmallImages = imgListViews
    TabOrder = 2
    ViewStyle = vsReport
    OnDblClick = lvFilesDblClick
  end
  object pPath: TPanel
    Left = 0
    Top = 428
    Width = 694
    Height = 21
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object lPath: TLabel
      Left = 20
      Top = 5
      Width = 3
      Height = 13
    end
    object Image1: TImage
      Left = 2
      Top = 4
      Width = 16
      Height = 16