The MENU BAR object allows to present a menu bar which can contain buttons, images, search fields, menus and separators.
This object also lets you perform drag and drop operations.
The Drag function is available for menu and search field tools.
The Drop function is available for image and menu tools, as well as for menu elements.
Palette icon | Layout manager | Windows | Cloud |
---|---|---|---|
Not available | |||
Example initialization code * MAIN_WINDOW ** DECLARATION NUM_BIN_4 SearchToolId NUM_BIN_4 ButtonToolId NUM_BIN_4 Button2ToolId NUM_BIN_4 MenuToolId NUM_BIN_4 ImageToolId NUM_BIN_4 SeparatorToolId NUM_BIN_4 ElementId NUM_BIN_4 MenuId NUM_BIN_4 CtxMenuId NUM_BIN_4 CtxMenuOptionId NUM_BIN_4 ChildElementId NUM_BIN_4 Styles NUM_BIN_2 ReturnCode alpha(250) FileName alpha(250) ToolText alpha(250) Variable image ImageVar alpha(250) TooltipReadReturn bool ActivityReadReturn num_bin_4 ImageId bool Result num_bin_4 ActionMenu num_bin_4 ActionMenuOpt ** INITIALIZATION * !------------------------------------------- ! * ! 1 Creation of a search tool ! * !------------------------------------------- ! CALL_METHOD menu_bar ADD_TOOL 1 _MBA_SEARCH SearchToolId ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY SearchToolId _MBA_WIDTH 200 ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY SearchToolId _MBA_TOOLTIP_TEXT 'Search-type tool. Enter the string impr' ReturnCode FileName = 'C:\img4.gif' CALL_DLL 'VATOOLBX.DLL' 'VaToolBxFileToImage' FileName ImageVar ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY SearchToolId _MBA_IMAGE ImageVar ReturnCode * !-------------------------------------------! * ! Insertion of elements from the search ! * ! tool list of values. ! * ! Each element is associated with a ! * ! variable. ! * !-------------------------------------------! CALL_METHOD menu_bar add_element SearchToolId _MBA_ROOT _MBA_POS_LAST 'Intermediate invoices' ElementId ReturnCode CALL_METHOD menu_bar SET_ELEMENT_PROPERTY SearchToolId ElementId _MBA_TOOLTIP_TEXT 'Intermediate invoices tooltip' ReturnCode variable = 'INVOIC2' CALL_METHOD menu_bar SET_ELEMENT_PROPERTY SearchToolId ElementId _MBA_ASSOCIATED_VARIABLE variable ReturnCode * !-------------------------------------------! * ! Creating a separator tool ! * !-------------------------------------------! CALL_METHOD menu_bar ADD_TOOL 2 _MBA_SEPARATOR SeparatorToolId ReturnCode styles = _MBA_SEPARATOR_BAR_VISIBLE CALL_METHOD menu_bar SET_TOOL_STYLES SeparatorToolId styles ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY SeparatorToolId _MBA_WIDTH 30 ReturnCode * !------------------------------------------- ! * ! 2 Creating a menu tool ! * !------------------------------------------- ! CALL_METHOD menu_bar ADD_TOOL 3 _MBA_MENU MenuToolId ReturnCode CALL_METHOD menu_bar SET_ELEMENT_PROPERTY MenuToolId ElementId _MBA_TOOLTIP_TEXT 'Global menu tooltip' ReturnCode CALL_METHOD menu_bar add_element MenuToolId _MBA_ROOT _MBA_POS_LAST 'Action' MenuId ReturnCode CALL_METHOD menu_bar add_element MenuToolId MenuId _MBA_POS_LAST 'File' ElementId ReturnCode CALL_METHOD menu_bar add_element MenuToolId ElementId _MBA_POS_LAST 'Open' ChildElementId ReturnCode CALL_METHOD menu_bar SET_ELEMENT_PROPERTY MenuToolId ChildElementId _MBA_TOOLTIP_TEXT 'Open new document' ReturnCode CALL_METHOD menu_bar add_element MenuToolId ElementId _MBA_POS_LAST 'Save' ChildElementId ReturnCode CALL_METHOD menu_bar SET_ELEMENT_PROPERTY MenuToolId ChildElementId MBA_ACTIVITY *false ReturnCode CALL_METHOD menu_bar SET_ELEMENT_PROPERTY MenuToolId ChildElementId _MBA_TOOLTIP_TEXT 'Save the document' ReturnCode CALL_METHOD menu_bar add_element MenuToolId ElementId _MBA_POS_LAST 'Save as' ChildElementId ReturnCode CALL_METHOD menu_bar SET_ELEMENT_PROPERTY MenuToolId ChildElementId _MBA_TOOLTIP_TEXT 'Save as current document' ReturnCode CALL_METHOD menu_bar add_element MenuToolId ElementId _MBA_POS_LAST 'Close' ChildElementId ReturnCode CALL_METHOD menu_bar SET_ELEMENT_PROPERTY MenuToolId ChildElementId _MBA_TOOLTIP_TEXT 'Close current document' ReturnCode * !-------------------------------------------! * ! Creating a separator tool ! * !-------------------------------------------! CALL_METHOD menu_bar ADD_TOOL 4 _MBA_SEPARATOR SeparatorToolId ReturnCode styles = _MBA_SEPARATOR_BAR_VISIBLE CALL_METHOD menu_bar SET_TOOL_STYLES SeparatorToolId styles ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY SeparatorToolId _MBA_WIDTH 30 ReturnCode * !-------------------------------------------! * ! 3 Creating button-type tools ! * !-------------------------------------------! CALL_METHOD menu_bar ADD_TOOL 5 MBA_BUTTON ButtonToolId ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY ButtonToolId _MBA_TEXT 'Edit' ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY ButtonToolId MBA_ACTIVITY *false ReturnCode FileName = 'C:\img3.gif' CALL_DLL 'VATOOLBX.DLL' 'VaToolBxFileToImage' FileName ImageVar ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY ButtonToolId _MBA_IMAGE ImageVar ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY ButtonToolId _MBA_TOOLTIP_TEXT 'Edit current document' ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY ButtonToolId _MBA_WIDTH 100 ReturnCode CALL_METHOD menu_bar CREATE_CTX_MENU MenuIdCtx ReturnCode CALL_METHOD menu_bar ADD_CTX_MENU_OPT MenuIdCtx _MBA_ROOT _MBA_POS_LAST 'Edit with...' _MBA_SIMPLE IdOptionMenuCtx ReturnCode CALL_METHOD menu_bar ASSOCIATE_CTX_MENU MenuIdCtx ButtonToolId _MBA_NONE ReturnCode * !-------------------------------------------! * ! Creating a separator tool ! * !-------------------------------------------! CALL_METHOD menu_bar ADD_TOOL 7 _MBA_SEPARATOR SeparatorToolId ReturnCode styles = _MBA_SEPARATOR_BAR_VISIBLE CALL_METHOD menu_bar SET_TOOL_STYLES SeparatorToolId styles ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY SeparatorToolId _MBA_WIDTH 30 ReturnCode * !-------------------------------------------! * ! Creating an image tool ! * !-------------------------------------------! CALL_METHOD menu_bar ADD_TOOL 8 _MBA_IMAGE ImageToolId ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY ImageToolId _MBA_WIDTH 50 ReturnCode FileName = 'C:\img2.png' CALL_DLL 'VATOOLBX.DLL' 'VaToolBxFileToImage' FileName ImageVar ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY ImageToolId _MBA_IMAGE ImageVar ReturnCode CALL_METHOD menu_bar SET_TOOL_PROPERTY ImageToolId _MBA_TOOLTIP_TEXT 'Send by email' ReturnCode |