FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Btnget, ¿Como quito esto?
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Btnget, ¿Como quito esto?
Posted: Tue Dec 09, 2008 05:33 PM
Hola amigos

Tengo éste código:
    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
--------------------------

Saludos



Jose Luis
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Btnget, ¿Como quito esto?
Posted: Tue Dec 09, 2008 07:13 PM

Jose Luis,

Que versión de FWH estás usando ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Btnget, ¿Como quito esto?
Posted: Tue Dec 09, 2008 07:16 PM

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

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Btnget, ¿Como quito esto?
Posted: Tue Dec 09, 2008 07:17 PM

Antonio

la 8.11

Saludos

Jose Luis

--------------------------

Saludos



Jose Luis
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Btnget, ¿Como quito esto?
Posted: Tue Dec 09, 2008 07:20 PM

Jose Luis,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Btnget, ¿Como quito esto?
Posted: Tue Dec 09, 2008 07:25 PM

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

--------------------------

Saludos



Jose Luis
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Btnget, ¿Como quito esto?
Posted: Tue Dec 09, 2008 09:29 PM

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

Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Btnget, ¿Como quito esto?
Posted: Tue Dec 09, 2008 09:56 PM

Anda, pues es verdad......

Muchas gracias

Saludos

Jose Luis

--------------------------

Saludos



Jose Luis

Continue the discussion