home *** CD-ROM | disk | FTP | other *** search
- 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
-