OK, this is quickly turning into a trainwreck. I got the exe to run, but there are three problems. One is an error: "alias 'app_global' does not exist", Two is that the wrong menu comes up, and Three is that it follows up with a "quick start" listbox that I never asked for. Here's my MAIN program code:
#INCLUDE [..\DA_APP.H]
SET PATH TO reports, forms, libs, graphics, menus, data, include, progs
Do mainmenu.mpr
IF TYPE([APP_GLOBAL.Class]) = "C" AND ;
UPPER(APP_GLOBAL.Class) == UPPER(APP_CLASSNAME)
MESSAGEBOX(APP_ALREADY_RUNNING_LOC,48, ;
APP_GLOBAL.cCaption )
IF VARTYPE(APP_GLOBAL.oFrame) = "O"
APP_GLOBAL.oFrame.Show()
ENDIF
RETURN
ENDIF
RELEASE APP_GLOBAL
PUBLIC APP_GLOBAL
LOCAL lcLastSetTalk, llAppRan, lnSeconds, loSplash
LOCAL ARRAY laCheck[1]
lcLastSetTalk=SET("TALK")
loSplash = .NULL.
SET TALK OFF
#IFDEF APP_SPLASHCLASS
IF NOT EMPTY(APP_SPLASHCLASS)
loSplash = NEWOBJECT(APP_SPLASHCLASS, APP_SPLASHCLASSLIB)
IF VARTYPE(loSplash) = "O"
lnSeconds = SECONDS()
loSplash.Show()
ENDIF
ENDIF
#ENDIF
APP_GLOBAL = NEWOBJECT(APP_CLASSNAME, APP_CLASSLIB)
IF VARTYPE(APP_GLOBAL) = "O" ;
AND ACLASS(laCheck,APP_GLOBAL) > 0 AND ;
ASCAN(laCheck,UPPER(APP_SUPERCLASS)) > 0
APP_GLOBAL.cReference =[APP_GLOBAL]
APP_GLOBAL.cFormMediatorName = APP_MEDIATOR_NAME
#IFDEF APP_CD
APP_CD
#ENDIF
#IFDEF APP_PATH
APP_PATH
#ENDIF
#IFDEF APP_INITIALIZE
APP_INITIALIZE
#ENDIF
IF VARTYPE(loSplash) = "O"
IF SECONDS() < lnSeconds + APP_SPLASHDELAY
=INKEY(APP_SPLASHDELAY-(SECONDS()-lnSeconds),"MH")
ENDIF
loSplash.Release()
loSplash = .NULL.
ENDIF
RELEASE laCheck, loSplash, lnSeconds
IF NOT APP_GLOBAL.Show()
IF TYPE([APP_GLOBAL.Name]) = "C"
MESSAGEBOX(APP_CANNOT_RUN_LOC,16, ;
APP_GLOBAL.cCaption )
APP_GLOBAL.Release()
ELSE
MESSAGEBOX(APP_CANNOT_RUN_LOC,16)
ENDIF
ELSE
llAppRan = .T.
ENDIF
IF TYPE([APP_GLOBAL.lReadEvents]) = "L"
IF APP_GLOBAL.lReadEvents
* the Release() method was not used
* but we've somehow gotten out of READ EVENTS...
APP_GLOBAL.Release()
ENDIF
ELSE
RELEASE APP_GLOBAL
ENDIF
ELSE
MESSAGEBOX(APP_WRONG_SUPERCLASS_LOC,16)
RELEASE APP_GLOBAL
ENDIF
IF lcLastSetTalk=="ON"
SET TALK ON
ELSE
SET TALK OFF
ENDIF
IF TYPE([APP_GLOBAL]) = "O"
* non-read events app
RETURN APP_GLOBAL
ELSE
RETURN llAppRan
ENDIF
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only