Help to finish Application

[Tom Patten]

Hi,

I am just finishing an application (do they ever get really done!)and need some advise.

I tried moving the data directory and everything seemed to work just fine. Even the field rules that lookup on a database. Is this normal to be able to move directories and have everything operate correctly, or do I have some suprises in store?

I have a form set as a startup form. But it does not startup positioned correctly. It is maximized, but not centered in the window. Other forms open un-centered also when I access the application automatically. But when I open the forms from the controlpanel, they open correctly. What gives? Suggestions.

Thanks

Tom

[Tom Patten]

RE: Help to finish Application

More help needed?!?

Now everything is showing up in italics font. What gives?!?!?

Tom

[whanigsberg]

RE: Help to finish Application

I bet you installed or reinstalled A5 or the runtime. If so, the install confused your font mapping. Go to the windows control panel/fonts and you will find that ariel is incorrectly mapped. Delete it. Then in the recycle bin select an restore it. It will remap correctly.

I can't comment on your data dictionary issue.

Bill

[Stan Mathews]

RE: Help to finish Application

Any saved operations, not xbasic code, will automatically adjust to the current path to the tables, assuming the tables are in the same directory as the database files.

I'll bet your uncentered forms are higher and more left than center, due to increased screen resolution on the target machine. Either reset the target's resolution to match the development machine or make a change to your forms on the target machine, center the forms, and save them. Both methods should result in centered forms for keeps.

[Tom Patten]

RE: Help to finish Application

yES, I reinstalled A5 so the font needed changing. Thanks.

Now - please tell me - how does one center a form? I don't see this option under form properties.

TIA

Tom

[whanigsberg]

RE: Help to finish Application

Look in the xbasic documentation under UI_info() which is on pg 344 of my print version. It gives an example of how to do this.

Bill

[Steve Workings]

RE: Help to finish Application

' Reusable script to center forms
' Calling script must first load form to the "f" pointer, e.g.
' f = :form.load("myformname")
' Steve Workings
' March 7, 1998
' ------------------------------------------------------------

dim global f as p

a5_height = ui_info(3)
a5_width = ui_info(0)
width = f.width
height = f.height
if height>=a5_height-80 then
newtop=80
else
newtop = 80+(a5_height - height)/2
end if
if width>=a5_width then
newleft=0
else
newleft = (a5_width - width)/2
end if
f.top = newtop
f.left = newleft
f.show()
f.activate()

[Tom Patten]

RE: Help to finish Application

Steve,

Thank you very much - your generousity is very much appreciated.

One questions, you mention the script must load from
f = :form.load("myformname")
I have my form loading as the startup form by checking the box under database settings. How should I attach this script?

Thanks again,

Tom

[whanigsberg]

RE: Help to finish Application

Tom,

There are several ways to run Steve's code but here is one of them:

-Get rid of your run on load form selection in database properties.

-Rename the following script to "autoexec". It will run whenever you open the database.

-Be sure to change "myformname" to your actual form.

' Steve Workings
' March 7, 1998
' ------------------------------------------------------------
dim f as p 'used this way the variable can be local
'dim global f as p
f = :form.load("myformname")
a5_height = ui_info(3)
a5_width = ui_info(0)
width = f.width
height = f.height
if height>=a5_height-80 then
newtop=80
else
newtop = 80+(a5_height - height)/2
end if
if width>=a5_width then
newleft=0
else
newleft = (a5_width - width)/2
end if
f.top = newtop
f.left = newleft
f.show()
f.activate()