mensaje y aMensaje

mensaje( xMensaje, aOpciones, nOp, xTitulo, lEsc, oLetra ) -> nOpcion
aMensaje( xMensaje, aOpciones, nOp, xTitulo, lEsc, oLetra ) -> nOpcion
Muestra un mensaje y permite seleccionar una opción, esta función permite ver el contenido de matrices, hash y objetos.

Parámetros

xMensaje	Datos a mostrar, puede ser cualquier tipo de dato
aOpciones	Matriz con los botones a mostrar, si no se envía muestra el botón de Aceptar, si se envía algún valor que no sea matriz, este será el único botón mostrado, los botones pueden mostrar cualquier tipo de dato
nOp	Número del botón que será considerado como botón por defecto (DEFAULT)
xTítulo	Título de la ventana, puede ser cualquier tipo de dato
lEsc	Indica si permite cancelar sin presionar botón (.t.) o no (.f.), si no se envía permite cancelar
oLetra	Objeto con el tipo de letra (font) que será usado para mostrar la información, si no se envía se utilizará el tipo de letra predefinido.

Devuelve

nOpcion

Número del botón presionado o cero si se abandona sin presionar ESC

Descripción
Mensaje y aMensaje son exactamente lo mismo.

La versatilidad de esta función permite tanto mostrar un mensaje al cual simplemente dar aceptar para continuar, como dar algunas opciones para que el usuario selecciona alguna, e incluso, es una muy buena herramienta para monitorear variables al momento de depurar un programa.

Muestra la información que se envía en xMensaje, si es una matriz o un hash, mostrará cada elemento en un renglón distinto, si es un objeto, lo que mostrará son las variables de instancia. Si alguno de los datos mostrados es un objeto, matriz o hash habrá que dar doble click sobre el y se abrirá otro dialogo mostrando la información de ese dato.

Ejemplo

aMensaje( "Esta es una demostración de aMensaje()",,," Hola" ) IF aMensaje( { "Veremos algunos ejemplos", "esperando te guste", "¿Estas de acuerdo?" }, { "&Continuar", "&Salir" }, 2, date() ) == 2 quit ENDIF a1 := { "Da doble click en la cuarta o quinta línea", ; 1, ; date(), ; { "A", "B", "C", { "Da click en la siguiente línea", { 1, 2, 3 } } }, ; { "Numero" => 8, "Fecha" => date(), "Matriz" => { .t., nil } } } aMensaje( a1, a1 )