UI Toolbox Menu Bar with Menu Past 64th Column Shows Garbage (57883)

MORE INFORMATION

To correct the source code, MENU.BAS, so that it will handle longer menu bars correctly, change the following IF statement (found after the "menuDoShowPullDown" label near the end of the MenuDo SUB)

   LEN(GloTitle(currMenu).text)
				

to

   LEN(RTRIM$(GloTitle(currMenu).text))
				

in both of the following places:

  IF GloTitle(currMenu).rColItem - GloTitle(currMenu).lColItem _
       < LEN(GloTitle(currMenu).text) THEN
    GloTitle(currMenu).rColItem = _
       GloTitle(currMenu).lColItem + LEN(GloTitle(currMenu).text)
  END IF
				

NOTE: The underscore (_) characters above indicate line continuation to fit in this article. This block IF is actually on three long lines in the original source.

The changed code is as follows:

  IF GloTitle(currMenu).rColItem - GloTitle(currMenu).lColItem _
       < LEN(RTRIM$(GloTitle(currMenu).text)) THEN
    GloTitle(currMenu).rColItem = _
       GloTitle(currMenu).lColItem + LEN(RTRIM$(GloTitle(currMenu).text))
  END IF
				

This correction should be made and the libraries rebuilt to enable correct handling of menus beginning past the 64th column.

The above correction is the same as for a separate article describing a different symptom, where the mouse-selectable area for narrow menus is too wide. To find this and other problems with the User Interface Toolbox, query in this Knowledge Base on the following keywords: