Mostrar JPG desde RECURSO con BTNBMP

Mostrar JPG desde RECURSO con BTNBMP

Postby acuellar » Thu Apr 16, 2020 6:20 pm

Estimados,

Necesito mostrar imágenes JPG cuando el Mouse pasa sobre el botón. Los BMP los muestra sin problema.
Code: Select all  Expand view

   REDEFINE BTNBMP oBtn ID 100 OF oDlgMnu RESOURCE "BOTON" ACTION Funcion()
   oBtn:nClrText:={ |lMOver| If( lMover, (oIMG:SetBmp( "IMAGENJPG"),CLR_HBLUE), CLR_BLACK ) }
 


He intentado con oIMG:LoadBmp() igual no muestra.

Gracias por la ayuda
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1629
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: Mostrar JPG desde RECURSO con BTNBMP

Postby karinha » Thu Apr 16, 2020 8:55 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7603
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Mostrar JPG desde RECURSO con BTNBMP

Postby cnavarro » Thu Apr 16, 2020 9:07 pm

Has probado con el método
:SetImages( i1, i2, i3, i4 )

Por otra parte creo que el metodo al que haces referencia se llama LoadBitmaps
Pero, ojo, estaba pensando que mientras el ratón esté encima, lanzará el evento continuamente, no?. Si es así deberías utilizar una variable que avise que ya lo has cambiado, y que vuelva a inicializarla al salir del botón.
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6520
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Mostrar JPG desde RECURSO con BTNBMP

Postby acuellar » Fri Apr 17, 2020 12:05 pm

Muchas gracias estimados

Cambié:
Code: Select all  Expand view

ésto
@ 125,490 IMAGE oTab OF oWnd PIXEL SIZE 126,126 NOBORDER ADJUST
Por
@ 125,490 BITMAP oTab OF oWnd PIXEL SIZE 126,126 NOBORDER ADJUST
 


Y funcionó.
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1629
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 18 guests