Page History

The next step is to add "Expand All" and "Collapse All" functionality, to be able to expand or collapse the outline.  To To do this:

1. Add a button control to the form called B_EXPAND and type Expand All in the Text property.  Code Code the same QuickEvent parameters for the CLICK event (calling TEST_LB() with '@SELF','CLICK') as for the B_POPULATE button in the previous step.

2. Add another button control called B_COLLAPSE, and type Collapse All in the Text property.  Code Code the same QuickEvent call as for B_EXPAND.

      3. Add the following code to TEST_LB().  The code consists of additional CASE statements that detect which control is calling the function, and then sending the expand or collapse message to the list box.

  *expand the entire list (in this case there are a total of 3 levels)
   case ctrlName = 'B_EXPAND'
      Send_Message(WinId: '.LB_H', 'EXPAND', 0, 3)
 
   *collapse the entire list to the first level
   case ctrlName = 'B_COLLAPSE'
      Send_Message(WinId: '.LB_H', 'EXPAND', 0, 1)
  

The buttons should expand or collapse the outline when clicked.