* 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