Chip 2004 July/CMCD0704.ISO/Software/Freeware/Programare/PSPad/PSPad.exe/0/RCDATA/TFFTP/TFFTP.txt

Text File | 2004-06-06 | 6.1 KB | 267 lines

object fFTP: TfFTP
  Tag = 99
  Left = 312
  Top = 237
  Width = 200
  Height = 294
  HelpContext = 44
  BorderIcons = [biHelp]
  BorderStyle = bsSizeToolWin
  Caption = 'FTP'
  Color = clBtnFace
  UseDockManager = True
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  ShowHint = True
  Visible = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lFTPName: TLabel
    Left = 0
    Top = 24
    Width = 192
    Height = 16
    Align = alTop
    AutoSize = False
    Caption = 'FTP:'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = False
  end
  object lFTPCurDir: TLabel
    Left = 0
    Top = 40
    Width = 192
    Height = 13
    Align = alTop
    AutoSize = False
    Caption = '/'
    Transparent = False
  end
  object ToolBarFTP: TToolBar
    Left = 0
    Top = 0
    Width = 192
    Height = 24
    HelpContext = 7
    AutoSize = True
    Caption = 'ProjToolBar'
    EdgeBorders = [ebBottom]
    Flat = True
    Images = fPSPad.MainImageList
    TabOrder = 0
    Transparent = False
    object tbFTPConn: TToolButton
      Left = 0
      Top = 0
      Hint = 'P'#345'ipojit k FTP'
      Caption = 'P'#345'ipojit k FTP'
      ImageIndex = 71
      OnClick = FTPConnect
    end
    object tbFTPDisconn: TToolButton
      Left = 23
      Top = 0
      Hint = 'Odpojit od FTP'
      Caption = 'Odpojit od FTP'
      Enabled = False
      ImageIndex = 45
      OnClick = FTPDisconnect
    end
    object tbFTPRefresh: TToolButton
      Left = 46
      Top = 0
      Hint = 'Obnovit'
      Caption = 'Obnovit'
      Enabled = False
      ImageIndex = 27
      OnClick = FTPRefresh
    end
    object tbFTPGoRoot: TToolButton
      Left = 69
      Top = 0
      Hint = 'Ko'#345'enov'#253' adres'#225#345
      Caption = 'Ko'#345'enov'#253' adres'#225#345
      Enabled = False
      ImageIndex = 96
      OnClick = FTPGoRoot
    end
    object tbFTPGoWork: TToolButton
      Left = 92
      Top = 0
      Hint = 'V'#253'choz'#237' adres'#225#345
      Caption = 'V'#253'choz'#237' adres'#225#345
      Enabled = False
      ImageIndex = 97
      OnClick = FTPGoRoot
    end
    object tbFTPCreateDir: TToolButton
      Left = 115
      Top = 0
      Hint = 'Nov'#253' adres'#225#345
      Caption = 'Nov'#253' adres'#225#345
      Enabled = False
      ImageIndex = 54
      OnClick = FTPCreateDir
    end
    object tbFTPDelete: TToolButton
      Left = 138
      Top = 0
      Hint = 'Smazat adres'#225#345'/soubor'
      Caption = 'Smazat adres'#225#345'/soubor'
      Enabled = False
      ImageIndex = 2
      OnClick = FTPDelete
    end
    object tbFTPRename: TToolButton
      Left = 161
      Top = 0
      Hint = 'P'#345'ejmenovat'
      Caption = 'P'#345'ejmenovat'
      Enabled = False
      ImageIndex = 58
      OnClick = FTPRename
    end
  end
  object listFTP: TListView
    Left = 0
    Top = 53
    Width = 192
    Height = 207
    Align = alClient
    Columns = <
      item
        Caption = 'Name'
        Width = 120
      end
      item
        Alignment = taRightJustify
        Caption = 'Size'
        Width = 55
      end
      item
        Alignment = taRightJustify
        Caption = 'Modified'
        Width = 70
      end>
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    PopupMenu = FTPPopup
    SmallImages = fPSPad.imageProject
    SortType = stText
    TabOrder = 1
    ViewStyle = vsReport
    OnColumnClick = listFTPColumnClick
    OnCompare = listFTPCompare
    OnDblClick = listFTPDblClick
    OnKeyPress = listFTPKeyPress
  end
  object FTPPopup: TPopupMenu
    Images = fPSPad.MainImageList
    Left = 36
    Top = 97
    object mFTPConnect: TMenuItem
      Caption = 'P'#345'ipojit k FTP'
      Hint = 'P'#345'ipojit k FTP'
      ImageIndex = 71
      OnClick = FTPConnect
    end
    object mFTPDisconn: TMenuItem
      Caption = 'Odpojit od FTP'
      Enabled = False
      Hint = 'Odpojit od FTP'
      ImageIndex = 45
      OnClick = FTPDisconnect
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object mFTPSendRaw: TMenuItem
      Caption = 'Poslat FTP p'#345#237'kaz'
      Enabled = False
      ImageIndex = 15
      OnClick = mFTPSendRawClick
    end
    object N39: TMenuItem
      Caption = '-'
    end
    object mFTPEdit: TMenuItem
      Caption = 'P'#345#237'mo editovat v PSPadu'
      Enabled = False
      OnClick = listFTPDblClick
    end
    object mFTPOpen: TMenuItem
      Caption = 'Otev'#345#237't v PSPadu'
      Enabled = False
      OnClick = listFTPDblClick
    end
    object mFTPOpenShell: TMenuItem
      Caption = 'Otev'#345#237't v'#253'choz'#237'm programem'
      Enabled = False
      OnClick = listFTPDblClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mFTPRefresh: TMenuItem
      Caption = 'Obnovit'
      Enabled = False
      Hint = 'Obnovit'
      ImageIndex = 27
      OnClick = FTPRefresh
    end
    object mFTPGoRoot: TMenuItem
      Caption = 'Ko'#345'enov'#253' adres'#225#345
      Enabled = False
      Hint = 'Ko'#345'enov'#253' adres'#225#345
      ImageIndex = 96
      OnClick = FTPGoRoot
    end
    object mFTPGoWork: TMenuItem
      Caption = 'V'#253'choz'#237' adres'#225#345
      Enabled = False
      Hint = 'V'#253'choz'#237' adres'#225#345
      ImageIndex = 97
      OnClick = FTPGoRoot
    end
    object N43: TMenuItem
      Caption = '-'
    end
    object mFTPCreateDir: TMenuItem
      Caption = 'Nov'#253' adres'#225#345
      Enabled = False
      Hint = 'Nov'#253' adres'#225#345
      ImageIndex = 54
      OnClick = FTPCreateDir
    end
    object mFTPDelete: TMenuItem
      Caption = 'Smazat adres'#225#345'/soubor'
      Enabled = False
      Hint = 'Smazat adres'#225#345'/soubor'
      ImageIndex = 2
      OnClick = FTPDelete
    end
    object mFTPRename: TMenuItem
      Caption = 'P'#345'ejmenovat'
      Enabled = False
      Hint = 'P'#345'ejmenovat'
      ImageIndex = 58
      OnClick = FTPRename
    end
  end
end