object FrameForm: TFrameForm Left = 663 Top = 209 HelpContext = 102 HorzScrollBar.Visible = False VertScrollBar.Visible = False AutoScroll = False Caption = 'SCE 1.74 E for Pascal and Delphi' ClientHeight = 348 ClientWidth = 487 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'System' Font.Style = [] FormStyle = fsMDIForm Icon.Data = {} Menu = MainMenu1 OldCreateOrder = True Position = poDesktopCenter Scaled = False WindowMenu = Window1 OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 16 object StatusBar1: TStatusBar Left = 0 Top = 326 Width = 487 Height = 22 Panels = <> ParentShowHint = False ShowHint = True SimplePanel = True end object ProgressBar1: TProgressBar Left = 0 Top = 297 Width = 487 Height = 20 Align = alBottom Min = 0 Max = 100 TabOrder = 1 end object Dock97L: TDock97 Left = 0 Top = 26 Width = 9 Height = 271 Position = dpLeft end object Dock97R: TDock97 Left = 478 Top = 26 Width = 9 Height = 271 Position = dpRight end object Dock97U: TDock97 Left = 0 Top = 317 Width = 487 Height = 9 Position = dpBottom end object Dock97O: TDock97 Left = 0 Top = 0 Width = 487 Height = 26 object Toolbar97: TToolbar97 Left = 0 Top = 0 HelpContext = 122 Caption = 'SCE' CloseButton = False DefaultDock = Dock97O DockedTo = Dock97O DockPos = 0 ParentShowHint = False ShowHint = True TabOrder = 0 object Name2Button: TToolbarButton97 Left = 418 Top = 0 Width = 55 Height = 22 Hint = 'Language setting: user defiend' Caption = 'Name2' ParentShowHint = False ShowBorderWhenInactive = True ShowHint = True OnClick = Name2ButtonClick end object Name1Button: TToolbarButton97 Left = 363 Top = 0 Width = 55 Height = 22 Hint = 'Language setting: user defiend' Caption = 'Name1' ParentShowHint = False ShowBorderWhenInactive = True ShowHint = True OnClick = Name1ButtonClick end object OeffnenButton: TToolbarButton97 Left = 0 Top = 0 Width = 23 Height = 22 Hint = 'File open | Opens a file' AllowAllUp = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777777777000000000007777700333333333077770B0333333333 07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07 77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777 7007777777770777070777777777700077777777777777777777} ParentShowHint = False ShowBorderWhenInactive = True ShowHint = True OnClick = OeffnenButtonClick end object TP4_5Button: TToolbarButton97 Left = 308 Top = 0 Width = 55 Height = 22 Hint = 'Language setting: TP4/5' Caption = 'TP4/5' ParentShowHint = False ShowBorderWhenInactive = True ShowHint = True OnClick = TP4_5ButtonClick end object StrukDruckButton: TToolbarButton97 Left = 23 Top = 0 Width = 23 Height = 22 Hint = 'Prints structure | Prints structure' AllowAllUp = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 22222200000000000222208888888880802200000000000008020888888BBB88 0002088888877788080200000000000008800888888888808080200000000008 0800220FFFFFFFF080802220F00000F000022220FFFFFFFF022222220F00000F 022222220FFFFFFFF02222222000000000222222222222222222} ParentShowHint = False ShowBorderWhenInactive = True ShowHint = True OnClick = StrukDruckButtonClick end object TP6_7Button: TToolbarButton97 Left = 253 Top = 0 Width = 55 Height = 22 Hint = 'Language setting: TP6/7' Caption = 'TP6/7' ParentShowHint = False ShowBorderWhenInactive = True ShowHint = True OnClick = TP6_7ButtonClick end object ZNRButton: TToolbarButton97 Left = 104 Top = 0 Width = 27 Height = 22 Hint = 'Switch over with/without line numbers | Switches over the depict' + 'ion of charts with or without line numbers' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 76020000424D7602000000000000760000002800000040000000100000000100 0400000000000002000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888888888888888888888888888888888888888888888888888888 8888888888888888888888888888888888888888888888888888888888888888 8888888888888888888888888888888888888888888888888888888888888888 8888888888888888888888888888888888888800088888888888888888888888 8888888888888888888888888888888888888808888888888888800000000000 0000800000000000000800000000000000088880888000000008888888888888 8888888888888888888888888888888888888888088888888888888888888888 8888888888888888888888888888888888888800888888888888888888888888 8888888888888888888888888888888888888888888888888888888888888888 8888888888888888888888888888888888888888088888888888800000000000 0000800000000000000800000000000000088888088000000008888888888888 8888888888888888888888888888888888888088088888888888888888888888 8888888888888888888888888888888888888808088888888888888888888888 8888888888888888888888888888888888888880088888888888888888888888 8888888888888888888888888888888888888888888888888888888888888888 8888888888888888888888888888888888888888888888888888} NumGlyphs = 4 ParentShowHint = False ShowBorderWhenInactive = True ShowHint = True OnClick = ZNRButtonClick end object SchalterButton: TToolbarButton97 Left = 137 Top = 0 Width = 55 Height = 22 Hint = 'Compiler switch recognition' Caption = '{IFDEF}' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -16 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowBorderWhenInactive = True ShowHint = True OnClick = SchalterButtonClick end object DelphiButton: TToolbarButton97 Left = 198 Top = 0 Width = 55 Height = 22 Hint = 'Language setting: Delphi' Caption = 'Delphi' ParentShowHint = False ShowBorderWhenInactive = True ShowHint = True OnClick = DelphiButtonClick end object ToolbarSep971: TToolbarSep97 Left = 192 Top = 0 end object ToolbarSep972: TToolbarSep97 Left = 131 Top = 0 end object SearchButton: TToolbarButton97 Left = 52 Top = 0 Width = 23 Height = 22 Hint = 'Search for words' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777700000777770000070F000777770F00070F000777770F 0007000000070000000700F000000F00000700F000700F00000700F000700F00 00077000000000000077770F00070F0007777700000700000777777000777000 77777770F07770F0777777700077700077777777777777777777} ParentShowHint = False ShowBorderWhenInactive = True ShowHint = True OnClick = SearchButtonClick end object SuchWeiterButton: TToolbarButton97 Left = 75 Top = 0 Width = 23 Height = 22 Hint = 'Continue search' Enabled = False Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 2222222222222222422222222222222244222224242424444442222222222222 4422222222222222422222222222222222220002220002222222000222000222 2222080020800222222207002070022222220000000002222222208000802222 2222220020022222222222002002222222222222222222222222} ParentShowHint = False ShowBorderWhenInactive = True ShowHint = True OnClick = SuchWeiterButtonClick end object ToolbarSep973: TToolbarSep97 Left = 46 Top = 0 end object ToolbarSep974: TToolbarSep97 Left = 98 Top = 0 end end end object MainMenu1: TMainMenu Left = 275 Top = 57 object File1: TMenuItem Caption = '&File' HelpContext = 103 Hint = 'Closes the active window' object Open1: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777777777000000000007777700333333333077770B0333333333 07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07 77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777 7007777777770777070777777777700077777777777777777777} Caption = '&Open' HelpContext = 103 Hint = 'Opens a file' OnClick = OpenChild end object Schlieen1: TMenuItem Caption = 'C&lose' HelpContext = 103 Hint = 'Closes the active window' OnClick = Schlieen1Click end object Separator3: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = '&Exit' HelpContext = 103 Hint = 'Finishes the program' OnClick = Exit1Click end end object Struktur1: TMenuItem Caption = '&Structure' GroupIndex = 1 HelpContext = 103 object Erkennen1: TMenuItem Caption = '&Recognize...' HelpContext = 115 Hint = 'Opens a dialog where the language settings can be changed.' OnClick = Erkennen1Click end object Bildschirmdarsstellung1: TMenuItem Caption = '&Monitor depiction' HelpContext = 105 Hint = 'Opens a dialog for the monitor depiction of the structure charts' + '.' OnClick = Bildschirmdarsstellung1Click end object Druckoptionen1: TMenuItem Caption = 'Print &options' HelpContext = 103 Hint = 'Opens a dialog for setting the print options.' OnClick = Druckoptionen1Click end object N1: TMenuItem Caption = '-' end object Druckereinstellungen1: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 2222220000000000002222077577777570222205555555555022220775777775 7022220775777775702222077577777570222207757777757022220775777775 7022220775777775702222077577777570222207757777757022220775777700 0022220555555507022222077577770022222200000000022222} Caption = 'Printer &settings...' HelpContext = 103 Hint = 'Opens a dialog for the printer settings.' OnClick = Druckereinstellungen1Click end object Drucken1: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 22222200000000000222208888888880802200000000000008020888888BBB88 0002088888877788080200000000000008800888888888808080200000000008 0800220FFFFFFFF080802220F00000F000022220FFFFFFFF022222220F00000F 022222220FFFFFFFF02222222000000000222222222222222222} Caption = '&Print' HelpContext = 103 Hint = 'Prints the structure chart of the active window.' OnClick = Drucken1Click end end object Suchen: TMenuItem Caption = 'S&earch' GroupIndex = 2 HelpContext = 103 Hint = 'Search for line numbers or words.' object Zeilennummer: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777700000777770000070F000777770F00070F000777770F 0007000000070000000700F000000F00000700F000700F00000700F000700F00 00077000000000000077770F00070F0007777700000700000777777000777000 77777770F07770F0777777700077700077777777777777777777} Caption = '&Line number' Enabled = False HelpContext = 120 Hint = 'Search for line number.' ShortCut = 16474 end object Wort: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777700000777770000070F000777770F00070F000777770F 0007000000070000000700F000000F00000700F000700F00000700F000700F00 00077000000000000077770F00070F0007777700000700000777777000777000 77777770F07770F0777777700077700077777777777777777777} Caption = '&Word' Enabled = False HelpContext = 121 Hint = 'Search for words.' ShortCut = 16454 end object Weitersuchen: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 2222222222222222422222222222222244222224242424444442222222222222 4422222222222222422222222222222222220002220002222222000222000222 2222080020800222222207002070022222220000000002222222208000802222 2222220020022222222222002002222222222222222222222222} Caption = '&Continue search' Enabled = False HelpContext = 103 Hint = 'Continues search.' ShortCut = 114 end object N2: TMenuItem Caption = '-' end object Suchergebnisse1: TMenuItem Caption = 'Search &results' Enabled = False HelpContext = 103 Hint = 'Shows a list of search results if available' end object Suchergebnissedrucken1: TMenuItem Caption = '&Print search results' Enabled = False HelpContext = 103 Hint = 'Prints a list of search results if available.' end object Listelschen1: TMenuItem Caption = '&Delete list' Enabled = False HelpContext = 103 Hint = 'Deletes a list of search results.' end end object Optionen: TMenuItem Caption = '&Options' GroupIndex = 3 object Registrierung1: TMenuItem Caption = '&Registry' HelpContext = 118 Hint = 'Opens a dialog to set double click actions.' OnClick = Registrierung1Click end end object Window1: TMenuItem Caption = '&Window' GroupIndex = 4 HelpContext = 103 object Nebeneinander1: TMenuItem Caption = 'Tile &horizontaly' HelpContext = 103 Hint = 'Shows all windows side by side.' OnClick = Nebeneinander1Click end object Tile1: TMenuItem Caption = 'Tile &vertical' HelpContext = 103 Hint = 'Shows all windows one on top of the other.' OnClick = Tile1Click end object Cascade1: TMenuItem Caption = '&Cascade' HelpContext = 103 Hint = '&Shows all windows overlapping.' OnClick = Cascade1Click end object ArrangeIcons1: TMenuItem Caption = '&Arrange Icons' HelpContext = 103 Hint = 'Arranges all icons' OnClick = ArrangeIcons1Click end end object Hilfe1: TMenuItem Caption = '&Help' GroupIndex = 5 HelpContext = 103 object Inhalt1: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 2222222222200022222222222005580222222220055FF780222220055FF00778 0222855FF0055077802285F00555550778028005553B55507780855555535555 070225F55555BB555002225F555553BB55022225F55535BB555022225F55BBB5 5500222225F5555500222222225F550022222222222550222222} Caption = '&Contents' HelpContext = 103 Hint = 'Shows the contents of the helpfile' OnClick = Inhalt1Click end object ber1: TMenuItem Caption = '&About...' HelpContext = 103 OnClick = ber1Click end object Demodruck1: TMenuItem Caption = '&Demo Printout' HelpContext = 103 Hint = 'Makes a demonstration printout of the file provided.' OnClick = Demodruck1Click end object N3: TMenuItem Caption = '-' end object SCEHomepage1: TMenuItem Caption = '&SCE Homepage...' OnClick = SCEHomepage1Click end object Onlineregistration1: TMenuItem Caption = 'Online &Registration...' HelpContext = 123 Hint = 'Register online with your credit card.' OnClick = Onlineregistration1Click end end end object FontDialog1: TFontDialog Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 248 Top = 144 end object OpenFileDialog: TOpenDialog Filter = 'Delphi- and Pascal-files(*.pas)|*.pas|Delphi-projects(*.dpr)|*.d' + 'pr|all files(*.*)|*.*' Left = 88 Top = 96 end object PrinterSetupDialog1: TPrinterSetupDialog Left = 352 Top = 120 end object MRUFileList: TMRUFileList Maximum = 20 UseSubmenu = True InsertSeparator = False SubmenuName = '&Reopen' ClearItemName = '&Clear MRU List' RemoveObsoleteName = '&Remove Obsolete' OnMRUItemClick = MRUFileListMRUItemClick FileMenu = Schlieen1 AutoSaveName = '\Software\SCE' AutoSaveKey = 'MRU Items' MaxCaptionWidth = 300 Left = 48 Top = 88 end end