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

LOCAL lnMenuNum, ;
      lcFormName

*- this class can't be used independent of the application
IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
	=MESSAGEBOX(CLASSBROWERR_LOC)
	RETURN .F.
ENDIF

*-- Restore window's position from INI file
thisform.RestoreWindowPos()
IF !EMPTY(thisform.cToolBar) AND ;
    TYPE("oApp") == "O"
  *-- Add form's caption to the menu
  thisform.AddToMenu()
  *-- Put up the navigation toolbar
  oApp.ShowNavToolBar(thisform.cToolBar)
ENDIF

*-- Initialize default error message array
thisform.aErrorMsg[INSERTTRIG] = INSERTTRIGFAIL_LOC
thisform.aErrorMsg[UPDATETRIG] = UPDATETRIGFAIL_LOC
thisform.aErrorMsg[DELETETRIG] = DELETETRIGFAIL_LOC