*-- (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)