Tell me if you think its useful or am I doing double work again.
CHeerio, Andreas
to handle buttonclick
--|
--| walks through all books, pages and objects
--| in sysbooks except mtb30.tbk
--| and lets you set object properties
--| Handy for creating unified styles, and saves a lot of handwork
--|
--| USE WITH CARE cause it can also destroy a lot of handwork
--|
sy = name of this book & "," & sysbooks
step j from 1 to itemcount(sy) - 1 -- exclude mtb30.tbk
bo = item j of sy
step p from 1 to pagecount of book bo
ob = objects of page p of book bo
step o from 1 to itemcount(ob)
this_object = item o of objects of page p of book bo
--|
--| this is the inner-most loop
--| set any object property of "this_object" here
--|
--| (examples)
--|
if this_object contains "button"
--|
--| change the font of all button
--|
fontface of this_object = "Century Gothic"
fontstyle of this_object = "regular"
fontsize of this_object = 12
--|
--| unifies the height of all buttons
--|
item 4 of bounds of this_object = item 2 of bounds of this_object + 500
end if
if this_object contains "field"
--|
--| personalize all field names
--|
name of this_object = "IBM_" & name of this_object
end if
--| etcetera, etcetera
end step
end step
end step
end
/------------------------------------------------\
| "May be source be with you" Luke Webwalker |
|------------------------------------------------|
| Andreas Gammel Philips Research Laboratories |
| Building: WB 3.32 Prof. Holstlaan 4 |
| Phone: +31 40 742774 5656 AA Eindhoven |
| Fax: +31 40 744315 The Netherlands |
| Mail: gammel@prl.philips.nl |
\------------------------------------------------/