Using a startup file when using A5.load()

[Bob Whitaker]

I know how to set the windows title using a startup file and the -INCLUDE option in the command line when starting an Alpha application from scratch but there does not seem to be a way to do this when using A5.Load to start one application from another.
Essentially we have a menu programme that contains a number of records in a single table - each of which has a field containing the path to another Alpha application. We then use a browse with a button which places the path of the desired application in a variable (appvar)and then required app is opened using a5.load(appvar). However we want each application to open with specific title in the Window Bar at the top of the screen so if the app is minimised it is quite clear which app is open.
There does not seem to be a way to either have -INCLUDE or -TITLE="My APP" work with A5.load().
Have also tried putting A5.window_title = "My App" in the OnActivate and / or Oninit events of the main application screen with zero success.
Can anybody help ?

Bob Whitaker

[Michael Humby]

Re: Using a startup file when using A5.load()

Bob,

The only way I know is instead of using A5.load point directly to a ready made shortcut.
e.g.
filename="c:\Datamove\appstaff\staff planner"
sys_open(filename)

Michael

[Clunes]

Re: Using a startup file when using A5.load()

Bob,

I did a trial withe sys_open see below

dim myvar as C
myvar = "C:\data\myrun.bat"

sys_open(myvar)
a5.close()

I had to create a bat file with the command line. It would not work properly until the include line only referenced the root directory of the exe file.

So the above uses sysopen to open a Db and then closes the original adb

[Tom Henkel]

Re: Using a startup file when using A5.load()

Bob,

We do something fairly similar to what you do with a main menu app that "calls" other apps. It may be a little tedious, but in the "on-activate" of the forms in the "called" app, put an

a5.window_title = <your application name>

if you set a global variable to be your app name, then change it to

a5.window_title = Var->appname

and it will appear on all the windows as a title.

Tom

...LATER...
example of "Calling a Sub Application"

'FUNCTION "SETUP" INITIALIZES THE VARIABLES TO BE SENT TO THE CALLED APPLICATION.
'	THE CHARACTER PARAMETERS ARE THE NAMES OF THE CALLED APPLICATION AND THE FORM
'	WE ARE COMING FROM. THEY ARE PLACED INTO THE AA.BCBSS.WHERETO AND AA.BCBSS.WHEREFROM
'	SUPER-GLOBAL VARIABLES

'FUNCTION CALLSUB IS USED TO DETERMINE IF A SHADOW DATABASE EXISTS, AND IF SO,
'	CALL THE LOCAL COPY OF THE DATABASE INSTEAD OF THE NETWORK MASTER.  INFORMATION 
'	PASSED IS THE SUBFOLDER NAME AND APPLICATIN NAME.
'  VARIABLE AA.BCBSS.SUBAPP CONTAINS A TEXT STRING IN THE FOLLOWING FORMAT:
'		aa.bcbss.lpath+chr(92)+subapp+".adb"  OR
'		aa.bcbss.path+chr(92)+subapp+".adb"
' 	WHERE AA.BCBSS.LPATH AND AA.BCBSS.PATH ARE FULLY QUALIFIED PATH NAMES TO EITHER THE 
'	SHADOW DATABASE(lpath) OR THE NETWORK DATABASE(path)

setup("Customer Information","Main_Menu")
dim aa as p
aa = addin.variables()
dim filename as C
callsub("casereg\Client_info")
pleasewait(.T.,"Retrieving Customer Info Menu... ")
'Open database:
:A5.load(aa.bcbss.subapp)

[DVSOL005]

Re: Using a startup file when using A5.load()

Bob,

I have just completed a multi-db application following Tom's method.

The only difference is that I have a line in the autoexec of each individual app and it works perfectly.
This is all I have in an autoexec:

if a5_check_throttle_file() = .f. then
a5.close()
end if
make_global_vars()
A5.window_title = "S I T A Fahrerschulung"

Regards