object FTPForm: TFTPForm Left = 205 Top = 182 BorderStyle = bsDialog Caption = 'Upload' ClientHeight = 319 ClientWidth = 558 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 282 Top = 0 Width = 3 Height = 319 Cursor = crHSplit end object Panel3: TPanel Left = 0 Top = 0 Width = 282 Height = 319 Align = alLeft TabOrder = 0 object Panel5: TPanel Left = 1 Top = 287 Width = 280 Height = 31 Align = alBottom TabOrder = 0 object CheckBox1: TCheckBox Left = 5 Top = 7 Width = 161 Height = 17 Caption = 'Upload v�etn� podadres���' State = cbChecked TabOrder = 0 end object Button5: TButton Left = 201 Top = 4 Width = 75 Height = 25 Cancel = True Caption = 'Zav��t' ModalResult = 2 TabOrder = 1 end end object Panel6: TPanel Left = 1 Top = 1 Width = 280 Height = 32 Align = alTop TabOrder = 1 object Label2: TLabel Left = 8 Top = 10 Width = 89 Height = 13 Caption = 'Domovsk� adres��' end object DirectoryEdit1: TDirectoryEdit Left = 105 Top = 5 Width = 166 Height = 21 DirectInput = False GlyphKind = gkCustom Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555555555555555555555555555555 555555555555555555555555555555555555555FFFFFFFFFF555550000000000 55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8 B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000 000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0 555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555 55555575FFF75555555555700007555555555557777555555555555555555555 5555555555555555555555555555555555555555555555555555} NumGlyphs = 2 TabOrder = 0 OnChange = DirectoryEdit1Change end end object FileListBox1: TFileListBox Left = 1 Top = 33 Width = 280 Height = 254 Align = alClient FileType = [ftDirectory, ftNormal] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 MultiSelect = True ParentFont = False ShowGlyphs = True TabOrder = 2 OnDblClick = FileListBox1DblClick end end object Panel4: TPanel Left = 285 Top = 0 Width = 273 Height = 319 Align = alClient TabOrder = 1 object Label1: TLabel Left = 31 Top = 17 Width = 31 Height = 13 Caption = 'Server' end object Label4: TLabel Left = 35 Top = 39 Width = 23 Height = 13 Caption = '��et' end object Label5: TLabel Left = 33 Top = 64 Width = 27 Height = 13 Caption = 'Heslo' end object Label6: TLabel Left = 185 Top = 17 Width = 19 Height = 13 Caption = 'Port' end object Label3: TLabel Left = 23 Top = 87 Width = 37 Height = 13 Caption = 'Adres��' end object HostNameEdit: TEdit Left = 64 Top = 14 Width = 105 Height = 21 Hint = 'Host where the file is located' ParentShowHint = False ShowHint = True TabOrder = 0 end object UserNameEdit: TEdit Left = 64 Top = 36 Width = 201 Height = 21 Hint = 'User name used to log on the host' ParentShowHint = False ShowHint = True TabOrder = 2 Text = 'anonymous' end object PassWordEdit: TEdit Left = 64 Top = 60 Width = 201 Height = 21 Hint = 'Password used to validate user access' ParentShowHint = False ShowHint = True TabOrder = 3 Text = 'anonymous@email.com' end object PortEdit: TEdit Left = 208 Top = 13 Width = 57 Height = 21 TabOrder = 1 Text = 'ftp' end object Button1: TButton Left = 209 Top = 112 Width = 57 Height = 25 Caption = 'P�ipojit' TabOrder = 5 OnClick = Button1Click end object DisplayMemo: TMemo Left = 1 Top = 144 Width = 271 Height = 174 Align = alBottom Color = clBtnFace ScrollBars = ssBoth TabOrder = 6 end object SyncCheckBox: TCheckBox Left = 64 Top = 112 Width = 89 Height = 17 Caption = 'Synchronous' State = cbChecked TabOrder = 7 Visible = False end object cbDisplay: TCheckBox Left = 64 Top = 124 Width = 97 Height = 17 Hint = 'Enable data display during file transfert' Caption = 'Display Data' ParentShowHint = False ShowHint = True State = cbChecked TabOrder = 8 Visible = False end object HostFileEdit: TEdit Left = 64 Top = 83 Width = 201 Height = 21 TabOrder = 4 end object Button2: TButton Left = 71 Top = 112 Width = 57 Height = 25 Caption = 'List' TabOrder = 9 OnClick = Button2Click end object Button3: TButton Left = 132 Top = 112 Width = 57 Height = 25 Caption = 'Upload' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 10 OnClick = Button3Click end end object Button4: TButton Left = 296 Top = 113 Width = 56 Height = 25 Caption = 'CD' TabOrder = 2 OnClick = Button4Click end object FtpClient1: TFtpClient Timeout = 15 MultiThreaded = False Port = 'ftp' DisplayFlag = False Binary = True OnSessionClosed = FtpClient1SessionClosed OnRequestDone = FtpClient1RequestDone Left = 303 Top = 162 end end