Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

To get this effect, simply populate the list box from the Populate button.  Substitute the following in the CLICK event of B_POPULATE:

 

Code Block
case ctrlName = 'B_POPULATE'
   content = ''
   content<1> = '2-1:OpenInsight'
   content<2> = '2-2:Tech Notes'
   content<3> = '3-3:Hierarchical List Boxes Part 1'
   content<4> = '3-3:Hierarchical List Boxes Part 2'
   content<5> = '2-2:White Papers'
   content<6> = '3-3:How to Get to the Web With OpenInsight'
   Set_Property(WinId: '.LB_H', 'LIST', content)
   Send_Message(WinId: '.LB_H', 'EXPAND', 0, 1)

...