#include "fivewin.ch"
Function main() // Comienzo del sistema
Local oWnd
Local oBtn
Local x
Local Tooltip:=""
Local aMenSMsg := {"Ventas y/o Facturación de : < COTIZACIONES >",;
"Ventas y/o Facturación de : < NOTAS DE PEDIDOS >",;
"Ventas y/o Facturación de : < TRASPASOS O DESPACHOS PENDIENTES >",;
"Ventas y/o Facturación de : < EMISION DE FACTURAS >",;
"Ventas y/o Facturación de : < GUIAS DE DESPACHOS >",;
"Ventas y/o Facturación de : < BOLETAS DE VENTAS >",;
"Ventas y/o Facturación de : < EMISION DE NOTAS DE CREDITOS >",;
"Ventas y/o Facturación de : < NOTAS DE DEBITOS >",;
"Ventas y/o Facturación de : < DEVOLUCIONES DE PRODUCTOS >",;
"Ventas y/o Facturación de : < RECEPCION DE PAGOS >",;
"Ventas y/o Facturación de : < CONSULTA DE PAGOS >",;
"Ventas y/o Facturación de : < ELIMINACION DE PAGOS >",;
"Ventas y/o Facturación de : < MOVIMIENTOS DE CAJA >";
}
DEFINE WINDOW oWnd
SETBALLOON(.T.)
@ 01, 01 BTNBMP oBtn OF oWnd SIZE 50, 50 TRANSPARENT;
For x= 1 to Len(aMenSMsg)
Tooltip+=aMenSMsg[x]+Chr(13)
Next
oBtn:cTooltip:={Tooltip,;
"Datos Contenidos en el Grupo : < "+"dsdklsañdkñlaskdñaslkdñlsadksadkas >",;
1,;
nRGB(255,125,65),;
nRGB(65,125,255)}
ACTIVATE WINDOW oWnd MAXIMIZED
Return NIL
el tooltip del boton queda mal hecho asi como muestra esta imagen
![Image](http://i50.tinypic.com/29p92e9.jpg)
que sera.. pq agrega muchisimo espacio por debajo... de los comentarios del tooltip. ?????