Custom Properties

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