2010-12-07 21:18

     CREATE mnuMain AS QMAINMENU
      PARENT = MainForm
          '===============================================================
      CREATE mnuFile AS QMENUITEM
       CAPTION = "&File"

       CREATE mnuNew AS QMENUITEM
        CAPTION = "&New"
        ShortCut = "Ctrl+N"
        OnClick = MFE_NewFile
        Tag = IDE_ManageMenu(mnuNew)
       END CREATE

       CREATE mnuOpen AS QMENUITEM
        CAPTION = "&Open"
        ShortCut = "Ctrl+O"
        OnClick = MFE_Open
        Tag = IDE_ManageMenu(mnuOpen)
       END CREATE

       CREATE mnuOpenRecent AS QMENUITEM
        CAPTION = "Open &Recent"
'            Tag = IDE_ManageMenu(mnuOpenRecent)     'ok if Shortcut is blank

        CREATE mnuRecent0 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent1 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent2 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent3 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent4 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent5 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent6 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent7 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent8 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent9 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent10 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent11 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent12 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent13 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent14 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
        CREATE mnuRecent15 AS QMENUITEM         'no more than IDE_MAX_RECENTFILES = 15
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentClick
        END CREATE
       END CREATE

       CREATE mnuOpenFileFromWeb AS QMENUITEM
        CAPTION = "Open Internet File"
        OnClick = mnuOpenFileFromWeb_Click
        Tag = IDE_ManageMenu(mnuOpenFileFromWeb)
       END CREATE

       CREATE Break01wMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE mnuOpenAppWizard AS QMENUITEM
        CAPTION = "Application &Wizard"
        OnClick = mnuOpenAppWizard_Click
        Shortcut = "Alt+W"
            'Tag = IDE_ManageMenu(mnuOpenAppWizard)
       END CREATE

       CREATE Break1wMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE mnuSave AS QMENUITEM
        CAPTION = "&Save"
        ShortCut = "CTRL+s"
        OnClick = MFE_Save
        Tag = IDE_ManageMenu(mnuSave)
       END CREATE

       CREATE mnuSaveAs AS QMENUITEM
        CAPTION = "Save &As"
        OnClick = MFE_SaveAs
        ShortCut = "Shift+Ctrl+a"
        Tag = IDE_ManageMenu(mnuSaveAs)
       END CREATE

       CREATE mnuSaveAll AS QMENUITEM
        CAPTION = "Save All"
        OnClick = MFE_SaveAll
        ShortCut = ""
        Tag = IDE_ManageMenu(mnuSaveAll)
       END CREATE

       CREATE Break1xMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE


        '=============================
       CREATE ProjMenu AS QMENUITEM
        CAPTION = "Pro&ject"
        CREATE mnuOpenProj AS QMENUITEM
         CAPTION = "Open Pro&ject"
         ShortCut = "Shift+Ctrl+P"
         OnClick = MFE_OpenProject
         Tag = IDE_ManageMenu(mnuOpenProj)
        END CREATE
        CREATE mnuSaveProj AS QMENUITEM
         CAPTION = "Sa&ve Project"
         OnClick = MFE_SaveProject
         Tag = IDE_ManageMenu(mnuSaveProj)
        END CREATE
        CREATE mnuCloseProjFiles AS QMENUITEM
         CAPTION = "Close project"
         OnClick = MFE_CloseProjectFiles
         Tag = IDE_ManageMenu(mnuCloseProjFiles)
        END CREATE
        CREATE mnuRecentProj0 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentProjClick
        END CREATE
        CREATE mnuRecentProj1 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentProjClick
        END CREATE
        CREATE mnuRecentProj2 AS QMENUITEM
         Visible = False
         CAPTION = ""
         OnClick = mnuRecentProjClick
        END CREATE

       END CREATE

       CREATE mnuClose AS QMENUITEM
        CAPTION = "&Close"
        OnClick = MFE_Close
        Tag = IDE_ManageMenu(mnuClose)
       END CREATE

       CREATE mnuCloseAll AS QMENUITEM
        CAPTION = "Close All"
        OnClick = MFE_CloseAll
        Tag = IDE_ManageMenu(mnuCloseAll)
       END CREATE

       CREATE PrintSetupMenu AS QMENUITEM
        CAPTION = "Page Setup"
        OnClick = pagesetupclick
        Tag = IDE_ManageMenu(PrintSetupMenu)
       END CREATE

       CREATE PrintMenu AS QMENUITEM
        CAPTION = "&Print.."
        ShortCut = "CTRL+P"
        OnClick = pageprintclick
        Tag = IDE_ManageMenu(PrintMenu)
       END CREATE

       CREATE ExitMenu AS QMENUITEM
        CAPTION = "E&xit"
        OnClick = ExitClick
        Tag = IDE_ManageMenu(ExitMenu)

       END CREATE
      END CREATE

