object MainForm: TMainForm Left = 280 Top = 124 Width = 629 Height = 455 Caption = '%' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu Position = poDefaultPosOnly ShowHint = True OnActivate = FormActivate OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Header: TPaintBox Left = 0 Top = 26 Width = 621 Height = 22 Align = alTop OnPaint = HeaderPaint end object Bevel: TBevel Left = 0 Top = 0 Width = 621 Height = 2 Align = alTop Shape = bsTopLine end object Statusbar: TPaintBox Left = 0 Top = 388 Width = 621 Height = 21 Align = alBottom OnPaint = StatusbarPaint end object ListBox: TListBox Left = 0 Top = 48 Width = 621 Height = 319 Align = alClient Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 20 MultiSelect = True ParentFont = False Style = lbOwnerDrawFixed TabOrder = 0 OnClick = ListBoxClick OnDblClick = ListBoxDblClick OnDrawItem = ListBoxDrawItem OnKeyDown = ListBoxKeyDown OnKeyPress = ListBoxKeyPress OnMouseDown = ListBoxMouseDown end object MainToolbar: TToolbarControl Left = 0 Top = 2 Width = 621 Height = 24 Align = alTop BevelOuter = bvNone IniFilename = 'BEYOND32.INI' PopupMenu = ToolbarPopup TabOrder = 1 object SelectBtn: TSpeedButton Left = 11 Top = 2 Width = 22 Height = 22 Hint = 'Select base folders' Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333330000003333333333333333330000003333333333333333330000003800 000000000003330000003007B7B7B7B7B7B03300000030F07B7B7B7B7B703300 000030B0B7B7B7B7B7B70300000030FB0B7B7B7B7B7B0300000030BF07B7B7B7 B7B7B000000030FBF000007B7B7B7000000030BFBFBFBF0000000300000030FB FBFBFBFBFB033300000030BFBFBFBFBFBF033300000030FBFBF0000000333300 0000330000033333333333000000333333333333333333000000333333333333 333333000000333333333333333333000000} OnClick = SelectBtnClick end object ShowAnyBtn: TSpeedButton Left = 55 Top = 2 Width = 22 Height = 22 Hint = 'Show any files' GroupIndex = 1 Down = True Glyph.Data = { C6000000424DC60000000000000076000000280000000A0000000A0000000100 0400000000005000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777F7777F700 0000770FF770F70000007800FF00770000007880000777000000778800FFF700 000077000000FF000000700800F007000000887800F877000000777800777700 00007778877777000000} OnClick = ShowAny1Click end object ShowMismatchesBtn: TSpeedButton Left = 77 Top = 2 Width = 22 Height = 22 Hint = 'Only show mismatched files' GroupIndex = 1 Glyph.Data = { BE000000424DBE0000000000000076000000280000000F000000090000000100 0400000000004800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777FF777FF 777077770077700FF770777007778800FF707700777778800FF0700FF7777788 00708800FF777770077078800FF7770077707788007770077770777888778877 7770} OnClick = ShowMismatchesOnly1Click end object ShowMatchesBtn: TSpeedButton Left = 99 Top = 2 Width = 22 Height = 22 Hint = 'Only show matching files' GroupIndex = 1 Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000000000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77007777777777777700777777777777770077777777777777007777FFFFFFFF 7785777000000007770277888888887777007777FFFFFFFF774F777000000007 77007788888888777700777777777777770077777777777777FF777777777777 77007777777777777700} OnClick = ShowMatchesOnly1Click end object ShowDoublesBtn: TSpeedButton Left = 121 Top = 2 Width = 22 Height = 22 Hint = 'Only show files on both sides' GroupIndex = 1 Glyph.Data = { A6000000424DA6000000000000007600000028000000080000000C0000000100 0400000000003000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077FFFFFF7000 000780088877800FF7778800FF7778800FF7778800FF77F8800F700F800F800F 80078800007778888777} OnClick = ShowDoubleSidesOnly1Click end object ShowSinglesBtn: TSpeedButton Left = 165 Top = 2 Width = 22 Height = 22 Hint = 'Only show files on one side and not the other' GroupIndex = 1 Glyph.Data = { A6000000424DA6000000000000007600000028000000060000000C0000000100 0400000000003000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007777FF007770 0F0077800F0077800F0077800F0077800F0077800F0077800F0077800F007000 0F008880070077887700} OnClick = ShowSingleSidesOnly1Click end object RefreshBtn: TSpeedButton Left = 275 Top = 2 Width = 22 Height = 22 Hint = 'Refresh' Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000000000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777888777 770077778000088777007780000000087700770007FFF0008700770077777F00 87C67007777777F008C6F007777777F008C6F007777787F008C6F008777F08F0 07C67F00877F080077C67F00777F000087C677F7777F000877C67777777F0000 08C67777777FFFFFF7C6} OnClick = RefreshBtnClick end object CopyRightBtn: TSpeedButton Left = 363 Top = 2 Width = 22 Height = 22 Hint = 'Copy to right' Glyph.Data = { 50010000424D500100000000000076000000280000001E0000000C0000000100 040000000000C000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777778877 777777777778877777007777777F00877777777777F7787777007777777F0008 7777777777F77787770078888887000087778888887777787700F00000000000 087F7777777777778700F00000000000008F7777777777777800F00000000000 007F7777777777777700F00000000000077F7777777777777700FFFFFFFF0000 777FFFFFFFF7777777007777777F00077777777777F7777777007777777F0077 7777777777F7777777007777777FF7777777777777FF77777700000000000000 0000000000000000000000000000000000000000} Layout = blGlyphRight NumGlyphs = 2 OnClick = CopyRightBtnClick end object CopyLeftBtn: TSpeedButton Left = 385 Top = 2 Width = 22 Height = 22 Hint = 'Copy to left' Glyph.Data = { 50010000424D500100000000000076000000280000001E0000000C0000000100 040000000000C000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777887777 7777777778877777770077777008777777777777778777777700777700087777 7777777777877777770077700008888888877777778888888800770000000000 0087777777777777780070000000000000877777777777777800F00000000000 008F7777777777777800FF0000000000008F77777777777778007FF00007FFFF FF77FF77777FFFFFF70077FF0008777777777FF7778777777700777FF0087777 777777FF7787777777007777FFF777777777777FFF7777777700000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = CopyLeftBtnClick end object DeleteBtn: TSpeedButton Left = 473 Top = 2 Width = 22 Height = 22 Hint = 'Delete' Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777770000000777777777777777770000000777777777777770F700000007777 0F777777777770000000777000F7777770F770000000777000F777770F777000 00007777000F77700F777000000077777000F700F7777000000077777700000F 7777700000007777777000F777777000000077777700000F7777700000007777 7000F70F7777700000007770000F77700F7770000000770000F7777700F77000 00007700F7777777700F70000000777777777777777770000000777777777777 777770000000} OnClick = DeleteBtnClick end object CloseBtn: TSpeedButton Left = 592 Top = 2 Width = 22 Height = 22 Hint = 'Exit program' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F3333333F7F333301111111B10333337F333333737F33330111111111 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11 0333337F377777337F333301111111110333337F333333337F33330111111111 0333337FFFFFFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 Visible = False OnClick = CloseBtnClick end object QuickCompareBtn: TSpeedButton Left = 341 Top = 2 Width = 22 Height = 22 Hint = 'Quick compare' Glyph.Data = { D6000000424DD6000000000000007600000028000000100000000C0000000100 0400000000006000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 FF777777777777700777777777777778FF7777FFFFFFF7700F77700000007770 0F778888888777700FF777FFFFFFF77800FF7000000077F8800F8888888770FF 800F77777777800F800777777777880000777777777778888777} OnClick = PopupQuickCompareClick end object SetPropertiesBtn: TSpeedButton Left = 568 Top = 2 Width = 22 Height = 22 Hint = 'Options' Glyph.Data = { 06010000424D060100000000000076000000280000000F000000120000000100 0400000000009000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 888F000000000000000F088888888888880F088808888888880F088000888888 880F080080088888880F088888008888880F088888800888880F088808888888 880F088000888888880F080080088888880F088888008888880F088888800888 880F088888888888880F000000000000000F080333333333080F000000000000 000F888888888888888F} Visible = False OnClick = SetPropertiesBtnClick end object SelectAllBtn: TSpeedButton Left = 297 Top = 2 Width = 22 Height = 22 Hint = 'Select all' Glyph.Data = { FE000000424DFE0000000000000076000000280000000C000000110000000100 0400000000008800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077770F777777 7FFF777000F77777FFFF770000F77777FFFF7000F00F7777FFFF000F7700F777 FFFF70F77770F777FFEF777777770F77FFFF77770F7770F77FFF777000F7770F FFFF770000F77770FFFF7000F00F7777FFFF000F7700F777FFFF70F77770F777 FFEF777777770F77FFFF7777777770F77FFF77777777770FFFFF777777777770 FFFF} OnClick = SelectAllClick end object PrintBtn: TSpeedButton Left = 544 Top = 2 Width = 22 Height = 22 Hint = 'Report' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 Visible = False OnClick = PrintBtnClick end object SelectNewerBtn: TSpeedButton Left = 319 Top = 2 Width = 22 Height = 22 Hint = 'Select newer' Glyph.Data = { FE000000424DFE0000000000000076000000280000000C000000110000000100 0400000000008800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077771F777777 7FFF777111F77777FFFF771111F77777FFFF7111F11F7777FFFF111F7711F777 FFFF71F77771F777FFEF777777771F77FFFF77771F7771F77FFF777111F7771F FFFF771111F77771FFFF7111F11F7777FFFF111F7711F777FFFF71F77771F777 FFEF777777771F77FFFF7777777771F77FFF77777777771FFFFF777777777771 FFFF} OnClick = SelectNewerBtnClick end object ExpandBtn: TSpeedButton Left = 253 Top = 2 Width = 22 Height = 22 Hint = 'Open all folders' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303330333333 333330333033333333333033303300000300303330000BBB0333303330330BB0 033330333033300333333033303333333333303300000300000330000BBB0333 333330330BB00333333330333003333333333033333333333333000003000003 33330BBB0333333333330BB00333333333333003333333333333} OnClick = ExpandBtnClick end object ShowMismatchedDoublesBtn: TSpeedButton Left = 143 Top = 2 Width = 22 Height = 22 Hint = 'Only show mismatched files on both sides' GroupIndex = 1 Glyph.Data = { A6000000424DA6000000000000007600000028000000080000000C0000000100 0400000000003000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077FFFFFF7111 111781188877811FF7778811FF7778811FF7778811FF77F8811F711F811F811F 81178811117778888777} OnClick = ShowMismatchedDoubles1Click end object BackupBtn: TSpeedButton Left = 429 Top = 2 Width = 22 Height = 22 Hint = 'Backup files before copy' AllowAllUp = True GroupIndex = 2 Glyph.Data = { 36010000424D3601000000000000760000002800000012000000100000000100 040000000000C000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000008 888888000000808F8F8F8F0888888800000080F8F8F8F800000008000000808F 8F8F8F0787870800000080F8F8F8F8087878080100F0808F8F8F8F0787870801 004080F8F8F8F808787808000000808F8F8F8F0787870800000080F8F8000008 7878080C0000808F8F08F80787870800000080F8F80F8078000008000000808F 8F08078707870800000080000000787808708800000088888880878707088800 0000888888800000008888F01A01888888888888888888FFFFFF} OnClick = MakeBackupsClick end object ShowOlderBtn: TSpeedButton Left = 187 Top = 2 Width = 22 Height = 22 Hint = 'Only show left side older files' GroupIndex = 1 Glyph.Data = { A2000000424DA2000000000000007600000028000000080000000B0000000100 0400000000002C00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777FF7777 7007777700777770077777007777700FF7778800FF7778800FF7778800FF7778 800777778887} OnClick = ShowOlderFiles1Click end object ShowNewerBtn: TSpeedButton Left = 209 Top = 2 Width = 22 Height = 22 Hint = 'Only show left side newer files' GroupIndex = 1 Glyph.Data = { A2000000424DA2000000000000007600000028000000080000000B0000000100 0400000000002C00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077FF7777700F F7778800FF7778800FF7778800FF777880077777007777700777770077777007 777777777777} OnClick = ShowNewerFiles1Click end object CollapseBtn: TSpeedButton Left = 520 Top = 2 Width = 22 Height = 22 Hint = 'Close all folders' Glyph.Data = { F6000000424DF60000000000000076000000280000000F000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333 3330303333333333333000000300000333300BBB0333333333300BB003333333 33303003333333333330303333333333333000000300000333300BBB03333333 33300BB003333333333030033333333333303033333333333330000003000003 33300BBB0333333333300BB00333333333303003333333333330} Visible = False OnClick = CollapseBtnClick end end object Legend: TPanel Left = 0 Top = 367 Width = 621 Height = 21 Align = alBottom Alignment = taLeftJustify BevelOuter = bvNone BorderWidth = 1 Caption = ' Legend:' TabOrder = 2 object LegendPanel: TPanel Left = 55 Top = 1 Width = 565 Height = 19 Align = alRight BevelOuter = bvNone BorderStyle = bsSingle Color = clWindow TabOrder = 0 object LegendBox: TPaintBox Left = 0 Top = 0 Width = 561 Height = 15 Align = alClient OnPaint = LegendBoxPaint end end end object FunctionsPopup: TPopupMenu AutoPopup = False Left = 48 Top = 96 object PopupLink: TMenuItem Caption = 'Link' ShortCut = 0 OnClick = PopupLinkClick end object PopupQuickCompare: TMenuItem Caption = '&Quick Compare' ShortCut = 0 OnClick = PopupQuickCompareClick end object N7: TMenuItem Caption = '-' ShortCut = 0 end object PopupCopyRight: TMenuItem Caption = 'Copy -->' ShortCut = 0 OnClick = CopyRightBtnClick end object PopupCopyLeft: TMenuItem Caption = '<-- Copy' ShortCut = 0 OnClick = CopyLeftBtnClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object PopupDelete: TMenuItem Caption = '&Delete...' ShortCut = 0 OnClick = DeleteBtnClick end object AcquireCutoff: TMenuItem Caption = '&Acquire Cutoff' ShortCut = 0 OnClick = AcquireCutoffClick end object ExpandFromHere: TMenuItem Caption = '&Expand Subfolders' ShortCut = 0 OnClick = ExpandFromHereClick end object OpenWith2: TMenuItem Caption = '&Open With' ShortCut = 0 end end object MainMenu: TMainMenu Left = 16 Top = 96 object File1: TMenuItem Caption = '&File' ShortCut = 0 object Open1: TMenuItem Caption = '&Open' Default = True ShortCut = 0 OnClick = ListBoxDblClick end object OpenWith1: TMenuItem Caption = 'Open &With' ShortCut = 0 end object Link1: TMenuItem Caption = 'Lin&k' ShortCut = 0 OnClick = PopupLinkClick end object QuickCompare1: TMenuItem Caption = '&Quick Compare' ShortCut = 0 OnClick = PopupQuickCompareClick end object Copy1: TMenuItem Caption = 'Copy &Right -->' ShortCut = 0 OnClick = CopyRightBtnClick end object Copy2: TMenuItem Caption = '<-- Copy &Left' ShortCut = 0 OnClick = CopyLeftBtnClick end object Delete1: TMenuItem Caption = '&Delete...' ShortCut = 0 OnClick = DeleteBtnClick end object N9: TMenuItem Caption = '-' ShortCut = 0 end object MakeBackups: TMenuItem Caption = '&Backup Files Before Copy' Checked = True ShortCut = 0 OnClick = MakeBackupsClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object SelectDirectories1: TMenuItem Caption = '&Folders...' ShortCut = 0 OnClick = SelectBtnClick end object Report1: TMenuItem Caption = '&Print...' ShortCut = 0 OnClick = PrintBtnClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = CloseBtnClick end end object Edit1: TMenuItem Caption = '&Edit' ShortCut = 0 object SelectAll2: TMenuItem Caption = '&Select All' ShortCut = 16449 OnClick = SelectAllClick end object SelectNewer2: TMenuItem Caption = 'Select &Newer' ShortCut = 0 OnClick = SelectNewerBtnClick end end object Display1: TMenuItem Caption = '&Display Filter' ShortCut = 0 object ShowAny1: TMenuItem Caption = 'Show &Any Files' ShortCut = 0 OnClick = ShowAny1Click end object ShowMismatchesOnly1: TMenuItem Caption = 'Show Mismatched &Files' ShortCut = 0 OnClick = ShowMismatchesOnly1Click end object ShowMatchesOnly1: TMenuItem Caption = 'Show &Matching Files' ShortCut = 0 OnClick = ShowMatchesOnly1Click end object ShowDoubleSidesOnly1: TMenuItem Caption = 'Show &Double Sides' ShortCut = 0 OnClick = ShowDoubleSidesOnly1Click end object ShowMismatchedDoubles1: TMenuItem Caption = 'Show Mismatched Do&uble Sides' ShortCut = 0 OnClick = ShowMismatchedDoubles1Click end object ShowSingleSidesOnly1: TMenuItem Caption = 'Show &Single Sides' ShortCut = 0 OnClick = ShowSingleSidesOnly1Click end object ShowOlderFiles1: TMenuItem Caption = 'Show Left Side &Older Files' ShortCut = 0 OnClick = ShowOlderFiles1Click end object ShowNewerFiles1: TMenuItem Caption = 'Show Left Side &Newer Files' ShortCut = 0 OnClick = ShowNewerFiles1Click end object N10: TMenuItem Caption = '-' ShortCut = 0 end object SetCutoffTime: TMenuItem Caption = 'Set &Cutoff Date, Time' ShortCut = 0 OnClick = SetCutoffTimeClick end end object View1: TMenuItem Caption = '&View' ShortCut = 0 object ShowToolbar: TMenuItem Caption = '&Toolbar' Checked = True ShortCut = 0 OnClick = ShowToolbarClick end object ShowStatusbar: TMenuItem Caption = '&Statusbar' Checked = True ShortCut = 0 OnClick = ShowStatusbarClick end object ShowLegend: TMenuItem Caption = '&Legend' Checked = True ShortCut = 0 OnClick = ShowLegendClick end object N8: TMenuItem Caption = '-' ShortCut = 0 end object ExpandAll1: TMenuItem Caption = '&Expand All' ShortCut = 0 OnClick = ExpandBtnClick end object CollapseAll1: TMenuItem Caption = '&Collapse All' ShortCut = 0 OnClick = CollapseBtnClick end object Refresh1: TMenuItem Caption = '&Refresh' ShortCut = 116 OnClick = RefreshBtnClick end object N6: TMenuItem Caption = '-' ShortCut = 0 end object P1: TMenuItem Caption = '&Options' ShortCut = 0 object MainWindowOptions1: TMenuItem Caption = '&Main Window Options...' ShortCut = 0 OnClick = SetPropertiesBtnClick end object ConfigureToolbar2: TMenuItem Caption = 'Configure &Toolbar...' ShortCut = 0 OnClick = ConfigureToolbar1Click end object FileViewerOptions1: TMenuItem Caption = '&File Viewer Options...' ShortCut = 0 OnClick = FileViewerOptions1Click end end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object Contents1: TMenuItem Caption = '&Help Topics' ShortCut = 0 OnClick = Contents1Click end object N4: TMenuItem Caption = '-' ShortCut = 0 end object Register1: TMenuItem Caption = '&Register...' ShortCut = 0 OnClick = Register1Click end object N5: TMenuItem Caption = '-' ShortCut = 0 end object About1: TMenuItem Caption = '&About...' ShortCut = 0 OnClick = About1Click end end end object Timer: TTimer Interval = 500 OnTimer = TimerTimer Left = 112 Top = 96 end object ToolbarPopup: TPopupMenu Left = 80 Top = 96 object ConfigureToolbar1: TMenuItem Caption = 'Configure Toolbar...' ShortCut = 0 OnClick = ConfigureToolbar1Click end end end