Jay,
Just a quick and dirty solution might look like this
lparameters toControl
local loControl, loPage, loColumn
do case
case Pemstatus(toControl, 'Controls', 5)
for each loControl in toControl.Controls
? 'Control:', loControl.Name
thisform.ShowControls(loControl)
endfor
case Pemstatus(toControl, 'Columns', 5)
for each loColumn in toControl.Columns
? 'Column:', loColumn.Name
thisform.ShowControls(loColumn)
endfor
case Pemstatus(toControl, 'Pages', 5)
for each loPage in toControl.Pages
? 'Page:', loPage.Name
thisform.ShowControls(loPage)
endfor
endcase
? 'Object:', toControl.Name
[Update] Forgot to add the object
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
