object OpenDlg: TOpenDlg Left = 205 Top = 192 ActiveControl = OKBtn BorderIcons = [] BorderStyle = bsDialog Caption = 'Dialog' ClientHeight = 209 ClientWidth = 426 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] FormStyle = fsStayOnTop Icon.Data = {} Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 8 Width = 55 Height = 13 Caption = 'Filename:' end object Label2: TLabel Left = 168 Top = 8 Width = 40 Height = 13 Caption = 'Folder:' end object Label3: TLabel Left = 168 Top = 32 Width = 97 Height = 13 Caption = 'D:\...\BUTTONS' end object OKBtn: TBitBtn Left = 340 Top = 8 Width = 77 Height = 27 Font.Color = clBlack Font.Height = -11 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = OKBtnClick Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 340 Top = 48 Width = 77 Height = 27 Font.Color = clBlack Font.Height = -11 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = CancelBtnClick Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object FileListBox1: TFileListBox Left = 8 Top = 64 Width = 145 Height = 97 FileEdit = Edit1 ItemHeight = 13 Mask = '*.alb' TabOrder = 2 OnDblClick = FileListBox1DblClick end object Edit1: TEdit Left = 8 Top = 32 Width = 145 Height = 21 TabOrder = 3 Text = '*.alb' end object DirectoryListBox1: TDirectoryListBox Left = 168 Top = 64 Width = 145 Height = 97 DirLabel = Label3 FileList = FileListBox1 ItemHeight = 16 TabOrder = 4 end object DriveComboBox1: TDriveComboBox Left = 168 Top = 176 Width = 145 Height = 19 DirList = DirectoryListBox1 TabOrder = 5 end object FilterComboBox1: TFilterComboBox Left = 8 Top = 176 Width = 145 Height = 21 FileList = FileListBox1 Filter = 'P.M.C. files (*.alb)|*.alb' TabOrder = 6 end end