Btnget, ¿Como quito esto?

[JoseLuis]

Hola amigos

Tengo éste código:

Code: Select all  Expand view

    REDEFINE BTNGET oFe VAR cFe ID 102 OF oDlg RESOURCE "Calen";
             valid eval ({||(valor:=evalua(cFe),iif(cQuehago='A',cfe1:=cfe,),oDlg:Update()),.T.}) ;
        ACTION (aRect := GetCoors(oFe:hWnd),;
                     cFe := FwCalendar(cFe,aRect[1],aRect[4],oDlg,nRGB(200,200,200),nRGB(100,100,100), ;
                     nRGB(168,45,69),{nRGB(232,242,255),CLR_BLUE}))

Y obtengo lo siguiente:


Pero al pasar el ratón por encima se pone así


y el botón me tapa el bmp calendario.

Como lo corrijo para que no ocurra esto?

Saludos

Jose Luis

[Antonio Linares]

Jose Luis,

Que versión de FWH estás usando ?

[Antonio Linares]

Comprueba que tengas esta modificación en la clase TGet:

http://forums.fivetechsoft.com/viewtopic.php?t=12367

[JoseLuis]

Antonio

la 8.11

Saludos

Jose Luis

[Antonio Linares]

Jose Luis,

Usas la clase TGet estandard de FWH ó una modificada por ti ?

[JoseLuis]

Antonio

No la tengo modificada, está según viene, yo lo que hago siempre es crear un directorio para la nueva versión tanto de fwh como de xhb, y redirigir los path hacia las nuevas rutas.

Lo único que recompilo son las librerías externas, en éste caso he recompilado la btnget32.

Con respecto a la modificación de tGet que me indicas, si, veo que la modificación está.


Saludos

Jose Luis

[Daniel Garcia-Gil]

Saludos...

no uses btnget usa el get normal ya tiene la propiedad del btnget

REDEFINE GET oGet VAR uVar ID 100 OF oDlg BITMAP "bitmap" ACTION ( tu_funcion() )

@ 0,0 get oGet Var uVar of oDlg oDlg BITMAP "bitmap" ACTION ( tu_funcion() )

el bitmap puede ser desde recursos o archivo

[JoseLuis]

Anda, pues es verdad......

Muchas gracias

Saludos

Jose Luis