obj() problem in a function caused by xp sp2?

[masteralone]

Ok folks, I have an interesting one for you.

I created a function called centerform in A5V4 and it has worked in all subsequent versions til now.

My desktop is running xp pro with sp 1. The autoexec line centerform("main menu") works correctly.

My laptop is running xp home with sp2. Today, I installed A5V7 on it, copied all my folders from desktop so paths and everything would be the same, and started the adb that I have been working on. Low and behold, I received the following message:

command f=formload(fname)
object does not support requested inteface

here are autoexec lines and the function code:

Autoexec:

Centerform("Main Menu")

Centerform function

function Centerform as L(fname as C)
' type your code here
dim hscreen as n
dim wscreen as n
dim height as n
dim width as n
wscreen=ui_info(0)
hscreen=ui_info(1)
f=obj(fname)
if is_object(f) then restore
else
f=form.load(fname)
end if
width=f.width
height=f.height
f.top=iif(height<hscreen,(hscreen-height)/2,0)
f.left=iif(width<wscreen,(wscreen-width)/2,0)
f.show()
f.activate()
centerform=.t.
end function

Anyone have any idea why this function works all the way from A5V4 thru A5V7 (xp pro w/sp1) and not on xp home w sp2?

[Cheryl Lemire]

Oran,

I have xp profession, sp2 and your code works fine there. There must be some kind of conflict in the xp home .... I guess.

I would suggest searching the microsoft knowledgebase and see if you can find the differences between the home and professional versions.

Edited: maybe the home version does not allow for manipulation of windows.

[Stan Mathews]

I know you state that this function works on different windows versions but I'm puzzled by this part of your function...

if is_object(f) then restore
else
      f=form.load(fname) 
end if

The usual structure is

if logicalexpression then
      some code
else
      other code
end if

Also confused by "restore". I don't recognize that as an Alpha command/function/etc.

[Cheryl Lemire]

I found the following:

http://support.alphasoftware.com/alp....RESTORE().htm

perhaps the code has changed and it was restore back in the DOS days, without the '.' before it

[Stan Mathews]

I found the following:

http://support.alphasoftware.com/alp....RESTORE().htm

perhaps the code has changed and it was restore back in the DOS days, without the '.' before it

Ok, fine. So the code ought to be

if is_object(f) then 
      f.restore()
else
      f=form.load(fname) 
end if

[Colin Roberts]

Oran

May I suggest you bypass the Autoexec, set the form as Startup in Database properties and place the following on the form's OnActivate event

dim pObj as p

pObj = topparent.this

pObj.window_position("Center","Center")

Code easily set up in action scripting - Window commands/window position

My two pennyworth

Colin

[masteralone]

I just noticed that the code I posted is the exact code that has been working all along but I don't have () after restore. I will add that to the function and see if that is why it isn't working.

Thanks, will let you know

[masteralone]

:( Didn't have any affect still have same error message.

Any other ideas?


TIA

[masteralone]

Sorry if it looks like I'm doing all the posting. Colin, the app I am working on has many, many forms. Most of them I hide when the user moves to another form but I want the main menu as a button on all forms. If it doesn't work in autoexec, it won't work as a button on a form in xp home with sp2.

[Cheryl Lemire]

Oran,

Did you try Stan's suggestion and change your code to the following:

if is_object(f) then 
      f.restore()
else
      f=form.load(fname) 
end if

[masteralone]

Hi Cheryl,

I fixed the initial problem by adding the () after restore and then moving the f=formload(fname) up to the same line as the else.

Now it appears I have problems with the code following end if. Shaking my head over this, I don't understand why it works everywhere (without changes) except on my new laptop with xp home sp2. You even tested it on xp pro sp2 and found it worked.

It may be that home doesn't allow windows manipulation. I am hoping Selwyn or Richard may have an answer to this as the App I am developing MUST work on either.

[Cheryl Lemire]

Oran,

Why not post your new code and error and I can test again on my end.

[Peter.Wayne]

Oran,
If you are getting an error,

command f=formload(fname)
object does not support requested inteface

then you have an error in your code, or some other code that you're not posting. The proper syntax is

f=form.load(fname)

which is what you appear to have in the autoexec code. Do you have other code somewhere that uses the wrong syntax?
Try putting a debug(1) at the top of your autoexec script and see where your program errors out.
I don't believe it's a Windows xp issue.
- Peter

[masteralone]

I am reposting the coding and the problem so others may see what is happening.

last 3 lines of autoexec first:

'controlpanel.hide() 'it is remarked at this point to work on problem
Centerform("Main Menu")

END

Coding for Centerform function

function Centerform as L(fname as C)
dim hscreen as n
dim wscreen as n
dim height as n
dim width as n
wscreen=ui_info(0)
hscreen=ui_info(1)
f=obj(fname)
if is_object(f) then restore
else f=form.load(fname)
end if
width=f.width
height=f.height
f.top=iif(height<hscreen,(hscreen-height)/2,0)
f.left=iif(width<wscreen,(wscreen-width)/2,0)
f.show()
f.activate()
centerform=.t.
end function

As originally stated, the function has worked since A5V4 on win98, winMe, winNT, and XP Pro SP1 without any problem. When I installed A5V7 to my new laptop running XP Home SP2, copied all the files to the laptop and then started the db, it is erroring out. Originally, it errored out when it hit the if f=form.load(fname) which I corrected by placing the code on the same line as the ELSE. Now it appears that the window sizing for the form is also a problem with XP Home.

Cheryl, in an earlier post, said that she ran the function on a computer with XP Pro SP2 and it worked correctly, so the problem really appears to be with XP Home and the SP may or may not be causing the problem.

[Cheryl Lemire]

Oran,

Copy your "Main Menu" form and rename it to main_menu, then change your autoexec to: Centerform("Main_Menu")

If that does not work, change your function code to the following:

function Centerform as L(fname as C)
 dim hscreen as n
 dim wscreen as n
 dim height as n
 dim width as n
[COLOR=Red]dim newtop as n
dim newleft as n[/COLOR]
 wscreen=ui_info(0)
 hscreen=ui_info(1)
 f=obj(fname)
 [COLOR=Red]if is_object(f) then 
      f.restore()
else
      f=form.load(fname) 
end if[/COLOR] width=f.width
 height=f.height
[COLOR=Red]newtop = (a5_height - height)/2
newleft = (a5_width - width)/2[/COLOR]
 f.top=[COLOR=Red]newtop[/COLOR]
 f.left=[COLOR=Red]newleft[/COLOR]
 f.show()
 f.activate()
[COLOR=Red]'[/COLOR]centerform=.t.  [COLOR=Red]'commented out, should not be needed[/COLOR]
 end function