object DataDirDlg: TDataDirDlg Left = 282 Top = 194 HelpContext = 1060 BorderStyle = bsDialog Caption = 'Data Directories' ClientHeight = 154 ClientWidth = 448 Font.Height = -11 Font.Name = 'MS Sans Serif' PixelsPerInch = 96 Position = poScreenCenter OnCloseQuery = FormCloseQuery TextHeight = 13 object GroupBox2: TGroupBox Left = 8 Top = 8 Width = 431 Height = 100 HelpContext = 1022 Caption = 'Data Directories' TabOrder = 0 object BLabel: TLabel Left = 10 Top = 33 Width = 94 Height = 13 Caption = 'Public Project Root:' end object Label1: TLabel Left = 10 Top = 64 Width = 98 Height = 13 Caption = 'Private Project Root:' end object PubDir: TEdit Left = 112 Top = 29 Width = 220 Height = 20 Hint = 'Shared Project Root Directory' HelpContext = 1019 ParentShowHint = False ShowHint = False TabOrder = 0 end object PrivDir: TEdit Left = 112 Top = 61 Width = 220 Height = 20 Hint = 'Private project root directory' HelpContext = 1020 ParentShowHint = False ShowHint = False TabOrder = 1 end object BrowsePublicButton: TBitBtn Left = 345 Top = 26 Width = 75 Height = 25 Hint = 'Find Private Directory' HelpContext = 1019 Caption = 'Browse' ParentShowHint = False ShowHint = False TabOrder = 2 OnClick = BrowsePublicButtonClick NumGlyphs = 2 end object BrowsePrivateButton: TBitBtn Left = 345 Top = 57 Width = 75 Height = 25 Hint = 'Find Archive Directory' HelpContext = 1020 Caption = 'Browse' ParentShowHint = False ShowHint = False TabOrder = 3 OnClick = BrowsePrivateButtonClick NumGlyphs = 2 end end object OkButton: TBitBtn Left = 195 Top = 120 Width = 75 Height = 25 Hint = 'Add the Delphi project to version control' HelpContext = 1022 Caption = 'OK' Default = True ModalResult = 1 ParentShowHint = False ShowHint = False TabOrder = 1 NumGlyphs = 2 end object CancelButton: TBitBtn Left = 280 Top = 120 Width = 75 Height = 25 Hint = 'Dismiss the dialog without creating adding the project to versio' + 'n control' HelpContext = 1022 Cancel = True Caption = 'Cancel' ModalResult = 2 ParentShowHint = False ShowHint = False TabOrder = 2 NumGlyphs = 2 end object HelpButton: TBitBtn Left = 364 Top = 120 Width = 75 Height = 25 Hint = 'Get more detailed help' HelpContext = 1022 Caption = '&Help' ParentShowHint = False ShowHint = False TabOrder = 3 OnClick = HelpButtonClick NumGlyphs = 2 end end