disable MS-Word toolbars from Progress

Edward

New Member
:confused:

I managed to integrate MS-Word in a Progress window. I've also been able to hide the MS-Word toolbars. But what I'm trying to achieve is that I want to remember the initial MS-Word configuration because I want to reset that configuration when I close my Progress session. I tried the following, but that doesn't work. The problem is remembering the initial configuration

/* Remember the MS-Word configuration */
l_Toolbar[1] = Document:CommandBars:ITEM(1):VISIBLE.
l_Toolbar[2] = Document:CommandBars:ITEM(2):VISIBLE.

etc....

/* Hide the toolbar */
DO i_#ToolBars = 1 TO 30:
IF l_ToolBar[i_#ToolBars] THEN DO:
i_#Item = i_#Item + 1.
HideToolBar(i_#Item).
END.
END.

FUNCTION HideToolbar RETURNS LOGICAL i AS INT) :

APPLICATION:commandbars:ITEM(i):VISIBLE = FALSE.
Document:commandbars:ITEM(i):VISIBLE = FALSE.

RETURN TRUE. /* Function return value. */

END FUNCTION.

To reset the configuration, I view the same toolbars again (obviously).

Does anyone have any suggestions?
 
Back
Top