On a multipage form I added page tabbing but the "_FIX" objects don't show on the other pages. I added "TAB_SETUP" to the window create event etc.

Just to test if I was doing this correctly I created a test form and that one works correctly.

What could be going wrong?

Minor correction - the property is the PAGELIST property.

Regards

The Sprezzatura Group

World Leaders in all things RevSoft

On a multipage form I added page tabbing but the "_FIX" objects don't show on the other pages. I added "TAB_SETUP" to the window create event etc.

Just to test if I was doing this correctly I created a test form and that one works correctly.

What could be going wrong?

Well I added a loop in the Create Event Script to look through the Control map for the window and set the PAGELIST property to -1 for all controls ending "_FIX" and this works.

Why the TAB_SETUP stored procedure doesn't work for this particular Form is beyond me.

Warren,

Can't make a guess myself either. I have never used that routine but I suspected it was automating what you ended up doing specifically for this form. Glad you got it to work.

dbakke@srpcs.com

SRP Computer Solutions, Inc.

Well, the source code for TAB_SETUP was there, I put a debug statement in it and it appears that it is not getting called by form on the create event. Weird.

Silly me. Return 1 vs Return 0 in the script.

I don't know if it makes a difference, but here is the routine that I use in the CREATE event:

declare subroutine Set_Property, Send_Event

declare function Get_Property,SEND_EVENT

SET_PROPERTY(@WINDOW,"VISIBLE",3) ;* START MAXIMIZED

equ FIX_SUFFIX$ to "_FIX"

/* This removes the bottom border on the first tab so that it looks like it has been selected. */

Send_Event(@window:".PAGE_1_TAB","GOTFOCUS")

Ctrls="

Props="

Vals ="

Ctrlist="

cCtrlList="

* Get the list of controls on the form and count the number of controls

CtrlList=Get_Property(@window,"CTRLMAP")

cCtrlList=count(CtrlList,@fm)+(CtrlList # "")

/* the extraction operator () is used to find control names with

  the suffix "_FIX".  An @rm delimited list is created with those

  controls. */

for iCtrl=1 to cCtrlList

Ctrl=CtrlList

if Ctrl neg(len(FIX_SUFFIX$)) , len(FIX_SUFFIX$)=FIX_SUFFIX$ then

	Ctrls := Ctrl		: @rm

	Props := "PAGELIST"	: @rm

	Vals  := -1			: @rm

end

next ICtrl

/* These three statements remove the trailing @rm from the lists created

 above */

Ctrls-1,1="

Props-1,1="

Vals-1,1 ="

Set_Property(Ctrls,Props,Vals)

return 0

This is pretty generic so I don't understand why it won't work .. but ..

Don M.

D'oh! Thanks for catching that.

dbakke@srpcs.com

SRP Computer Solutions, Inc.

I believe that's what the stored procedure "TAB_SETUP" does. I'd guess it goes through the Control Table and sets the PAGELIST property to -1 for all controls name ending in "_FIX", but I'll try forcing it manually in a script.

View this thread on the forum...