object selDirDlg: TselDirDlg Left = 200 Top = 108 ActiveControl = DirectoryListBox BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Select directory' ClientHeight = 232 ClientWidth = 441 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object DriveComboBox: TDriveComboBox Left = 8 Top = 8 Width = 209 Height = 19 DirList = DirectoryListBox TabOrder = 0 end object DirectoryListBox: TDirectoryListBox Left = 8 Top = 32 Width = 209 Height = 129 FileList = FileListBox ItemHeight = 16 TabOrder = 1 OnChange = DirectoryListBoxChange end object FileListBox: TFileListBox Left = 224 Top = 8 Width = 209 Height = 129 ItemHeight = 13 TabOrder = 2 end object Edit: TEdit Left = 8 Top = 168 Width = 425 Height = 21 TabOrder = 3 OnClick = EditClick OnKeyPress = EditKeyPress end object okBtn: TBitBtn Left = 136 Top = 200 Width = 75 Height = 25 Caption = 'OK' ModalResult = 1 TabOrder = 4 OnClick = okBtnClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555305555555555555333055555555555533305555 5555555333330555555555333333055555555833053330555555830555533055 5555555555533305555555555555330555555555555553305555555555555583 0555555555555558305555555555555553305555555555555555} end object cancelBtn: TBitBtn Left = 232 Top = 200 Width = 75 Height = 25 TabOrder = 5 OnClick = cancelBtnClick Kind = bkCancel end object FilterComboBox: TFilterComboBox Left = 224 Top = 140 Width = 209 Height = 21 FileList = FileListBox TabOrder = 6 end end