object CompareForm: TCompareForm Left = 288 Top = 242 ActiveControl = hbDir BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Compare files ...' ClientHeight = 201 ClientWidth = 413 Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter Scaled = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 15 object lbDir: TLabel Left = 5 Top = 13 Width = 93 Height = 15 AutoSize = False Caption = '&Target directory:' FocusControl = hbDir end object sbDirBrowse: TSpeedButton Left = 387 Top = 11 Width = 20 Height = 20 Caption = '...' OnClick = sbDirBrowseClick end object btnRun: TButton Left = 77 Top = 171 Width = 75 Height = 25 Caption = '&Run' Default = True ModalResult = 1 TabOrder = 0 OnClick = btnRunClick end object btnCancel: TButton Left = 170 Top = 171 Width = 75 Height = 25 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 end object btnHelp: TButton Left = 263 Top = 171 Width = 75 Height = 25 Caption = '&Help' TabOrder = 2 OnClick = btnHelpClick end object hbDir: THistoryComboBox Left = 98 Top = 10 Width = 285 Height = 23 ItemHeight = 15 TabOrder = 3 OnKeyDown = hbDirKeyDown CanEdit = True IniSection = 'TagWizDirectoryHistory' end object rgCompareWhat: TRadioGroup Left = 7 Top = 36 Width = 400 Height = 128 Caption = ' Compare what: ' ItemIndex = 0 Items.Strings = ( '&Unique filenames' 'Same &Filenames only' 'Same filenames and &Newer dates' 'Same filenames and &Exact dates (duplicates)' 'Same filenames and &Older dates') TabOrder = 4 end object dlgBrowseDir: TBrowseDirectoryDlg Root = idDrives Options = [bfDirectoriesOnly] EnableOKButton = False Left = 332 Top = 77 end end