FoxPro/Visual FoxPro - Uso del MouseMove

 
Vista:

Uso del MouseMove

Publicado por Ramon (81 intervenciones) el 29/05/2010 01:42:00
Hola buenas tardes amigos... Quisiera me ayudaran con el uso del MouseMove en los botones de la barra de herramineta...

tengo dos iconos PNG uno llamado calc.png de 24 y el otro calc2.png de 32... el que esta por default en el boton es el de 24... pero deseo que al pasar el mouse por este boton me presente el calc2.png que es de 32..

tengo este codigo del boton

ADD OBJECT cmdCalc AS CommandButton WITH ;
TOP = 14, HEIGHT = 40, WITH =45,;
HEIGHT = 40, WIDTH = 45,;
Caption="" , PICTURE = sys(5)+Sys(2003)+"\icons\calc1.png", ;
TOOLTIPTEXT = "Usar la Calculadora"

MOUSEMOVE= ???

Ademas quisiera me orientaran sobre como hacer una linea de separación entre grupos de botones de la barra de herramienta...

Gracias amigos...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Uso del MouseMove

Publicado por es_binario (757 intervenciones) el 29/05/2010 02:52:16
El evento mousemuve no es del todo bueno en foxpro, debido a que foxpro usar el paint del form en cada mause move si este tiene codigo, de hecho suele fallar, no te lo recomiendo mi recomendacion seria que use el mouseEnter y el mouseLeave

en mi caso algo asi

Evento MouseEnter
LPARAMETERS nButton, nShift, nXCoord, nYCoord
This.Picture = 'C:\ORDIMPRENTAS\BOTONS\IMAGES\DOS.PNG'

y en el MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
This.Picture = 'C:\ORDIMPRENTAS\BOTONS\IMAGES\BTN.PNG'

Trabaja excelente, nada mas te recomiendo que los png sean de 24bits

encuanto al separador no tengo idea, pero podria ser un boton en blanco o un boton en blanco desabilitado.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Uso del MouseMove

Publicado por Juan286 (185 intervenciones) el 29/05/2010 14:07:57
Pues aquiesta algo sencillo de hacer debes colocar algo como esto emplea

MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Picture = 'C:\ELECTRONIC\IMAGENES\ARROW09B.ICO'

MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.Picture = 'C:\ELECTRONIC\IMAGENES\ARROW09C.ICO'

esode debe ser suficiente

Con lo a lo otro en la barra de herramientas estandar ahi esta uno boton llamado separador son como dos botones encontrados solo da clic y depues das clic entre los botones a separar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar