utilizando la clase TSBUTTON de Manuel Mercado, cambio el color de los button en tiempo de ejecución, pero no consigo cambiar el color del button cuando paso el ratón por encima de ellos.
El codigo es:
- Code: Select all Expand view
Define Dialog...
...
REDEFINE SBUTTON odia[ 7] ID 4007 OF ocalen Font ofont NOBORDER ROUNDRECT
REDEFINE SBUTTON odia[ 8] ID 4008 OF ocalen Font ofont NOBORDER ROUNDRECT
REDEFINE SBUTTON odia[ 9] ID 4009 OF ocalen Font ofont NOBORDER ROUNDRECT
REDEFINE SBUTTON odia[10] ID 4010 OF ocalen Font ofont NOBORDER ROUNDRECT
...
Activate dialog...
Y en tiempo de ejecución cambio los colores de esta forma:
- Code: Select all Expand view
odia[x]:Setcolor(CLR_HGRAY, iif( odia[x]:lMouseOver, rgb(240,205,240),rgb(220,145,220)))
...Al pasar el ratón por encima del bottón este NO cambia. ¿ Que hago mal ?
...Sin embargo si establezco el color en el REDEFINE funciona perfectamente. Así:
- Code: Select all Expand view
REDEFINE SBUTTON odia[ 7] ID 4007 OF ocalen Font ofont NOBORDER ROUNDRECT COLORS CLR_HGRAY ,{ |odia| If( odia:lMouseOver, rgb(240,205,240),rgb(220,145,220)) }
Mil gracias.
LORENZO