Step 2. Initialize the Form

FRM065 - Using List Components

This step will create entries in the combo box and set one search field as visible. The combo box ItemGotSelection event will show and hide the search fields.

1.  Create a subroutine with name InitForm

2.  Add code to set values for STD_DESCS and STD_CODEL and add three entries to the combo box. Position the combo box to the entry for By Name initially:

Subroutine Name(InitForm)

Clr_List Named(#ComboBox1)

#STD_CODEL := NAME

#std_descs := 'By Name'

Add_Entry To_List(#ComboBox1)

#STD_CODEL := DATE

#std_descs := 'Start Date'

Add_Entry To_List(#ComboBox1)

#STD_CODEL := DEPT

#std_descs := 'By Department'

Add_Entry To_List(#ComboBox1)

Get_Entry Number(1) From_List(#ComboBox1)

#ComboBox1.CurrentItem.Focus := true

Endroutine

     Note: The commands to Get_Entry and Set focus position of the combo box to the first entry added, (NAME).

3.  Extend the InitForm subroutine to show iiiSearchName and hide SearchDate and SearchDepartment.

#iiiSearchName. Visible := True

#SearchDepartment.visible #SearchDate.visible := false

4.  Add code to execute the subroutine InitForm from the form's CreateInstance event.

Evtroutine Handling(#com_owner.CreateInstance)

Set Com(#com_owner) Caption(*component_desc)

Execute Subroutine(InitForm)

Endroutine

5.  Using a CASE/ENDCASE loop for field STD_CODEL, add code to the combo box ItemGotSelection event to show and hide the search fields depending on the value selected.

Evtroutine Handling(#ComboBox1.ItemGotSelection) Options(*NOCLEARMESSAGES *NOCLEARERRORS)

Case Of_Field(#std_codel)

When (= NAME)

#iiiSearchName.Visible := true

#SearchDate.Visible #SearchDepartment.Visible := false

When (= DATE)

#SearchDate.Visible := true

#SearchDepartment.Visible #iiiSearchName.Visible := false

When (= DEPT)

#SearchDepartment.visible := true

#iiiSearchName.Visible #SearchDate.Visible := false

Endcase

Endroutine

6.  Compile and test the form. Your form should look like the following:

     Changing the Search by dropdown should display the correct search field.