object dlgOptIVM: TdlgOptIVM Left = 248 Top = 189 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsDialog Caption = 'Macro Sweeper Options' ClientHeight = 212 ClientWidth = 432 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object btnOk: TBitBtn Left = 344 Top = 40 Width = 75 Height = 25 TabOrder = 1 Kind = bkOK end object btnCancel: TBitBtn Left = 344 Top = 72 Width = 75 Height = 25 TabOrder = 2 Kind = bkCancel end object btnHelp: TBitBtn Left = 344 Top = 104 Width = 75 Height = 25 HelpContext = 12300 TabOrder = 3 OnClick = btnHelpClick Kind = bkHelp end object pagOptions: TPageControl Left = 8 Top = 8 Width = 321 Height = 193 ActivePage = tabGeneral MultiLine = True TabOrder = 0 object tabGeneral: TTabSheet HelpContext = 12310 Caption = 'General Options' object radAction: TRadioGroup Left = 16 Top = 8 Width = 121 Height = 97 Caption = 'Action' ItemIndex = 0 Items.Strings = ( '&Warn && Continue' '&Ask On Each' '&Deactivate All') TabOrder = 0 TabStop = True end object chkExit: TCheckBox Left = 160 Top = 78 Width = 97 Height = 17 Caption = 'E&xit when done' TabOrder = 1 end object chkSubdir: TCheckBox Left = 160 Top = 24 Width = 121 Height = 17 Caption = 'Check &subdirectories' TabOrder = 2 end object chkStrict: TCheckBox Left = 160 Top = 51 Width = 137 Height = 17 Caption = '&Strict template checking' TabOrder = 3 end end object tabCriteria: TTabSheet HelpContext = 12320 Caption = 'Select Criteria' object lblInclude: TLabel Left = 176 Top = 8 Width = 99 Height = 26 Caption = '&Check only files with these extensions:' FocusControl = lstInclude WordWrap = True end object grpAccelearated: TGroupBox Left = 8 Top = 56 Width = 153 Height = 80 Caption = 'Accelerated Processing' TabOrder = 0 object lblDays1: TLabel Left = 10 Top = 48 Width = 46 Height = 13 Caption = '&within last' end object lblDays2: TLabel Left = 110 Top = 48 Width = 25 Height = 13 Caption = 'days.' end object edtDays: TSpinEdit Left = 64 Top = 40 Width = 41 Height = 22 MaxValue = 99 MinValue = 0 TabOrder = 0 Value = 0 end object chkDays: TCheckBox Left = 8 Top = 16 Width = 137 Height = 17 Caption = '&Check created/modified' TabOrder = 1 OnClick = chkDaysClick end end object chkAllFiles: TCheckBox Left = 16 Top = 24 Width = 89 Height = 17 Caption = 'Check &all files' TabOrder = 1 OnClick = chkAllFilesClick end object lstInclude: TListBox Left = 176 Top = 40 Width = 57 Height = 95 IntegralHeight = True ItemHeight = 13 Sorted = True TabOrder = 2 end object btnIncAdd: TBitBtn Left = 244 Top = 42 Width = 61 Height = 25 HelpContext = 120 Caption = 'Add' TabOrder = 3 OnClick = btnIncAddClick Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300333333333333330033333333333333003333300033333300333330A03333 3300333330A033333300330000A000033300330AAAAAAA033300330000A00003 3300333330A033333300333330A0333333003333300033333300333333333333 33003333333333333300} Margin = 3 end object btnIncDelete: TBitBtn Left = 244 Top = 74 Width = 61 Height = 25 HelpContext = 121 Caption = 'Delete' TabOrder = 4 OnClick = btnIncDeleteClick Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300333333333333330033333333333333003333333333333300333333333333 330033333333333333003300000000003300330AAAAAAAA03300330000000000 3300333333333333330033333333333333003333333333333300333333333333 33003333333333333300} Margin = 3 end object btnReset: TBitBtn Left = 244 Top = 106 Width = 61 Height = 25 HelpContext = 122 Caption = 'Reset ' TabOrder = 5 OnClick = btnResetClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F88888FFF333333999999999 3333333888333888FF3333999333339993333388333333888FF3399933333339 993338833333333388F3399333333333993338833333333338F3993333333333 333388F3333333333333993333333333333388F3333333333333993333333333 333388F3333333333333993333333333333388F33333333FFFFF993333333399 999388FF33333388888F3993333333399993383FF3333338888F399933333333 99933883FF33333F888F339993333399999333883F333388888F333999999999 3393333888333888338333333999993333333333388888333333} Margin = 3 NumGlyphs = 2 end end object tabReport: TTabSheet HelpContext = 12330 Caption = 'Report File' object lblRptFilename: TLabel Left = 16 Top = 96 Width = 77 Height = 13 Caption = 'Report &file name' FocusControl = edtRptFileName end object edtRptFileName: TEdit Left = 16 Top = 112 Width = 249 Height = 21 HelpContext = 128 TabOrder = 2 Text = 'edtRptFileName' end object btnRptFileName: TBitBtn Left = 273 Top = 112 Width = 24 Height = 21 Hint = 'Browse for directory' HelpContext = 129 TabOrder = 3 OnClick = btnLocationClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8 B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8 B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB 0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000 55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05 55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05 55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555 5555575FFF755555555557000075555555555577775555555555} NumGlyphs = 2 Spacing = 0 end object radRptFile: TRadioGroup Left = 176 Top = 8 Width = 121 Height = 89 Caption = 'Report File' ItemIndex = 0 Items.Strings = ( 'A&ppend to file' '&Replace the file' '&No report') TabOrder = 1 TabStop = True OnClick = radReportClick end object radRptFormat: TRadioGroup Left = 16 Top = 8 Width = 145 Height = 60 Caption = 'Report Format' ItemIndex = 0 Items.Strings = ( '&Verbose' '&Comma-delimited text') TabOrder = 0 TabStop = True end object chkOnlyOnFinding: TCheckBox Left = 24 Top = 72 Width = 129 Height = 17 Caption = '&On finding only' TabOrder = 4 end end object tabExclude: TTabSheet HelpContext = 12350 Caption = 'Exclude List' object lblExclude: TLabel Left = 8 Top = 8 Width = 88 Height = 13 Caption = 'Exclude wildcards:' FocusControl = lstExclude end object lstExclude: TListBox Left = 8 Top = 24 Width = 225 Height = 108 HelpContext = 12350 IntegralHeight = True ItemHeight = 13 Sorted = True TabOrder = 0 end object btnExcAdd: TBitBtn Left = 244 Top = 26 Width = 61 Height = 25 HelpContext = 123 Caption = 'Add' TabOrder = 1 OnClick = btnExcAddClick Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300333333333333330033333333333333003333300033333300333330A03333 3300333330A033333300330000A000033300330AAAAAAA033300330000A00003 3300333330A033333300333330A0333333003333300033333300333333333333 33003333333333333300} Margin = 3 end object btnExcDelete: TBitBtn Left = 244 Top = 58 Width = 61 Height = 25 HelpContext = 124 Caption = 'Delete' TabOrder = 2 OnClick = btnExcDeleteClick Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300333333333333330033333333333333003333333333333300333333333333 330033333333333333003300000000003300330AAAAAAAA03300330000000000 3300333333333333330033333333333333003333333333333300333333333333 33003333333333333300} Margin = 3 end end object tabXlsInclude: TTabSheet HelpContext = 12360 Caption = 'Offensive worksheet names' object lblXlsInclude: TLabel Left = 8 Top = 8 Width = 225 Height = 33 AutoSize = False Caption = 'Add these worksheet names to the internal list of offensive Exce' + 'l worksheets:' FocusControl = lstExclude WordWrap = True end object lstXlsInclude: TListBox Left = 8 Top = 40 Width = 225 Height = 95 HelpContext = 12360 IntegralHeight = True ItemHeight = 13 Sorted = True TabOrder = 0 end object btnXlsDelete: TBitBtn Left = 244 Top = 74 Width = 61 Height = 25 HelpContext = 131 Caption = 'Delete' TabOrder = 1 OnClick = btnXlsDeleteClick Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300333333333333330033333333333333003333333333333300333333333333 330033333333333333003300000000003300330AAAAAAAA03300330000000000 3300333333333333330033333333333333003333333333333300333333333333 33003333333333333300} Margin = 3 end object btnXlsAdd: TBitBtn Left = 244 Top = 42 Width = 61 Height = 25 HelpContext = 130 Caption = 'Add' TabOrder = 2 OnClick = btnXlsAddClick Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300333333333333330033333333333333003333300033333300333330A03333 3300333330A033333300330000A000033300330AAAAAAA033300330000A00003 3300333330A033333300333330A0333333003333300033333300333333333333 33003333333333333300} Margin = 3 end end end object dlgLocation: TSaveDialog DefaultExt = 'rpt' Filter = 'Report files|*.rpt|All files|*.*' Options = [ofHideReadOnly, ofPathMustExist, ofShareAware, ofNoReadOnlyReturn] Title = 'Report File' Left = 392 end end