Init Method
Object: frmbehindsc
Expand/Collapse source code of procedure Init Source Code
*-- (c) Microsoft Corporation 1995

LPARAMETERS tlModal
thisform.WindowType = IIF(tlModal, 1, 0)

IF TYPE("oApp.oToolbar") == "O"
  IF !ISNULL(oApp.oToolBar)
    oApp.oToolbar.cmdBehindSC.Enabled = .F.
  ENDIF
ENDIF


LOCAL lnFormIndex, ;
      lcValue

tsBaseForm::Init()
thisform.AddToMenu()

SELECT DISTINCT screen_id ;
  FROM behindsc ;
  WHERE screen_id <> "*" ;
  ORDER BY screen_id ;
  INTO ARRAY thisform.aForms

DIMENSION thisform.aForms[_tally + 1]
=AINS(thisform.aForms, 1)
thisform.aForms[1] = ALL_LOC	&&"All"

thisform.cboForms.RowSource = "thisform.aForms"

*-- Load an array with references to those controls 
*-- that need to be moved when the splitter control
*-- is repositioned
DIMENSION this.aObjSplitMove[3]
this.aObjSplitMove[1] = thisform.lstFeatures
this.aObjSplitMove[2] = thisform.edtFeatureText
this.aObjSplitMove[3] = thisform.lblHowItWorks

*-- Set a filter to set the scope to features on the current screen.
IF SEEK(this.cCurrentForm, "behindsc")
  lcValue = this.cCurrentForm
  SET FILTER TO screen_id = "&lcValue"
ELSE
   SET FILTER TO screen_id <> "*"
ENDIF     

GO TOP IN behindsc

lnFormIndex = ASCAN(thisform.aForms, this.cCurrentForm)

thisform.cboForms.Value = IIF(lnFormIndex = 0, 1, lnFormIndex)