'===============================================================
      CREATE VeiwMenu AS QMENUITEM
       CAPTION = "&View"
        '-----------------------------
       CREATE mnuViewMode AS QMENUITEM
        CAPTION = "Mode"
        CREATE mnuViewModeSimple AS QMENUITEM
         CAPTION = "&Simple"
         OnClick = mnuViewModeSimple_Click
         Tag = IDE_ManageMenu(mnuViewModeSimple)
        END CREATE
        CREATE mnuViewModeNovice AS QMENUITEM
         CAPTION = "&Novice"
         OnClick = mnuViewModeNovice_Click
         Tag = IDE_ManageMenu(mnuViewModeNovice)
        END CREATE
        CREATE mnuViewModeIntermediate AS QMENUITEM
         CAPTION = "&Intermediate"
         OnClick = mnuViewModeIntermediate_Click
         Tag = IDE_ManageMenu(mnuViewModeIntermediate)
        END CREATE
        CREATE mnuViewModeExpert AS QMENUITEM
         CAPTION = "&Expert"
         OnClick = mnuViewModeExpert_Click
         Tag = IDE_ManageMenu(mnuViewModeExpert)
        END CREATE
       END CREATE


       CREATE mnuViewLeftPanel AS QMENUITEM
        CAPTION = "&Properties"
        ShortCut = "Alt+F2"
        Checked = False
        OnClick = mnuViewLeftPanel_Click
        Tag = IDE_ManageMenu(mnuViewLeftPanel)
       END CREATE

       CREATE mnuViewBottomPanel AS QMENUITEM
        CAPTION = "&Output"
        ShortCut = "F11"
        Checked = True
        OnClick = mnuViewBottomPanel_Click
        Tag = IDE_ManageMenu(mnuViewBottomPanel)
       END CREATE

       CREATE mnuViewRightPanel AS QMENUITEM
        CAPTION = "&Navigation"
        ShortCut = "F2"
        Checked = True
        OnClick = mnuViewRightPanel_Click
        Tag = IDE_ManageMenu(mnuViewRightPanel)
       END CREATE

       CREATE QuickSearchMnu AS QMENUITEM
        CAPTION = "&Quick Search"
        Checked = True
        OnClick = VisibileQuickSearchClick
        Tag = IDE_ManageMenu(QuickSearchMnu)
       END CREATE

       CREATE mnuViewStatusBar AS QMENUITEM
        CAPTION = "&Status Bar"
        Checked = True
        OnClick = mnuViewStatusBar_Click
        Tag = IDE_ManageMenu(mnuViewStatusBar)
       END CREATE

       CREATE mnuViewFormDesigner AS QMENUITEM
        CAPTION = "&Form Designer"
        Checked = False
        OnClick = mnuViewFormDesigner_Click
        Tag = IDE_ManageMenu(mnuViewFormDesigner)
       END CREATE

       CREATE Break22bMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

        '-----------------------------
       CREATE mnuViewToolbars AS QMENUITEM
        CAPTION = "&Toolbars"
        CREATE mnuViewTopPanel AS QMENUITEM
         CAPTION = "Top Panel Control"
         Checked = True
         OnClick = mnuViewTopPanel_Click
         Tag = IDE_ManageMenu(mnuViewTopPanel)
        END CREATE

        CREATE Break22Menu AS QMENUITEM
         CAPTION = "-"
         Enabled = False
        END CREATE

        CREATE mnuViewWidgetToolBar AS QMENUITEM
         CAPTION = "&Widget/Snippet ToolBar"
         Checked = False
         OnClick = mnuViewWidgetToolBar_Click
        END CREATE

        CREATE Break22cMenu AS QMENUITEM
         CAPTION = "-"
         Enabled = False
        END CREATE

        CREATE mnuViewFileToolBar AS QMENUITEM
         CAPTION = "File ToolBar"
         Checked = True
         OnClick = mnuViewFileToolBar_Click
        END CREATE

        CREATE mnuViewEditToolBar AS QMENUITEM
         CAPTION = "Edit ToolBar"
         Checked = True
         OnClick = mnuViewEditToolBar_Click
        END CREATE

        CREATE mnuViewCompileToolBar AS QMENUITEM
         CAPTION = "Compile ToolBar"
         Checked = True
         OnClick = mnuViewCompileToolBar_Click
        END CREATE

        CREATE mnuViewViewToolBar AS QMENUITEM
         CAPTION = "View ToolBar"
         Checked = True
         OnClick = mnuViewViewToolBar_Click
        END CREATE

        CREATE mnuViewCodeFoldToolBar AS QMENUITEM
         CAPTION = "Code Fold ToolBar"
         Checked = True
         OnClick = mnuViewCodeFoldToolBar_Click
        END CREATE

        CREATE mnuViewFormatToolBar AS QMENUITEM
         CAPTION = "Format ToolBar"
         Checked = True
         OnClick = mnuViewFormatToolBar_Click
        END CREATE

        CREATE mnuViewBookMarkToolBar AS QMENUITEM
         CAPTION = "BookMark ToolBar"
         Checked = True
         OnClick = mnuViewBookMarkToolBar_Click
        END CREATE

        CREATE mnuViewIconkToolBar AS QMENUITEM
         CAPTION = "App Icon Button"
         Checked = True
         OnClick = mnuViewIconToolBar_Click
        END CREATE
       END CREATE

       CREATE Break22bbMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE Mnu_SetLineNumbers AS QMENUITEM
        CAPTION = "&Line Numbers"
        Checked = IDE.LineNumbers
        OnClick = Mnu_SetLineNumbersClick
        Tag = IDE_ManageMenu(Mnu_SetLineNumbers)
       END CREATE


       CREATE Mnu_ViewIndentation AS QMENUITEM
        CAPTION = "View &Indents"
        Checked = IDE.ViewIndents
        OnClick = Mnu_ViewIndentationClick
        Tag = IDE_ManageMenu(Mnu_ViewIndentation)
       END CREATE

       CREATE Mnu_CodeFoldingMain AS QMENUITEM
        CAPTION = "folding.."
            '------------------------------
        CREATE Mnu_CodeFolding AS QMENUITEM
         CAPTION = "Code folding"
         Checked = IDE.CodeFolding
         OnClick = Mnu_CodeFolding_Click
         Tag = IDE_ManageMenu(Mnu_CodeFolding)
        END CREATE
        CREATE Mnu_CodeFoldingCollapseAll AS QMENUITEM
         CAPTION = "Collapse All"
         OnClick = Mnu_CodeFoldingCollapseAll_Click
         Tag = IDE_ManageMenu(Mnu_CodeFoldingCollapseAll)
        END CREATE
        CREATE Mnu_CodeFoldingExpandAll AS QMENUITEM
         CAPTION = "ExpandAll"
         OnClick = Mnu_CodeFoldingExpandAll_Click
         Tag = IDE_ManageMenu(Mnu_CodeFoldingExpandAll)
        END CREATE
       END CREATE


       CREATE Mnu_ViewLastTab AS QMENUITEM
        CAPTION = "Last Ta&b"
        OnClick = Mnu_ViewLastTab_Click
        Tag = IDE_ManageMenu(Mnu_ViewLastTab)
       END CREATE

       CREATE Break44Menu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE mnuMagnifyFont AS QMENUITEM
        CAPTION = "&Magnify text size"
        ShortCut = "CTRL +"
        OnClick = mnuMagnifyFont_Click
        Tag = IDE_ManageMenu(mnuMagnifyFont)
       END CREATE

       CREATE mnuMinifyFont AS QMENUITEM
        CAPTION = "&Reduce text size"
        ShortCut = "CTRL+-"
        OnClick = mnuMinifyFont_Click
        Tag = IDE_ManageMenu(mnuMinifyFont)
       END CREATE

       CREATE mnuRestoreFontMagnification AS QMENUITEM
        CAPTION = "Restore text size"
        ShortCut = "CTRL+/"
        OnClick = IDE_ShortCutToKeyStrokes 'mnuRestoreFontMagnification_Click
       END CREATE


      END CREATE


