Leica tps1100, Руководство пользователя, Страница: 420 / 1154

GeoBASIC Reference Manual 6. System Functions
TPS1100-Version 1.30 6-16
iMenuId out Returned menu identifier. It is the
handle for using this menu.
Return-Codes
RC_OK Successful termination.
MMI_NOMORE_
MENUS
No more menus available
See Also MMI_CreateGBMenuItemStr, MMI_DeleteGBMenu,
MMI_SelectGBMenuItem, MMI_AddGBMenuButton
Example The example creates a menu with a button. The menu name is a
composition with a constant string and the instrument name. The
menu item names are extended with the current language name.
CONST MHELP = "Help for measurement type...."
DIM iMenu AS Integer ' menu identifier
DIM iSelection AS Integer ' selected item
DIM iButton AS Integer ' used button
DIM sMenuName AS sLine ' menu name
DIM sMenuItemName1 AS sLine ' menu item 1 name
DIM sMenuItemName2 AS sLine ' menu item 2 name
DIM iLangNr AS Integer ' language number
DIM sLangName AS String20' language name
DIM sInstrumentName AS String30' instrument name
' generate menu name
CSV_GetInstrumentName(sInstrumentName)
sMenuName = "Programs on " + sInstrumentName
' Create menu
MMI_CreateGBMenuStr(sMenuName, iMenu)
' generate menu item names
MMI_GetLanguage(iLangNr, sLangName)
sMenuItemName1 = "Polygon in " + sLangName
sMenuItemName2 = "Border point in " + sLangName
' Create menu items - all items use
' the same help text
MMI_CreateGBMenuItemStr(iMenu,
sMenuItemName1, MHELP)
MMI_CreateGBMenuItemStr(iMenu,
sMenuItemName2, MHELP)