>>>Hello All!
>>>
>>>I have a little question. How can I go through the ierarchy
>>>of objects that appeared on screen. I know how make it with
>>>the form object, but can't imagine how can I go through the
>>>pageframe or grid object or another container object? My
>>>primary goal is to determine that object referenced as
>>>thisform.controls[i] is an container and to determine count
>>>of controls of this object. I'm really sick with this problem.
>>>
>>>Have a nice day,
>>>
>>>Vladimir
>>
>>Besides Controls(i) you should use ControlCount property and Type function. They are available for Pageframes, Grid, etc (any container). Cheer up!
>
>Look at txtbtns.setallprop in WIZSTYLE.VCX. Its purpose is to set .enabled and .readonly for objects on your form. It loops through .controls(i) for i = 1 TO controlcount, and calls itself recursively if .BaseClass = "container".
>
>However, the .BaseClass of a PageFrame is not "container" and it doesn't have a .ControlCount property. Therefore, .SetAllProp misses all the objects in your pageframe, which you may have noticed if you tried to use the wizard to make a form and then put a pageframe in it. I originally made a dumb workaround involving my own method, before I realized that PageFrames have a Pages() property and a PageCount property. Pages themselves are containers. If you can get a method similar to .SetAllProp to call itself when it hits a PageFrame and loop through Pages() instead of Controls(), it should solve your problem.


All containers have some array which stores the controls of that container, although they are named differently. Here is how I resolved the problem...

FUNCTION enable
LPARAMETERS poControl
lcBaseClass = UPPER(poControl.baseclass)
DO CASE
CASE lcBaseClass $ "FORM~PAGE~CONTAINER"
IF poControl.ControlCount > 0
FOR lnYY = 1 to poControl.ControlCount
Thisform.m_enable(poControl.controls[lnYY])
ENDFOR
ENDIF

CASE lcBaseClass $ "OPTIONGROUP~COMMANDGROUP"
IF poControl.ButtonCount > 0
FOR lnYY = 1 to poControl.ButtonCount
Thisform.m_enable(poControl.Buttons[lnYY])
ENDFOR
ENDIF

CASE lcBaseClass = "PAGEFRAME"
IF poControl.PageCount > 0
DIMENSION laoCtrl[poControl.PageCount]
FOR lnYY = 1 to poControl.PageCount
Thisform.m_enable(poControl.Pages[lnYY])
ENDFOR
ENDIF

CASE lcBaseClass = "GRID"
IF poControl.ColumnCount > 0
DIMENSION laoCtrl[poControl.ColumnCount]
FOR lnYY = 1 to poControl.ColumnCount
Thisform.m_enable(poControl.columns[lnYY])
ENDFOR
ENDIF

OTHERWISE
* Do whatever processing you need to all controls within the container
ENDCASE


Hope this helps :)