'===============================================================
      CREATE EditMenu AS QMENUITEM
       CAPTION = "&Edit"
       CREATE UndoMenu AS QMENUITEM
        CAPTION =   "&Undo              Ctrl+Z"
'            ShortCut = "ctrl+z"            'these ShortCuts interfere with QRichEdit and QEDIT!!
        OnClick = UndoClick
       END CREATE
       CREATE RedoMenu AS QMENUITEM
        CAPTION =   "&Redo              Ctrl+Y"
'            ShortCut = "ctrl+y"
        OnClick = RedoClick
       END CREATE
       CREATE CutMenu AS QMENUITEM
        CAPTION =   "&Cut               Ctrl+X"
'            ShortCut = "ctrl+x"
        OnClick = CutClick
       END CREATE
       CREATE CopyMenu AS QMENUITEM
        CAPTION =   "&Copy              Ctrl+C"
'            ShortCut = "ctrl+c"
        OnClick = CopyClick
       END CREATE
       CREATE PasteMenu AS QMENUITEM
        CAPTION =   "&Paste             Ctrl+V"
'            ShortCut = "ctrl+v"
        OnClick = PasteClick
       END CREATE
       CREATE SelectAllMenu AS QMENUITEM
        CAPTION =   "Select &All        Ctrl+A"
'            ShortCut = "ctrl+a"
        OnClick = SelectAllClick
       END CREATE
       CREATE Break2aMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

        '-----------------------------
       CREATE mnuLinesOperation AS QMENUITEM
        CAPTION = "Line Operations"
        CREATE mnuLineDuplicate AS QMENUITEM
         CAPTION = "&Duplicate line"
         ShortCut = "ctrl+d"
         OnClick = IDE_ShortCutToKeyStrokes       'default Scintilla op
        END CREATE
        CREATE mnuLineDelete AS QMENUITEM
         CAPTION = "Delete &Line"
         ShortCut = "ctrl+l"                      'default Scintilla op
         OnClick = IDE_ShortCutToKeyStrokes       'default Scintilla op
        END CREATE
        CREATE mnuLineTransp AS QMENUITEM
         CAPTION = "&Transpose Lines"
         ShortCut = "ctrl+t"                      'default Scintilla op
         OnClick = IDE_ShortCutToKeyStrokes       'default Scintilla op
        END CREATE
        CREATE mnuDeleteBlankLines AS QMENUITEM
         CAPTION = "Delete &Blank lines"
         OnClick = mnuRemoveBlankLines_Click
         Tag = IDE_ManageMenu(mnuDeleteBlankLines)
        END CREATE
        CREATE mnuTrimSpacesAtEnd AS QMENUITEM
         CAPTION = "&Remove end spaces"
         OnClick = mnuTrimSpacesAtEnd_Click
         Tag = IDE_ManageMenu(mnuTrimSpacesAtEnd)
        END CREATE
        CREATE mnuTabsToSpaces AS QMENUITEM
         CAPTION = "Convert &Tabs to Spaces"
         OnClick = mnuTabsToSpaces_Click
         Tag = IDE_ManageMenu(mnuTabsToSpaces)
        END CREATE
       END CREATE
        '-----------------------------

       CREATE Break4Menu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE mnuSort AS QMENUITEM
        CAPTION = "Sort"
        OnClick = mnuSort_Click
        Tag = IDE_ManageMenu(mnuSort)
       END CREATE


       CREATE mnuDateTime AS QMENUITEM
        CAPTION = "Insert Date / &Time"
        OnClick = mnuDateTime_Click
        Tag = IDE_ManageMenu(mnuDateTime)
       END CREATE

       CREATE Break3Menu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE mnuInsertFile AS QMENUITEM
        CAPTION = "&Insert file at Cursor"
        OnClick = mnuInsertFile_Click
        Tag = IDE_ManageMenu(mnuInsertFile)
       END CREATE

      END CREATE




'===============================================================
      CREATE SearchMenu AS QMENUITEM
       CAPTION = "&Search"
       CREATE mnuTxtFind AS QMENUITEM
        CAPTION = "&Find..."
        Checked = 0
        Enabled = 1
        Visible = 1
        ShortCut = "Ctrl+F"
        OnClick = FindReplaceForm_Search
        Tag = IDE_ManageMenu(mnuTxtFind)
       END CREATE
       CREATE mnuFindinFiles AS QMENUITEM
        CAPTION = "F&ind in Files"
        ShortCut = "Shift+Ctrl+F"
        OnClick = FindInFiles
        Tag = IDE_ManageMenu(mnuFindinFiles)
       END CREATE
       CREATE mnuFindNext AS QMENUITEM
        CAPTION = "Find &Next"
        ShortCut = "F3"
        OnClick = FindReplaceForm_NextExecute
        Tag = IDE_ManageMenu(mnuFindNext)
       END CREATE
       CREATE mnuFindPrev AS QMENUITEM
        CAPTION = "Find &Previous"
        ShortCut = "Shift+F3"
        OnClick = FindReplaceForm_PrevExecute
        Tag = IDE_ManageMenu(mnuFindPrev)
       END CREATE
       CREATE Break3aMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE mnuReplace AS QMENUITEM
        CAPTION = "&Replace..."
        ShortCut = "Ctrl+R"
        OnClick = FindReplaceForm_Replace
        Tag = IDE_ManageMenu(mnuReplace)
       END CREATE
       CREATE mnuReplaceinFiles AS QMENUITEM
        CAPTION = "R&eplace in Files"
        ShortCut = "Shift+Ctrl+R"
        OnClick = ReplaceInFiles
        Tag = IDE_ManageMenu(mnuReplaceinFiles)
       END CREATE
       CREATE Break3bMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE
       CREATE mnuFindDeclare AS QMENUITEM
        CAPTION = "Find Definition"
        ShortCut = "Alt+D"
        OnClick = mnuFindDecl_Click
        Tag = IDE_ManageMenu(mnuFindDeclare)
       END CREATE
       CREATE mnuPrevPara AS QMENUITEM
        CAPTION = "Previous paragraph"
        ShortCut = "ctrl+["                      'default Scintilla op
        OnClick = IDE_PrevParagraph
       END CREATE
       CREATE mnuNextPara AS QMENUITEM
        CAPTION = "Next paragraph"
        ShortCut = "ctrl+]"                      'default Scintilla op
        OnCLick = IDE_NextParagraph
       END CREATE
       CREATE mnuGoToLine AS QMENUITEM
        CAPTION = "&Go to line"
        ShortCut = "Ctrl+G"
        OnClick = IDE_GotoLineNumber
        Tag = IDE_ManageMenu(mnuGoToLine)
       END CREATE
      END CREATE

