object AttachForm: TAttachForm Left = 322 Top = 160 ActiveControl = FileEdit BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsNone Caption = 'Pronto Family' ClientHeight = 317 ClientWidth = 476 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Position = poScreenCenter Scaled = False OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object imgBackgr: TImage Left = 0 Top = 0 Width = 468 Height = 317 end object imgOk: TImage Left = 355 Top = 211 Width = 97 Height = 41 Cursor = 18 OnMouseDown = imgOkMouseDown end object imgCancel: TImage Left = 352 Top = 255 Width = 100 Height = 44 Cursor = 18 OnMouseDown = imgCancelMouseDown end object Label1: TLabel Left = 30 Top = 22 Width = 172 Height = 29 Caption = 'Attach the file :' Font.Color = clNavy Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object DirectoryListBox1: TDirectoryListBox Left = 28 Top = 54 Width = 148 Height = 212 FileList = FileListBox1 IntegralHeight = True ItemHeight = 16 TabOrder = 1 end object DriveComboBox1: TDriveComboBox Left = 29 Top = 274 Width = 148 Height = 19 TabOrder = 3 OnChange = DriveComboBox1Change end object FileEdit: TEdit Left = 194 Top = 55 Width = 139 Height = 21 TabOrder = 0 Text = '*.*' OnKeyPress = FileEditKeyPress end object FileListBox1: TFileListBox Left = 194 Top = 86 Width = 139 Height = 183 FileEdit = FileEdit ItemHeight = 13 TabOrder = 2 end object FilterComboBox1: TFilterComboBox Left = 195 Top = 273 Width = 140 Height = 21 FileList = FileListBox1 Filter = 'All files (*.*)|*.*|Bitmap Files (*.bmp)|*.bmp|Sound Files (*.wa' + 'v)|*.wav|Video Files (*.avi)|*.avi|Text Files (*.txt, *.doc, *.w' + 'ri)|*.txt; *.doc; *.wri|Midi Files (*.mid)|*.mid' TabOrder = 4 end end