MetaCard y Revolution: Herramientas de autor multiplataforma para multimedia | ||
---|---|---|
Anterior | Capítulo 6. Interfaz: controles complejos y procesos externos | Siguiente |
Un ejemplo de utilización de nuevas propiedades de un objeto
Figura 6-1. Captura de la aplicación desarrollada para mostrar la utilización de las Custom Properties.
# button "mas" on mouseUp put the valor of scrollbar "barraProgres" into varAux put varAux into the field "msg" set the valor of scrollbar "barraProgres" to (varAux ) + 1 end mouseUp #button "menos" on mouseUp put the valor of me end mouseUp #scroolbar "barraProgres" on mouseUp put the valor of scrollbar "barraProgres" into varAux put varAux into the field "msg" set the valor of scrollbar "barraProgres" to (varAux ) - 1 end mouseUp setprop valor x if ((x > -1) and (x < 101)) then set the valor of me to x set the thumbPosition of me to x end if end valor #field "msg" on returnInField set the valor of scrollbar "barraProgres" to the text of me end returnInField