'===============================================================
      CREATE FormatMenu AS QMENUITEM
       CAPTION = "F&ormat"

       CREATE OptionsMenu AS QMENUITEM
        CAPTION = "&Options"
        OnClick = IDE_Conf_Form_Show
        Tag = IDE_ManageMenu(OptionsMenu)
       END CREATE

       CREATE Break6Menu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE Mnu_FontMenu AS QMENUITEM
        CAPTION = "Set &Font"
        OnClick = Mnu_FontMenuClick
        Tag = IDE_ManageMenu(Mnu_FontMenu)
       END CREATE

       CREATE Break5Menu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE Mnu_Hilight AS QMENUITEM
        CAPTION = "&Hilighting"
        Checked = IDE.HiLighting
        OnClick = Mnu_HilightClick
        Tag = IDE_ManageMenu(Mnu_Hilight)
       END CREATE
       CREATE Mnu_SetLang AS QMENUITEM
        CAPTION = "Language>"

        CREATE mnuSetLang_SCLEX_ASM AS QMENUITEM
         Tag = SCLEX_ASM
         CAPTION = "ASM"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_ASP AS QMENUITEM
         Tag = SCLEX_ASP
         CAPTION = "ASP"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_BATCH AS QMENUITEM
         Tag = SCLEX_BATCH
         CAPTION = "batch"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_CPP AS QMENUITEM
         Tag = SCLEX_CPP
         CAPTION = "C++ / Java"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_CSS AS QMENUITEM
         Tag = SCLEX_CSS
         CAPTION = "CSS"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_FREEBASIC AS QMENUITEM
         Tag = SCLEX_FREEBASIC
         CAPTION = "freebasic"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE Mnu_HilightBlitz AS QMENUITEM
         CAPTION = "Blitz Basic"
         Tag = SCLEX_BLITZBASIC
         OnClick = mnu_SetHilightLanguage
        END CREATE
        CREATE Mnu_HilightPureB AS QMENUITEM
         CAPTION = "Pure Basic"
         Tag = SCLEX_PUREBASIC
         OnClick = mnu_SetHilightLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_HTML AS QMENUITEM
         Tag = SCLEX_HTML
         CAPTION = "html"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_INNOSETUP AS QMENUITEM
         Tag = SCLEX_INNOSETUP
         CAPTION = "innoSetup"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_NULL AS QMENUITEM
         CAPTION = "none"
         Tag = SCLEX_NULL
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_PASCAL AS QMENUITEM
         Tag = SCLEX_PASCAL
         CAPTION = "pascal"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_PHP AS QMENUITEM
         Tag = SCLEX_PHP
         CAPTION = "PHP"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_PYTHON AS QMENUITEM
         Tag = SCLEX_PYTHON
         CAPTION = "python"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_VB AS QMENUITEM
         Tag = SCLEX_VB
         CAPTION = "RapidQ / VB"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_VBSCRIPT AS QMENUITEM
         Tag = SCLEX_VBSCRIPT
         CAPTION = "VB script"
         OnClick = IDE_SetFileLanguage
        END CREATE
        CREATE mnuSetLang_SCLEX_XML AS QMENUITEM
         Tag = SCLEX_XML
         CAPTION = "XML"
         OnClick = IDE_SetFileLanguage
        END CREATE
       END CREATE

       CREATE Mnu_WordWrap AS QMENUITEM
        CAPTION = "&Word Wrap"
        Checked = IDE.WordWrap
        OnClick = Mnu_WordWrapClick
        Tag = IDE_ManageMenu(Mnu_WordWrap)
       END CREATE

       CREATE Mnu_AutoIndent AS QMENUITEM
        CAPTION = "Auto Indenting"
        Checked = IDE.AutoIndent
        OnClick = Mnu_AutoIndentClick
        Tag = IDE_ManageMenu(Mnu_AutoIndent)
       END CREATE

       CREATE Mnu_AutoComplete AS QMENUITEM
        CAPTION = "Auto &Completion"
        Checked = IDE.AutoComplete
        OnClick = Mnu_AutoCompleteClick
        Tag = IDE_ManageMenu(Mnu_AutoComplete)
       END CREATE

       CREATE Break5bMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE Mnu_CommentBlock AS QMENUITEM
        CAPTION = "Comment &Block"
        ShortCut = "Ctrl+'"
        OnClick = mnuCommentBlockClick
        Tag = IDE_ManageMenu(Mnu_CommentBlock)
       END CREATE

       CREATE Mnu_UnCommentBlock AS QMENUITEM
        CAPTION = "UnComment Block"
        ShortCut = "Shift+Ctrl+'"
        OnClick = mnuUnCommentBlockClick
        Tag = IDE_ManageMenu(Mnu_UnCommentBlock)
       END CREATE

       CREATE Mnu_Lowercase AS QMENUITEM
        CAPTION = "&Lower Case"
        ShortCut = "Shift+Ctrl+u"
        OnClick = Mnu_LowercaseClick
        Tag = IDE_ManageMenu(Mnu_Lowercase)
       END CREATE
       CREATE Mnu_Uppercase AS QMENUITEM
        CAPTION = "&Upper Case"
        ShortCut = "Ctrl+u"
        OnClick = Mnu_UppercaseClick
        Tag = IDE_ManageMenu(Mnu_Uppercase)
       END CREATE

       CREATE Mnu_IndentBlock AS QMENUITEM
        CAPTION = "&Indent block"
        ShortCut = "Tab"
        OnClick = Mnu_IndentBlock_Click
       END CREATE

       CREATE Mnu_UnIndentBlock AS QMENUITEM
        CAPTION = "U&nindent block"
        ShortCut = "Shift+Tab"
        OnClick = Mnu_UnIndentBlock_Click
       END CREATE

       CREATE Mnu_CodePage AS QMENUITEM
        CAPTION = "Code Page"
        CREATE Mnu_CodePageAnsi AS QMENUITEM
         CAPTION = "Ansi"
         Tag = 0
         OnClick = Mnu_SetCodePage_Click
        END CREATE
        CREATE Mnu_CodePageUTF8 AS QMENUITEM
         CAPTION = "UTF8"
         Tag = SC_CP_UTF8
         OnClick = Mnu_SetCodePage_Click
        END CREATE
        CREATE Mnu_CodePageJIS AS QMENUITEM
         CAPTION = "Japanese Shift-JIS"
         Tag = 932
         OnClick = Mnu_SetCodePage_Click
        END CREATE
        CREATE Mnu_CodePageChinese AS QMENUITEM
         CAPTION = "Simplified Chinese GBK"
         Tag = 936
         OnClick = Mnu_SetCodePage_Click
        END CREATE
        CREATE Mnu_CodePageChinese2 AS QMENUITEM
         CAPTION = "Traditional Chinese"
         Tag = 950
         OnClick = Mnu_SetCodePage_Click
        END CREATE
        CREATE Mnu_CodePageKorean AS QMENUITEM
         CAPTION = "Korean Unified Hangul"
         Tag = 949
         OnClick = Mnu_SetCodePage_Click
        END CREATE
       END CREATE

      END CREATE


