mainform.dfm

著名的SecureBlackBox控件完整源码

object frmMain: TfrmMain
  Left = 204
  Top = 119
  Width = 702
  Height = 605
  Caption = 'ElIdSftpClient demo application'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object spLog: TSplitter
    Left = 0
    Top = 477
    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 = 480
    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 = 432
    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 = 456
    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
      Picture.Data = {
        07544269746D617036030000424D360300000000000036000000280000001000
        000010000000010018000000000000030000120B0000120B0000000000000000
        00003525A03525A03525A03525A03525A03525A03525A03525A03525A03525A0
        3525A03525A03525A03525A03525A03525A03525A03525A03525A03525A03525
        A03525A03525A03525A03525A03525A03525A03525A03525A03525A03525A035
        25A03525A03525A03525A03525A03525A03525A03525A03525A03525A03525A0
        3525A03525A03525A03525A03525A03525A03525A03525A03525A0368BB3368B
        B3368BB3368BB3368BB34495BD4595BC4495BC4293BA3E91B83525A03525A035
        25A03525A03525A0368BB34BB8ED4BB8ED4BB8ED53BFF15AC1F265C5F462C2F1
        60C2F157BEEE51BBEE3D90B83525A03525A03525A03525A0368BB34BB8ED4CBA
        EE4BB8ED4BB8ED68C7F48DD2F991D1F681CBF35FC1F053BCEE3F91B93525A035
        25A03525A03525A0368BB34BB8ED4BB9ED50BCEF4BB8ED83D9F8A7DBFEFCFFFF
        ACE0FF60C2F155BDEE3E91B83525A03525A03525A03525A0368BB34BB8ED4BB8
        ED4EBBEE53BDEF61C4F39FDAFEABE0FEAAE1FF66C4F258BEF04092B93525A035
        25A03525A03525A0368BB348B7EC4AB7EC4EBAED52BCEE58C0F164C3F265C4F3
        67C5F485DFF956BDEF4092BA3525A03525A03525A03525A0368BB3368BB3388C
        B43B8FB63F91B94293BA4595BC56BEEF55BEF052BCEE4FBAED3B8FB73525A035
        25A03525A03525A0368BB347B6EB48B7EC4AB7ED4BB9ED4DBAED4FBBEE3F91B9
        4092BA3E91B83B8FB73525A03525A03525A03525A03525A0368BB360BFEC60BF
        EC60BFEC60BFEC60BFEC3B8FB73525A03525A03525A03525A03525A03525A035
        25A03525A03525A03525A0368BB3368BB3368BB3368BB3388CB53525A03525A0
        3525A03525A03525A03525A03525A03525A03525A03525A03525A03525A03525
        A03525A03525A03525A03525A03525A03525A03525A03525A03525A03525A035
        25A03525A03525A03525A03525A03525A03525A03525A03525A03525A03525A0
        3525A03525A03525A03525A03525A03525A03525A03525A03525A03525A03525
        A03525A03525A03525A03525A03525A03525A03525A03525A03525A03525A035
        25A0}
      Transparent = True
    end
  end
  object MainMenu: TMainMenu
    Images = imgListViews
    Left = 144
    Top = 56
    object mnuConnection: TMenuItem
      Caption = 'Connection'
      object mnuConnect: TMenuItem
        Caption = 'Connect...'
        ImageIndex = 5
        OnClick = mnuConnectClick
      end
      object mnuDisconnect: TMenuItem
        Caption = 'Disconnect'
        ImageIndex = 3
        OnClick = mnuDisconnectClick
      end
      object N1: 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 SaveDialog: TSaveDialog