Can I create a popup menu using the menu editor

[Trevor Lane]

Is the menu editor restricted to topmenus and their associated menuitems only? or can I create popup menus using this tool. I assume if I do not use this tool then I should use a resource. If that is the case can I modify the resource created by filrefly? will that break it?

[TechSupport]

The Menu Editor is limited to topmenus. It is on the FireFly 3 wishlist for stand alone menus.

You can create menus using a resource, or you can create menus directly in code. IF you use a resource then you would use the menu "Project", "Add Resource Module". This will allow you to create resource code that gets appended to the main resource code for the entire project.

If you create a menu via code then you can use code like the following:

Code Select Expand


   'create the popup menu that displays when tab is right-clicked
    hTabBarPopup = CreatePopupMenu()
        AppendMenu hTabBarPopup, %MF_STRING, %IDM_CLOSE, "Close"
        AppendMenu hTabBarPopup, %MF_STRING, %IDM_SAVE, "Save"
        AppendMenu hTabBarPopup, %MF_STRING, %IDM_SAVEAS, "Save As"
        AppendMenu hTabBarPopup, %MF_SEPARATOR, 0, ""
        AppendMenu hTabBarPopup, %MF_STRING, %IDM_CLOSEALL, "Close All Files"
        AppendMenu hTabBarPopup, %MF_SEPARATOR, 0, ""
        AppendMenu hTabBarPopup, %MF_STRING, %IDM_ARRANGETABS, "Arrange Tabs"
        AppendMenu hTabBarPopup, %MF_STRING, %IDM_FUNCTIONLIST, "Show Sub/Function List"
        AppendMenu hTabBarPopup, %MF_STRING, %IDM_SETPRIMARYMODULE, "Set as Primary Module"
        AppendMenu hTabBarPopup, %MF_SEPARATOR, 0, ""
        AppendMenu hTabBarPopup, %MF_STRING, %IDM_PRINT, "Print"
        AppendMenu hTabBarPopup, %MF_SEPARATOR, 0, ""
        AppendMenu hTabBarPopup, %MF_STRING, %IDM_CANCEL, "Cancel"

        'change the Client coordinates back To Screen coordinates
        GetCursorPos pt
        TrackPopupMenu hTabBarPopup, %TPM_LEFTALIGN Or _
                               %TPM_LEFTBUTTON, pt.x, _
                               pt.y, 0, hWnd, ByVal %Null



[Trevor Lane]

Thanks again Paul