'===============================================================
      CREATE CompileMenu AS QMENUITEM
       CAPTION = "&Compile"
       CREATE mnuRun AS QMENUITEM
        CAPTION = "Compile + &Run"
        ShortCut = "F5"
        OnClick = RunClick
        Tag = IDE_ManageMenu(mnuRun)
       END CREATE

       CREATE mnuCompile AS QMENUITEM
        CAPTION = "&Compile"
        ShortCut = "F6"
        OnClick = CompileClick
        Tag = IDE_ManageMenu(mnuCompile)
       END CREATE

       CREATE mnuRunDebug AS QMENUITEM
        CAPTION = "Run in Debugger"
        ShortCut = "Alt+F5"
        OnClick = DebugCompileClick
        Tag = IDE_ManageMenu(mnuRunDebug)
       END CREATE

       CREATE Break13Menu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE IconsetMenu AS QMENUITEM
        CAPTION = "&Set Application Icon"
        OnClick = IconsetClick
        Tag = IDE_ManageMenu(IconsetMenu)
       END CREATE

       CREATE Break13bMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE FBCompileMenu AS QMENUITEM
        CAPTION = "&FreeBasic Compile"
        ShortCut = "F8"
        OnClick = FBCompileClick
        Tag = IDE_ManageMenu(FBCompileMenu)
       END CREATE

       CREATE FBRunMenu AS QMENUITEM
        CAPTION = "&FreeBasic Compile + Run"
        ShortCut = "F7"
        OnClick = FBRunClick
        Tag = IDE_ManageMenu(FBRunMenu)
       END CREATE

       CREATE FBDLLMenu AS QMENUITEM
        CAPTION = "&Build FreeBasic DLL"
        ShortCut = "Alt+F7"
        OnClick = FBDLLClick
        Tag = IDE_ManageMenu(FBDLLMenu)
       END CREATE

       CREATE Break13_2bMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE

       CREATE mnuSetAsMain AS QMENUITEM
        CAPTION = "Set active file as main app for Compiler"
        OnClick = MFE_SetActiveAsMainFileForCompiler
       END CREATE

       CREATE mnuSetAsDefaultCompileFile AS QMENUITEM
        CAPTION = "Restore this file type"
        OnClick = mnuSetAsDefaultCompilerFile_Click
       END CREATE

       CREATE mnuSetAsFBAppFile AS QMENUITEM
        CAPTION = "Set active File as FreeBasic app"
        OnClick = mnuSetAsFBAppFile_Click
       END CREATE

       CREATE mnuSetAsFBDLLFile AS QMENUITEM
        CAPTION = "Set active file as FreeBasic DLL"
        OnClick = mnuSetAsFBDLLFile_Click
       END CREATE

      END CREATE



'===============================================================
      CREATE BookMarksMnu AS QMENUITEM
       CAPTION = "&BookMarks"
       CREATE mnuNViewBookMark AS QMENUITEM
        CAPTION = "&View bookmarks"
        Checked = False
        OnClick = mnuNViewBookMark_Click
        Tag = IDE_ManageMenu(mnuNViewBookMark)
       END CREATE

       CREATE mnuAddBookMark AS QMENUITEM
        CAPTION = "&Add bookmark"
        OnClick = mnuAddBookMark_Click
        Tag = IDE_ManageMenu(mnuAddBookMark)
       END CREATE
       CREATE mnuDelBookMark AS QMENUITEM
        CAPTION = "&Delete bookmark"
        OnClick = mnuDelBookMark_Click
        Tag = IDE_ManageMenu(mnuDelBookMark)
       END CREATE
       CREATE mnuNextBookMark AS QMENUITEM
        CAPTION = "&Next bookmark"
        OnClick = mnuNextBookMark_Click
        Tag = IDE_ManageMenu(mnuNextBookMark)
       END CREATE
       CREATE mnuPrevBookMark AS QMENUITEM
        CAPTION = "&Prev bookmark"
        OnClick = mnuPrevBookMark_Click
        Tag = IDE_ManageMenu(mnuPrevBookMark)
       END CREATE
       CREATE mnuGoToBookMark AS QMENUITEM
        CAPTION = "&Goto bookmark"
        OnClick = mnuGoToBookMark_Click
        Tag = IDE_ManageMenu(mnuGoToBookMark)
       END CREATE
      END CREATE



