home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / CMCD0704.ISO / Software / Freeware / Programare / PSPad / PSPad.exe / 0 / RCDATA / TFFTP / TFFTP.txt
Encoding:
Text File  |  2004-06-06  |  6.1 KB  |  267 lines

  1. object fFTP: TfFTP
  2.   Tag = 99
  3.   Left = 312
  4.   Top = 237
  5.   Width = 200
  6.   Height = 294
  7.   HelpContext = 44
  8.   BorderIcons = [biHelp]
  9.   BorderStyle = bsSizeToolWin
  10.   Caption = 'FTP'
  11.   Color = clBtnFace
  12.   UseDockManager = True
  13.   DragKind = dkDock
  14.   DragMode = dmAutomatic
  15.   Font.Charset = DEFAULT_CHARSET
  16.   Font.Color = clWindowText
  17.   Font.Height = -11
  18.   Font.Name = 'MS Sans Serif'
  19.   Font.Style = []
  20.   FormStyle = fsStayOnTop
  21.   OldCreateOrder = False
  22.   ShowHint = True
  23.   Visible = True
  24.   OnCreate = FormCreate
  25.   OnShow = FormShow
  26.   PixelsPerInch = 96
  27.   TextHeight = 13
  28.   object lFTPName: TLabel
  29.     Left = 0
  30.     Top = 24
  31.     Width = 192
  32.     Height = 16
  33.     Align = alTop
  34.     AutoSize = False
  35.     Caption = 'FTP:'
  36.     Font.Charset = EASTEUROPE_CHARSET
  37.     Font.Color = clWindowText
  38.     Font.Height = -11
  39.     Font.Name = 'MS Sans Serif'
  40.     Font.Style = [fsBold]
  41.     ParentFont = False
  42.     Transparent = False
  43.   end
  44.   object lFTPCurDir: TLabel
  45.     Left = 0
  46.     Top = 40
  47.     Width = 192
  48.     Height = 13
  49.     Align = alTop
  50.     AutoSize = False
  51.     Caption = '/'
  52.     Transparent = False
  53.   end
  54.   object ToolBarFTP: TToolBar
  55.     Left = 0
  56.     Top = 0
  57.     Width = 192
  58.     Height = 24
  59.     HelpContext = 7
  60.     AutoSize = True
  61.     Caption = 'ProjToolBar'
  62.     EdgeBorders = [ebBottom]
  63.     Flat = True
  64.     Images = fPSPad.MainImageList
  65.     TabOrder = 0
  66.     Transparent = False
  67.     object tbFTPConn: TToolButton
  68.       Left = 0
  69.       Top = 0
  70.       Hint = 'P'#345'ipojit k FTP'
  71.       Caption = 'P'#345'ipojit k FTP'
  72.       ImageIndex = 71
  73.       OnClick = FTPConnect
  74.     end
  75.     object tbFTPDisconn: TToolButton
  76.       Left = 23
  77.       Top = 0
  78.       Hint = 'Odpojit od FTP'
  79.       Caption = 'Odpojit od FTP'
  80.       Enabled = False
  81.       ImageIndex = 45
  82.       OnClick = FTPDisconnect
  83.     end
  84.     object tbFTPRefresh: TToolButton
  85.       Left = 46
  86.       Top = 0
  87.       Hint = 'Obnovit'
  88.       Caption = 'Obnovit'
  89.       Enabled = False
  90.       ImageIndex = 27
  91.       OnClick = FTPRefresh
  92.     end
  93.     object tbFTPGoRoot: TToolButton
  94.       Left = 69
  95.       Top = 0
  96.       Hint = 'Ko'#345'enov'#253' adres'#225#345
  97.       Caption = 'Ko'#345'enov'#253' adres'#225#345
  98.       Enabled = False
  99.       ImageIndex = 96
  100.       OnClick = FTPGoRoot
  101.     end
  102.     object tbFTPGoWork: TToolButton
  103.       Left = 92
  104.       Top = 0
  105.       Hint = 'V'#253'choz'#237' adres'#225#345
  106.       Caption = 'V'#253'choz'#237' adres'#225#345
  107.       Enabled = False
  108.       ImageIndex = 97
  109.       OnClick = FTPGoRoot
  110.     end
  111.     object tbFTPCreateDir: TToolButton
  112.       Left = 115
  113.       Top = 0
  114.       Hint = 'Nov'#253' adres'#225#345
  115.       Caption = 'Nov'#253' adres'#225#345
  116.       Enabled = False
  117.       ImageIndex = 54
  118.       OnClick = FTPCreateDir
  119.     end
  120.     object tbFTPDelete: TToolButton
  121.       Left = 138
  122.       Top = 0
  123.       Hint = 'Smazat adres'#225#345'/soubor'
  124.       Caption = 'Smazat adres'#225#345'/soubor'
  125.       Enabled = False
  126.       ImageIndex = 2
  127.       OnClick = FTPDelete
  128.     end
  129.     object tbFTPRename: TToolButton
  130.       Left = 161
  131.       Top = 0
  132.       Hint = 'P'#345'ejmenovat'
  133.       Caption = 'P'#345'ejmenovat'
  134.       Enabled = False
  135.       ImageIndex = 58
  136.       OnClick = FTPRename
  137.     end
  138.   end
  139.   object listFTP: TListView
  140.     Left = 0
  141.     Top = 53
  142.     Width = 192
  143.     Height = 207
  144.     Align = alClient
  145.     Columns = <
  146.       item
  147.         Caption = 'Name'
  148.         Width = 120
  149.       end
  150.       item
  151.         Alignment = taRightJustify
  152.         Caption = 'Size'
  153.         Width = 55
  154.       end
  155.       item
  156.         Alignment = taRightJustify
  157.         Caption = 'Modified'
  158.         Width = 70
  159.       end>
  160.     HideSelection = False
  161.     ReadOnly = True
  162.     RowSelect = True
  163.     PopupMenu = FTPPopup
  164.     SmallImages = fPSPad.imageProject
  165.     SortType = stText
  166.     TabOrder = 1
  167.     ViewStyle = vsReport
  168.     OnColumnClick = listFTPColumnClick
  169.     OnCompare = listFTPCompare
  170.     OnDblClick = listFTPDblClick
  171.     OnKeyPress = listFTPKeyPress
  172.   end
  173.   object FTPPopup: TPopupMenu
  174.     Images = fPSPad.MainImageList
  175.     Left = 36
  176.     Top = 97
  177.     object mFTPConnect: TMenuItem
  178.       Caption = 'P'#345'ipojit k FTP'
  179.       Hint = 'P'#345'ipojit k FTP'
  180.       ImageIndex = 71
  181.       OnClick = FTPConnect
  182.     end
  183.     object mFTPDisconn: TMenuItem
  184.       Caption = 'Odpojit od FTP'
  185.       Enabled = False
  186.       Hint = 'Odpojit od FTP'
  187.       ImageIndex = 45
  188.       OnClick = FTPDisconnect
  189.     end
  190.     object N2: TMenuItem
  191.       Caption = '-'
  192.     end
  193.     object mFTPSendRaw: TMenuItem
  194.       Caption = 'Poslat FTP p'#345#237'kaz'
  195.       Enabled = False
  196.       ImageIndex = 15
  197.       OnClick = mFTPSendRawClick
  198.     end
  199.     object N39: TMenuItem
  200.       Caption = '-'
  201.     end
  202.     object mFTPEdit: TMenuItem
  203.       Caption = 'P'#345#237'mo editovat v PSPadu'
  204.       Enabled = False
  205.       OnClick = listFTPDblClick
  206.     end
  207.     object mFTPOpen: TMenuItem
  208.       Caption = 'Otev'#345#237't v PSPadu'
  209.       Enabled = False
  210.       OnClick = listFTPDblClick
  211.     end
  212.     object mFTPOpenShell: TMenuItem
  213.       Caption = 'Otev'#345#237't v'#253'choz'#237'm programem'
  214.       Enabled = False
  215.       OnClick = listFTPDblClick
  216.     end
  217.     object N1: TMenuItem
  218.       Caption = '-'
  219.     end
  220.     object mFTPRefresh: TMenuItem
  221.       Caption = 'Obnovit'
  222.       Enabled = False
  223.       Hint = 'Obnovit'
  224.       ImageIndex = 27
  225.       OnClick = FTPRefresh
  226.     end
  227.     object mFTPGoRoot: TMenuItem
  228.       Caption = 'Ko'#345'enov'#253' adres'#225#345
  229.       Enabled = False
  230.       Hint = 'Ko'#345'enov'#253' adres'#225#345
  231.       ImageIndex = 96
  232.       OnClick = FTPGoRoot
  233.     end
  234.     object mFTPGoWork: TMenuItem
  235.       Caption = 'V'#253'choz'#237' adres'#225#345
  236.       Enabled = False
  237.       Hint = 'V'#253'choz'#237' adres'#225#345
  238.       ImageIndex = 97
  239.       OnClick = FTPGoRoot
  240.     end
  241.     object N43: TMenuItem
  242.       Caption = '-'
  243.     end
  244.     object mFTPCreateDir: TMenuItem
  245.       Caption = 'Nov'#253' adres'#225#345
  246.       Enabled = False
  247.       Hint = 'Nov'#253' adres'#225#345
  248.       ImageIndex = 54
  249.       OnClick = FTPCreateDir
  250.     end
  251.     object mFTPDelete: TMenuItem
  252.       Caption = 'Smazat adres'#225#345'/soubor'
  253.       Enabled = False
  254.       Hint = 'Smazat adres'#225#345'/soubor'
  255.       ImageIndex = 2
  256.       OnClick = FTPDelete
  257.     end
  258.     object mFTPRename: TMenuItem
  259.       Caption = 'P'#345'ejmenovat'
  260.       Enabled = False
  261.       Hint = 'P'#345'ejmenovat'
  262.       ImageIndex = 58
  263.       OnClick = FTPRename
  264.     end
  265.   end
  266. end
  267.