InteractiveChange Method
Object:frmbehindsc.cboForms
Expand/Collapse source code of procedure cboForms.InteractiveChange Source Code
LOCAL lcValue

DO CASE
  CASE this.Value <> 1            && 1 is the "All Screens" case
    SET ORDER TO screen_top        && Order: by Screen and Topic

    lcValue = thisform.aForms[this.Value]
    SET FILTER TO screen_id = "&lcValue"

    IF !EVAL(FILTER())              && Not pointing to a valid record within filter scope
       LOCATE  
    ENDIF

  CASE this.Value = 1             && All forms
    SET FILTER TO screen_id <> "*"
    SET ORDER TO topic            && Order: Alpha by Topic

ENDCASE

thisform.LockScreen = .T.
thisform.RefreshFeatures()

THISFORM.lstFeatures.Requery()

*-- Redisplay the list of topics
thisform.edtFeatureText.Refresh()
thisform.LockScreen = .F.