'===============================================================
      CREATE Toolsmenu AS QMENUITEM
       CAPTION = "&Tools"
       CREATE mnuExternApps AS QMENUITEM
        CAPTION = "&External Apps"
        OnClick = IDE_Cong_ShowExternApp
        Tag = IDE_ManageMenu(mnuExternApps)
       END CREATE
       CREATE Break13cMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE
       CREATE mnuExternalApp1 AS QMENUITEM
        CAPTION = "..."
        Visible = False
        OnClick = mnuExternalApp1_Click
        Tag = IDE_ManageMenu(mnuExternalApp1)
       END CREATE
       CREATE mnuExternalApp2 AS QMENUITEM
        CAPTION = "..."
        Visible = False
        OnClick = mnuExternalApp2_Click
        Tag = IDE_ManageMenu(mnuExternalApp2)
       END CREATE
       CREATE mnuExternalApp3 AS QMENUITEM
        CAPTION = "..."
        Visible = False
        OnClick = mnuExternalApp3_Click
        Tag = IDE_ManageMenu(mnuExternalApp3)
       END CREATE
       CREATE mnuExternalApp4 AS QMENUITEM
        CAPTION = "..."
        Visible = False
        OnClick = mnuExternalApp4_Click
        Tag = IDE_ManageMenu(mnuExternalApp4)
       END CREATE


       CREATE Break13dMenu AS QMENUITEM
        CAPTION = "-"
        Enabled = False
       END CREATE


       CREATE mnuAutoDeclare AS QMENUITEM
        CAPTION = "&Auto Declare"
        ShortCut = "F9"
        OnClick = mnuAutoDeclare_Click
        Tag = IDE_ManageMenu(mnuAutoDeclare)
       END CREATE

       CREATE mnuBeautifyCode AS QMENUITEM
        CAPTION = "&Beautify Code"
        ShortCut = "F4"
        OnClick = mnuBeautifyCode_Click
        Tag = IDE_ManageMenu(mnuBeautifyCode)
       END CREATE
       CREATE mnuMenuDesigner AS QMENUITEM
        CAPTION = "&Menu Designer"
        OnClick = mnuMenuDesigner_Click
        Tag = IDE_ManageMenu(mnuMenuDesigner)
       END CREATE
       CREATE mnuCommandLine AS QMENUITEM
        CAPTION = "Command &Line"
        OnClick = mnuCommandLine_Click
        Tag = IDE_ManageMenu(mnuCommandLine)
       END CREATE
       CREATE mnuCalcExe AS QMENUITEM
        CAPTION = "&Calculator"
        OnClick = mnuCalcExe_Click
        Tag = IDE_ManageMenu(mnuCalcExe)
       END CREATE
       CREATE mnuNConvter AS QMENUITEM
        CAPTION = "&Number Converter"
        OnClick = NConv_Show
        Tag = IDE_ManageMenu(mnuNConvter)
       END CREATE
       CREATE mnuCharMapExe AS QMENUITEM
        CAPTION = "Char &map"
        OnClick = mnuCharMapExe_Click
        Tag = IDE_ManageMenu(mnuCharMapExe)
       END CREATE
       CREATE mnuColorPicker AS QMENUITEM
        CAPTION = "Color &Picker"
        OnClick = mnuColorPicker_Click
        Tag = IDE_ManageMenu(mnuColorPicker)
       END CREATE
       CREATE mnuToolKey AS QMENUITEM
        CAPTION = "&Keys..."
        OnClick = mnuToolKey_Click
        Tag = IDE_ManageMenu(mnuToolKey)
       END CREATE
      END CREATE


'===============================================================
      CREATE HelpMenu AS QMENUITEM
       CAPTION = "&Help"
       CREATE ContentHelpMenu AS QMENUITEM
        CAPTION = "&Help"
        ShortCut = "F1"
        OnClick = mnuHelpClick
        Tag = IDE_ManageMenu(ContentHelpMenu)
       END CREATE
       CREATE ContentTopicHelpMenu AS QMENUITEM
        CAPTION = "Help on &Topic"
        ShortCut = "Alt+F1"
        OnClick = HelpOnTopicClick
        Tag = IDE_ManageMenu(ContentTopicHelpMenu)
       END CREATE
       CREATE ContentTopicSearchCHMHelpMenu AS QMENUITEM
        CAPTION = "&Search Help file on Topic"
        OnClick = HelpSearchCHMOnTopicClick
       END CREATE
       CREATE Content2Menu AS QMENUITEM
        CAPTION = "&Examples"
        OnClick = mnuHelp2Click
        Tag = IDE_ManageMenu(Content2Menu)
       END CREATE
       CREATE WinHelpMenu AS QMENUITEM
        CAPTION = "Windows API help"
        OnClick = mnuHelpWinClick
        Tag = IDE_ManageMenu(WinHelpMenu)
       END CREATE
       CREATE NewWersionsMenu AS QMENUITEM
        CAPTION = "&Update"
        OnClick = NewWersionsMenuClick
       END CREATE
       CREATE AboutMenu AS QMENUITEM
        CAPTION = "&About"
        OnClick = AboutMenu_Click
       END CREATE
      END CREATE


'====   THese are placed on right side  =========================
'================================================================
      CREATE mnuPickMFEFile AS QMENUITEM
       CAPTION = "< Window"
       Hint = "Pick Window"
       OnClick = MFE_ShowWindowSelection
      END CREATE

