On 2/12/2010 10:38 AM, Frank Schoenheit, Sun Microsystems Germany wrote:
Hi Drew,
That question is - how do I answer that question?
...
Is there a way with the api now to do that?
Only by traversing the hierarchy of form components (starting with the
object delivered by getForms()), and checking on each element whether it
a) is a container, in which case you need to step down or b) has a
BoundField property, in which case you need to compare with what you're
looking for.
Howdy Frank,
And in there is a problem - performance.
In fact I cam very close to opening an issue on this - still might.
Traversing the GUI controls is incredibly expensive is seems.
For example taking a simple form (the form created from the Getting
Started with Base section of the OO.o Getting Started Guide) with 35
controls on the main form.
Then add a button and call this code:
Sub Main( oEv as object )
dim cntr
dim oDataForm
dim CurrentControl
dim sTime
dim eTime
oDataForm = oEv.Source.Model.Parent
sTime = now()
for cntr = 0 to uBound(oDataForm.ControlModels)
CurrentControl = oDataForm.ControlModels(cntr)
next
eTime = now()
print eTime - sTime
***********************************************
sTime = now()
for cntr = 0 to oDataForm.Columns.count -1
CurrentControl = oDataForm.Columns(cntr)
next
eTime = now()
print etime - stime
End Sub
The first value is, on my XP machine, ~3.47 seconds
The second value printed is 0 (too small to count)
That is a problem IMO.
Drew
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
