7.62.2 FOR Examples

Columns Collection

This example loops through the columns of a list view and retrieves the DisplayPosition and Width attributes of the columns to a grid:

For Each(#Current) In(#ltvw_1.Columns)

Set Com(#STD_NUM) Value(#current.displayposition)

Set Com(#std_amnt) Value(#current.width)

Add_Entry To_List(#GRID_1)

Endfor

ComponentMembers Collection

This example records all the member components on a form and lists them in a grid:

For Each(#Current) In(#COM_OWNER.ComponentMembers)

Change Field(#STD_NAME) To('#CURRENT.NAME')

Add_Entry To_List(#GRID_1)

Endfor

ComponentForms Collection

This example loops through the collection of all forms currently realized by an application and records them in a grid:

For Each(#Current) In(#SYS_APPLN.ComponentForms)

Change Field(#STD_NAME) To('#CURRENT.ComponentTypeName')

Add_Entry To_List(#GRID_1)

Endfor

Items Collection

In this example clicking #PHBN_1 disables all the menu items in submenu #SMNU_1 and clicking #PHBN_2 enables the menu items:

Evtroutine Handling(#PHBN_1.Click)

For Each(#Current) In(#smnu_1.Items)

Set Com(#Current) Enabled(False)

Endfor

Endroutine

Evtroutine Handling(#PHBN_2.Click)

For Each(#Current) In(#smnu_1.Items)

Set Com(#Current) Enabled(True)

Endfor

Endroutine