Help with script

[Ohlen Cartmell]

The following script was lifted from learn alpha.com. When placed on the on_init event of a form it will expand a form designed in 640x480 to 800x600 or 1024x768. It works with all objects except the tabbed subform.

When the script reaches a tabbed subform, the beginning values for f.object.width and f.object.heighth are increased by an unknown factor. Then those values are multiplied by percnth and percntw. I can see it happen in the debugger, but can't figure out why it happens. Interestingly, the tabs on the tabbed subform are expanded properly.

Any thoughts are appreciated.

''XBasic
dim number as n
dim i as n
dim f as p
dim percntw as n
dim percnth as n
dim SizeH as n
dim SizeW as n
dim name as c
sizeH=UI_info(1)
sizeW=ui_info(0)
percntH = ((sizeH - 480) / 480)+1
percntW = ((sizeW - 640) / 640)+1
number = topparent.children()
for i = 1 to number
f = topparent.child(i)
if eval_valid("f.object.top") = .f. then
goto skip
end if
f.object.top = f.object.top * percnth
f.object.height = f.object.height * percnth
f.object.left = f.object.left * percntw
f.object.width = f.object.width * percntw
if f.class() = "text" .or. f.class() ="field"
.or.f.class() = "Button" .or. f.class() = "Radio"
.or.f.class()="twostbtn".or.f.class()="multistbtn" then
f.font.size = f.font.size * percnth
end if
if f.class() = "Browse" then
f.title.font.size = f.title.font.size * percnth
end if
if f.class() = "Tabbed" then
f.tabs.font.size = f.tabs.font.size * percnth
f.tabs.height = f.tabs.height * percnth
f.tabs.width = f.tabs.width * percntw
end if

skip:
next i
end

[Steve Dentler]

RE: Help with script

Try this as a replacement for the final lines referring to tabbed objects:

if f.class() = "Tabbed" then
name = f.name()
tab = "f:"+name+".object.height"
f.tabs.font.size = f.tabs.font.size * percnth
eval(tab) = f.tabs.height * percnth
eval(tab) = f.tabs.width * percntw

[Ohlen Cartmell]

RE: Help with script

Thanks Steve,
I get a message that "f.Tabbed1" is not found when the script reaches the eval(tab) line. All other ideas are appreciated.
Ohlen

[Steve Dentler]

RE: Help with script

Thanks Steve,
I get a message that "f.Tabbed1" is not found when the script reaches the eval(tab) line. All other ideas are appreciated.
Ohlen

-------------------------
Did you make what should have been a semicolon into a period. If the line failed, it should have returned, "f:tabbed1" not found. Check the piece of code I posted and make sure you're using a semicolon after the "f". That might fix it.

[Steve Dentler]

RE: Help with script

You may also need the "eval(tab)" on both sides of the equality, e.g. eval(tab) = eval(tab)* percentw

[Ohlen Cartmell]

RE: Help with script

All punctuation was correct since I copied it directly from your reply. I'll try using eval(tab) on both sides of the expression this afternoon and report back to you.

I've got my script working more reliably by rebuilding the form and removing the conditional objects and rich text objects. I also found some hidden fields on the form (it was imported from my old A5V4 app) which I removed. As I rebuild, I'll keep testing the form for reliability and keep you posted.

If you get a chance I'd appreciate your explanation of the eval() expression since I don't understand it in this context.

[Steve Dentler]

RE: Help with script

"Eval" simply evaluates an expression and returns the results of that expression. So eval(tab) in your case, returns:

f:tabbed1.object.height

This was what I found for this property after looking at the Xbasic Explorer window. Your original code referred to the height of the tab itself instead of to the tabbed object, and this was the simplest method that came to mind to create a pointer to the tab.

In the end, we need your code to evaluate to this

f:tabbed1.object.height = f:tabbed1.object.height * percntw

Using eval on both sides shoud do it.

Dr. Wayne did a great explanation of the eval function either on this board or on his web site which greatly helped me understand and use this function function. If it works, kudos should go to him