object OptionDlg: TOptionDlg Left = 710 Top = 657 HelpContext = 1018 ActiveControl = DirectoryList BorderStyle = bsDialog Caption = 'Archive Directories' ClientHeight = 219 ClientWidth = 501 Font.Height = -11 Font.Name = 'MS Sans Serif' PixelsPerInch = 96 Position = poScreenCenter OnCreate = FormCreate TextHeight = 13 object Label1: TLabel Left = 8 Top = 9 Width = 45 Height = 13 Caption = '&Directory:' FocusControl = DirectoryList end object Label2: TLabel Left = 8 Top = 173 Width = 33 Height = 13 Caption = 'Dri&ves:' FocusControl = Drives end object Label3: TLabel Left = 232 Top = 9 Width = 90 Height = 13 Caption = 'A&rchive directories:' FocusControl = ArchiveDirs end object DirectoryList: TDirectoryListBox Left = 8 Top = 25 Width = 137 Height = 141 HelpContext = 1018 ItemHeight = 16 TabOrder = 5 end object Drives: TDriveComboBox Left = 8 Top = 189 Width = 141 Height = 19 HelpContext = 1018 TabOrder = 6 OnChange = DrivesChange end object ArchiveDirs: TListBox Left = 232 Top = 25 Width = 260 Height = 141 Hint = 'Search path for archives' HelpContext = 1018 ItemHeight = 13 ParentShowHint = False ShowHint = False TabOrder = 7 end object BitBtn1: TBitBtn Left = 249 Top = 185 Width = 75 Height = 25 Hint = 'Accept changes to list of archive directories' HelpContext = 1018 Caption = 'OK' Default = True ModalResult = 1 ParentShowHint = False ShowHint = False TabOrder = 2 NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 334 Top = 185 Width = 75 Height = 25 Hint = 'Dismiss dialog without changing archive directories' HelpContext = 1018 Cancel = True Caption = 'Cancel' ModalResult = 2 ParentShowHint = False ShowHint = False TabOrder = 3 NumGlyphs = 2 end object HelpButton: TBitBtn Left = 419 Top = 185 Width = 75 Height = 25 Hint = 'Get more detailed help' HelpContext = 1018 Caption = '&Help' ParentShowHint = False ShowHint = False TabOrder = 4 OnClick = HelpButtonClick NumGlyphs = 2 end object BitBtn3: TBitBtn Left = 151 Top = 47 Width = 75 Height = 25 Hint = 'Add directory to list of archive directories' HelpContext = 1018 Caption = '&Add >' ParentShowHint = False ShowHint = False TabOrder = 0 OnClick = AddButtonClick NumGlyphs = 2 end object RemoveButton: TBitBtn Left = 151 Top = 83 Width = 75 Height = 25 Hint = 'Remove directory from list of achive directories' HelpContext = 1018 Caption = '< Re&move' ParentShowHint = False ShowHint = False TabOrder = 1 OnClick = RemoveButtonClick NumGlyphs = 2 end object CreateDirectory: TBitBtn Left = 151 Top = 119 Width = 75 Height = 25 Hint = 'Create a new archive directory' Caption = 'Cr&eate' ParentShowHint = False ShowHint = False TabOrder = 8 OnClick = CreateDirectoryClick NumGlyphs = 2 end end