'------------------
      CREATE mnuCloseMFE_Tab AS QMENUITEM
       CAPTION = "{ X }"             'giving this a caption sets Alt+ shortcut!!
       Hint = "Close Active Window"
       OnClick = MFE_Close
       Tag = IDE_ManageMenu(mnuCloseMFE_Tab)
      END CREATE
     END CREATE



'===============================================================================================
'===============================================================================================
'===============================================================================================


'Now do COMPILE time BINDing!!! Ugh....

     BIND  IDE.MenuFuncPtr(mnuNew.Tag)  TO MFE_NewFile
     BIND  IDE.MenuFuncPtr(mnuOpen.Tag)  TO MFE_Open
     BIND  IDE.MenuFuncPtr(mnuOpenFileFromWeb.Tag)  TO mnuOpenFileFromWeb_Click
     BIND  IDE.MenuFuncPtr(mnuSave.Tag)  TO MFE_Save
     BIND  IDE.MenuFuncPtr(mnuSaveAs.Tag)  TO MFE_SaveAs
     BIND  IDE.MenuFuncPtr(mnuSaveAll.Tag)  TO MFE_SaveAll
     BIND  IDE.MenuFuncPtr(mnuOpenProj.Tag)  TO MFE_OpenProject
     BIND  IDE.MenuFuncPtr(mnuSaveProj.Tag)  TO MFE_SaveProject
     BIND  IDE.MenuFuncPtr(mnuCloseProjFiles.Tag)  TO MFE_CloseProjectFiles
     BIND  IDE.MenuFuncPtr(mnuClose.Tag)  TO MFE_Close
     BIND  IDE.MenuFuncPtr(mnuCloseAll.Tag)  TO MFE_CloseAll
     BIND  IDE.MenuFuncPtr(PrintSetupMenu.Tag)  TO pagesetupclick
     BIND  IDE.MenuFuncPtr(PrintMenu.Tag)  TO pageprintclick
     BIND  IDE.MenuFuncPtr(ExitMenu.Tag)  TO ExitClick
     BIND  IDE.MenuFuncPtr(mnuViewModeSimple.Tag)  TO mnuViewModeSimple_Click
     BIND  IDE.MenuFuncPtr(mnuViewModeNovice.Tag)  TO mnuViewModeNovice_Click
     BIND  IDE.MenuFuncPtr(mnuViewModeIntermediate.Tag)  TO mnuViewModeIntermediate_Click
     BIND  IDE.MenuFuncPtr(mnuViewModeExpert.Tag)  TO mnuViewModeExpert_Click
     BIND  IDE.MenuFuncPtr(mnuViewLeftPanel.Tag)  TO mnuViewLeftPanel_Click
     BIND  IDE.MenuFuncPtr(mnuViewBottomPanel.Tag)  TO mnuViewBottomPanel_Click
     BIND  IDE.MenuFuncPtr(mnuViewRightPanel.Tag)  TO mnuViewRightPanel_Click
     BIND  IDE.MenuFuncPtr(QuickSearchMnu.Tag)  TO VisibileQuickSearchClick
     BIND  IDE.MenuFuncPtr(mnuViewStatusBar.Tag)  TO mnuViewStatusBar_Click
     BIND  IDE.MenuFuncPtr(mnuViewFormDesigner.Tag)  TO mnuViewFormDesigner_Click
     BIND  IDE.MenuFuncPtr(mnuViewTopPanel.Tag)  TO mnuViewTopPanel_Click
     BIND  IDE.MenuFuncPtr(Mnu_SetLineNumbers.Tag)  TO Mnu_SetLineNumbersClick
     BIND  IDE.MenuFuncPtr(Mnu_ViewIndentation.Tag)  TO Mnu_ViewIndentationClick
     BIND  IDE.MenuFuncPtr(Mnu_CodeFolding.Tag)  TO Mnu_CodeFolding_Click
     BIND  IDE.MenuFuncPtr(Mnu_CodeFoldingCollapseAll.Tag)  TO Mnu_CodeFoldingCollapseAll_Click
     BIND  IDE.MenuFuncPtr(Mnu_CodeFoldingExpandAll.Tag)  TO Mnu_CodeFoldingExpandAll_Click
     BIND  IDE.MenuFuncPtr(Mnu_ViewLastTab.Tag)  TO Mnu_ViewLastTab_Click
     BIND  IDE.MenuFuncPtr(mnuMagnifyFont.Tag)  TO mnuMagnifyFont_Click
     BIND  IDE.MenuFuncPtr(mnuMinifyFont.Tag)  TO mnuMinifyFont_Click
     BIND  IDE.MenuFuncPtr(mnuDeleteBlankLines.Tag)  TO mnuRemoveBlankLines_Click
     BIND  IDE.MenuFuncPtr(mnuTrimSpacesAtEnd.Tag)  TO mnuTrimSpacesAtEnd_Click
     BIND  IDE.MenuFuncPtr(mnuTabsToSpaces.Tag)  TO mnuTabsToSpaces_Click
     BIND  IDE.MenuFuncPtr(mnuSort.Tag)  TO mnuSort_Click
     BIND  IDE.MenuFuncPtr(mnuDateTime.Tag)  TO mnuDateTime_Click
     BIND  IDE.MenuFuncPtr(mnuInsertFile.Tag)  TO mnuInsertFile_Click
     BIND  IDE.MenuFuncPtr(mnuTxtFind.Tag)  TO FindReplaceForm_Search
     BIND  IDE.MenuFuncPtr(mnuFindinFiles.Tag)  TO FindInFiles
     BIND  IDE.MenuFuncPtr(mnuFindNext.Tag)  TO FindReplaceForm_NextExecute
     BIND  IDE.MenuFuncPtr(mnuFindPrev.Tag)  TO FindReplaceForm_PrevExecute
     BIND  IDE.MenuFuncPtr(mnuReplace.Tag)  TO FindReplaceForm_Replace
     BIND  IDE.MenuFuncPtr(mnuReplaceinFiles.Tag)  TO ReplaceInFiles
     BIND  IDE.MenuFuncPtr(mnuFindDeclare.Tag)  TO mnuFindDecl_Click
     BIND  IDE.MenuFuncPtr(mnuGoToLine.Tag)  TO IDE_GotoLineNumber
     BIND  IDE.MenuFuncPtr(OptionsMenu.Tag)  TO IDE_Conf_Form_Show
     BIND  IDE.MenuFuncPtr(Mnu_FontMenu.Tag)  TO Mnu_FontMenuClick
     BIND  IDE.MenuFuncPtr(Mnu_Hilight.Tag)  TO Mnu_HilightClick
     BIND  IDE.MenuFuncPtr(Mnu_WordWrap.Tag)  TO Mnu_WordWrapClick
     BIND  IDE.MenuFuncPtr(Mnu_AutoIndent.Tag)  TO Mnu_AutoIndentClick
     BIND  IDE.MenuFuncPtr(Mnu_AutoComplete.Tag)  TO Mnu_AutoCompleteClick
     BIND  IDE.MenuFuncPtr(Mnu_CommentBlock.Tag)  TO mnuCommentBlockClick
     BIND  IDE.MenuFuncPtr(Mnu_UnCommentBlock.Tag)  TO mnuUnCommentBlockClick
     BIND  IDE.MenuFuncPtr(Mnu_Lowercase.Tag)  TO Mnu_LowercaseClick
     BIND  IDE.MenuFuncPtr(Mnu_Uppercase.Tag)  TO Mnu_UppercaseClick
     BIND  IDE.MenuFuncPtr(mnuRun.Tag)  TO RunClick
     BIND  IDE.MenuFuncPtr(mnuCompile.Tag)  TO CompileClick
     BIND  IDE.MenuFuncPtr(mnuRunDebug.Tag)  TO DebugCompileClick
     BIND  IDE.MenuFuncPtr(IconsetMenu.Tag)  TO IconsetClick
     BIND  IDE.MenuFuncPtr(FBCompileMenu.Tag)  TO FBCompileClick
     BIND  IDE.MenuFuncPtr(FBRunMenu.Tag)  TO FBRunClick
     BIND  IDE.MenuFuncPtr(FBDLLMenu.Tag)  TO FBDLLClick
     BIND  IDE.MenuFuncPtr(mnuNViewBookMark.Tag)  TO mnuNViewBookMark_Click
     BIND  IDE.MenuFuncPtr(mnuAddBookMark.Tag)  TO mnuAddBookMark_Click
     BIND  IDE.MenuFuncPtr(mnuDelBookMark.Tag)  TO mnuDelBookMark_Click
     BIND  IDE.MenuFuncPtr(mnuNextBookMark.Tag)  TO mnuNextBookMark_Click
     BIND  IDE.MenuFuncPtr(mnuPrevBookMark.Tag)  TO mnuPrevBookMark_Click
     BIND  IDE.MenuFuncPtr(mnuGoToBookMark.Tag)  TO mnuGoToBookMark_Click
     BIND  IDE.MenuFuncPtr(mnuExternApps.Tag)  TO IDE_Cong_ShowExternApp
     BIND  IDE.MenuFuncPtr(mnuExternalApp1.Tag)  TO mnuExternalApp1_Click
     BIND  IDE.MenuFuncPtr(mnuExternalApp2.Tag)  TO mnuExternalApp2_Click
     BIND  IDE.MenuFuncPtr(mnuExternalApp3.Tag)  TO mnuExternalApp3_Click
     BIND  IDE.MenuFuncPtr(mnuExternalApp4.Tag)  TO mnuExternalApp4_Click
     BIND  IDE.MenuFuncPtr(mnuAutoDeclare.Tag)  TO mnuAutoDeclare_Click
     BIND  IDE.MenuFuncPtr(mnuBeautifyCode.Tag)  TO mnuBeautifyCode_Click
     BIND  IDE.MenuFuncPtr(mnuMenuDesigner.Tag)  TO mnuMenuDesigner_Click
     BIND  IDE.MenuFuncPtr(mnuCommandLine.Tag)  TO mnuCommandLine_Click
     BIND  IDE.MenuFuncPtr(mnuCalcExe.Tag)  TO mnuCalcExe_Click
     BIND  IDE.MenuFuncPtr(mnuNConvter.Tag)  TO NConv_Show
     BIND  IDE.MenuFuncPtr(mnuCharMapExe.Tag)  TO mnuCharMapExe_Click
     BIND  IDE.MenuFuncPtr(mnuColorPicker.Tag)  TO mnuColorPicker_Click
     BIND  IDE.MenuFuncPtr(mnuToolKey.Tag)  TO mnuToolKey_Click
     BIND  IDE.MenuFuncPtr(ContentHelpMenu.Tag)  TO mnuHelpClick
     BIND  IDE.MenuFuncPtr(ContentTopicHelpMenu.Tag)  TO HelpOnTopicClick
     BIND  IDE.MenuFuncPtr(Content2Menu.Tag)  TO mnuHelp2Click
     BIND  IDE.MenuFuncPtr(WinHelpMenu.Tag)  TO mnuHelpWinClick
     BIND  IDE.MenuFuncPtr(mnuCloseMFE_Tab.Tag)  TO MFE_Close





     SUB Mnu_RightJustify
'===============================================================================================
'===============================================================================================
'===============================================================================================
'==================== Right justify the last two Main menu items  ==============================

      DIM mii AS MENUITEMINFO
      mii.cbSize = SIZEOF(mii)        'MENUITEMINFO) '
      mii.fMask = &H100               'MIIM_FTYPE
      mii.fType = MFT_RIGHTJUSTIFY    'OR MFT_BITMAP	  ' OR MFT_RIGHTORDER
      SetMenuItemInfo(mnuMain.Handle, 9, 1&, mii)
'        mii.dwTypeData = BMP.Handle 'AND &H0000FFFF
'       fState AS LONG
'       wID AS LONG
'       hSubMenu AS LONG
'       hbmpChecked AS LONG
'       hbmpUnchecked AS LONG
'       dwItemData AS LONG
'       dwTypeData AS LONG
'       cch AS LONG
'SetMenuItemInfo(mnuMain.Handle, mnuCloseMFE_Tab.Handle, 0&, mii)  'need menu item index on main menu bar
     END SUB

2010-12-07 21:18