|
|
|
|
|
- Listing the main menus of a window
Listing the main menus of a window This example is used to list the options found in the the drop-down menus of a window. A recursive procedure is used. // Call to the recursive procedure FillMenu(MyWindow..Name)
PROCEDURE FillMenu(sParent, nLevel is int = 0) // Enumerate the menu options sOption is string = EnumSubElement(sParent, enumFirst + enumMainMenu) // The name of the main menu must not be specified IF nLevel = 0 AND sOption <> "" THEN FillMenu(sParent + "." + sOption, nLevel + 1) RETURN END WHILE sOption <> "" // Full name of the menu option sFullName is string = sParent + "." + sOption // Add the menu option IF {sFullName,indGPW}..Type = typOptionMenu THEN Trace(sFullName, typMenuOption, {sFullName,indGPW}..Caption, "", nLevel) END // Options of higher level FillMenu(sFullName, nLevel + 1) // Next option sOption = EnumSubElement(sParent) END
This page is also available for…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|