MapInfo Pro

Hi Bob,

Thank you so much for getting back to me.  Yes, it is coded in MapBasic. My retired boss wrote the code.  I need help on making the code to run again.

I read about Run Menu Command M_TOOLS_MAPBASIC from MapBasic Reference guide.  Thank you, now I understand how it works.

It would be nice if you put it back in the future release.

But now I need your help to fix my code.  Could you please tell me how to add a ribbon tool button which will do the same function.

Thanks,

Mariana

Hi Bob,

Thank you so much for getting back to me.  Yes, it is coded in MapBasic. My retired boss wrote the code.  I need help on making the code to run again.

I read about Run Menu Command M_TOOLS_MAPBASIC from MapBasic Reference guide.  Thank you, now I understand how it works.

It would be nice if you put it back in the future release.

But now I need your help to fix my code.  Could you please tell me how to add a ribbon tool button which will do the same function.

Thanks,

Mariana

Hi Bob,

That's a great news.  I have the Toolhandler procedure in the code.  The  call to Run Menu Command M_TOOLS_MAPBASICS in MapInfo v17, does not have any response, not even error message, it behaves as if its frozen.   But the same code works well in MapInfo v15.

Here is my observation between expected behaviour and behaviour in MapInfo v17.

We have a menu item called "Point", once clicked on it, it is supposed to do the followings:

1.            Change mouse to   shape and wait for the user to click on the Map window.

2.            Once the user clicks on the map window, Toolhandler sub gets called

3.            Creates points and display it on the map

In MapInfo v17, here is what happened after I clicked on the menu item "Point"

1.            The mouse did not change

2.            I clicked on the map window, Toolhandler Sub did not get called (I did a print statement to test this)

3.            Did not create point object on the map

4.            No error message returned at all

Could you please give me a simple mapbasic code to test that Run Menu Command M_TOOLS_MAPBASICS works?  I have both MapInfo v15 and v17 installed on my computer.

Thank you,

Mariana

Hi Bob,

Thank you so much for getting back to me.  Yes, it is coded in MapBasic. My retired boss wrote the code.  I need help on making the code to run again.

I read about Run Menu Command M_TOOLS_MAPBASIC from MapBasic Reference guide.  Thank you, now I understand how it works.

It would be nice if you put it back in the future release.

But now I need your help to fix my code.  Could you please tell me how to add a ribbon tool button which will do the same function.

Thanks,

Mariana

Hi Bob,

1)      I could not find "RibbonControls.def" file. 

But I found "RibbonCustomizationMB.def", is this the file you wanted me to include?

2)      I have attached a sample file I created. Where it works in MapInfo 15 and not in MapInfo 17.

Thanks,

Mariana

Hi Bob,

Please see below.

Include "C:\Program Files (x86)\MapInfo\MapBasic\mapbasic.def"

Include "C:\Program Files (x86)\MapInfo\MapBasic\menu.def"

Include "C:\Program Files (x86)\MapInfo\MapBasic\icons.def"

Declare Sub Main

Declare Sub Draw_point

Declare Sub draw_line

Declare Sub ToolHandler

Global toolhandler_flag as SmallInt

Global xstart, ystart, xend, yend as Float

Define T_DRAW_ONE_POINT     4

Define T_DRAW_LINE_PT1      5

Define T_DRAW_LINE_PT2      6

Sub Main

                               ' Create Tools menu

    Create Menu "&SV_Tools" as

       "&Point"      helpmsg "Draw a symbol at a given location"

                     Calling Draw_point,

       "&Line"          helpmsg "Draw a line between two given points"

                     Calling Draw_line

Alter Menu Bar Add "&SV_Tools"

End Sub

Sub Draw_point

    toolhandler_flag = T_DRAW_ONE_POINT

    Run Menu Command M_TOOLS_MAPBASIC

End Sub

Sub draw_line

    toolhandler_flag = T_DRAW_LINE_PT1

    Run Menu Command M_TOOLS_MAPBASIC

End Sub

Sub ToolHandler

    Do Case toolhandler_flag

       Case  T_DRAW_ONE_POINT

          xstart = CommandInfo (CMD_INFO_X)

          ystart = CommandInfo (CMD_INFO_Y)

Print "Point, xstart = " +xstart

Print "Point, ystart = " +ystart

       Case T_DRAW_LINE_PT1

          xstart = CommandInfo (CMD_INFO_X)

          ystart = CommandInfo (CMD_INFO_Y)

Print "--------------------------------------------------------"

Print "Line, xstart1 = " +xstart

Print "Line, ystart1 = " +ystart

          toolhandler_flag = T_DRAW_LINE_PT2

       Case T_DRAW_LINE_PT2

          xend = CommandInfo (CMD_INFO_X)

          yend = CommandInfo (CMD_INFO_Y)

Print "Line, xstart2 = " +xstart

Print "Line, ystart2 = " +ystart

    End Case

End Sub

HI Bob,

First of all, having a menu is a user's requirement.  The users have been using this program for years and I they won't like it any other way.

Second of all, I don't think tool button will work in my case.  The reason is the menu item has a series of steps.  Click on the map and read location is just one of the many steps. 

For example,  the menu item "Point", gives the user the option to select from a radio group whether the user would like to click on the map to create point, or enter coordinate to create point.  How can this be done using Tools button?

If you can make the sample program I gave you in my previous e-mail.    That will solve the problem for so many menu items in my program. 

If not, keeping the menu item and somehow if you can make automatic call to toolbutton when the user select "click on the map to create point".  This will work also.

Thanks,

Mariana

Thank you so much.  I can't wait to get a solution to this problem.

Thanks,

Mariana

HI Bob,

When you said it will be available in the next release, what does it mean?

It will be available in patch in December, 2020?  Can the patch be applied to MapInfo v17 ore v18?

What does it exactly mean?  Please clarify.

Thanks,

Mariana

HI Bob,

When you said it will be available in the next release, what does it mean?

It will be available in patch in December, 2020?  Can the patch be applied to MapInfo v17 ore v18?

What does it exactly mean?  Please clarify.

Thanks,

Mariana

Hi Bob,

Thank you so much for the information. 

Mariana

Hi Bob,

Thank you so much for the information. 

Mariana

HI Bob,

Sounds great.  How do I get the patch?

Thanks,

Mariana

Hi Bob,

Thank you so much for the information. 

Mariana

HI Bob,

Sounds great.  How do I get the patch?

Thanks,

Mariana

Hi Bob,

Thank you so much for the information. 

Mariana

HI Bob,

So is this patch applicable to MapInfo v17?

Or is it only applicable to MapInfo Pro v2019.1,?

Thanks,

Mariana

HI Bob,

Sounds great.  How do I get the patch?

Thanks,

Mariana

Hi Bob,

Thank you so much for the information. 

Mariana

HI Bob,

So is this patch applicable to MapInfo v17?

Or is it only applicable to MapInfo Pro v2019.1,?

Thanks,

Mariana

HI Bob,

Sounds great.  How do I get the patch?

Thanks,

Mariana

Hi Bob,

Thank you so much for the information. 

Mariana