object SaveForm: TSaveForm Left = 343 Top = 172 ActiveControl = FileEdit BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsNone Caption = 'Pronto Family' ClientHeight = 341 ClientWidth = 489 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Position = poScreenCenter Scaled = False OnActivate = FormActivate OnCreate = FormCreate OnDeactivate = FormDeactivate 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 = 29 Top = 21 Width = 242 Height = 29 Caption = 'Save Attachment as :' Font.Color = clNavy Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object imgOpen: TImage Left = 350 Top = 55 Width = 101 Height = 42 AutoSize = True Picture.Data = {} Visible = False OnMouseDown = imgOpenMouseDown end object DirectoryListBox1: TDirectoryListBox Left = 27 Top = 55 Width = 148 Height = 212 FileList = FileListBox1 IntegralHeight = True ItemHeight = 16 TabOrder = 1 end object DriveComboBox1: TDriveComboBox Left = 29 Top = 274 Width = 148 Height = 19 DirList = DirectoryListBox1 TabOrder = 3 end object FileEdit: TEdit Left = 193 Top = 55 Width = 139 Height = 21 AutoSize = False TabOrder = 0 OnKeyPress = FileEditKeyPress end object FileListBox1: TFileListBox Left = 194 Top = 82 Width = 139 Height = 187 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