Page 1 of 1
Imagen en ToolTip
Posted: Tue Feb 04, 2025 2:26 pm
by Willi Quintana
Amigos buenos dias:
NO puedo hacer que una imagen aparezca en el ToolTip, uso esa sintaxis_ al parecer no puede leer la imagen, en algunos ejemplo vi que en ves del nombre de la imagen usan un numero,,, agradezco vuestra ayuda...
Willi
ctexto := "Muestra Imagen en el ToolTip"
ctitulo := "Imagen"
cimagen := "QR_ICO" // en recursos (RC), hay un icono con el nombre "QR_ICO"
oCodQR:cToolTip := { ctexto, ctitulo, cimagen, , , , ,}
Parametros:
<ctexto> // texto o mensaje principal
<ctitulo> // titulo
<cImagen> // imagen
<nClrFore>
<nClrBack>
<nWidth>
<nDelayTime>
<nDelayType>
Re: Imagen en ToolTip
Posted: Tue Feb 04, 2025 3:15 pm
by karinha
Que yo sepa solo puede asi: 1,2,3
Code: Select all | Expand
aGet[ 1 ]:cTooltip :={ "Nota Fiscal Inicial Para Enviar o(s) Email(s).", ; // 1,2,3
"Nota Fiscal Inicial Para Enviar o(s) Email(s)..", 1, CLR_WHITE, CLR_HBLUE }
Regards, saludos.
Re: Imagen en ToolTip
Posted: Tue Feb 04, 2025 3:47 pm
by Willi Quintana
Gracias por responder.. pero si te fijas en la fuente (windows.prg), el codigo se muestra asi, pero no funciona la lectura de la imagen
Code: Select all | Expand
...
if ValType( cToolTip ) == 'A'
ASize( cToolTip, 8 ) //5 )
cText = cValToChar( cToolTip[ 1 ] )
cTitle = cToolTip[ 2 ]
hIcon = nil
if ! Empty( cTitle )
cIcon = cToolTip[ 3 ]
if ValType( cIcon ) == 'C'
if Empty( cFileExt( cIcon ) )
hIcon := LoadIcon( GetResources(), cIcon ) // <--------- aqui debe cargar una imagen desde recursos
elseif Upper( cFileExt( cIcon ) ) == "ICO" .and. File( cIcon )
hIcon := ExtractIcon( cIcon )
endif
elseif ValType( cIcon ) == 'N'
hIcon := cIcon
cIcon := nil
else
cIcon := nil
endif
if Empty( hIcon )
hIcon := TTI_INFO
cIcon := nil
endif
endif
nClrFore = cToolTip[ 4 ]
nClrBack = cToolTip[ 5 ]
nWidth = cToolTip[ 6 ]
nDelayTime = cToolTip [ 7 ]
nDelayType = cToolTip [ 8 ]
else
cText = cValToChar( cToolTip )
endif
...
Re: Imagen en ToolTip
Posted: Tue Feb 04, 2025 11:21 pm
by nageswaragunupudi
It should work.
Working for me here
This is my sample.
Code: Select all | Expand
function ToolTipIcon()
local oDlg, oBtn
SetBalloon( .t. )
DEFINE DIALOG oDlg SIZE 300,100 PIXEL TRUEPIXEL ;
TITLE "TOOLTIP ICON"
@ 20,50 BTNBMP oBtn PROMPT "TEST" SIZE 100,60 PIXEL OF oDlg ;
2007 CENTER ;
TOOLTIP { "This is the text", "TOOLTIP", "FACE" }
ACTIVATE DIALOG oDlg CENTERED
return nil
RC file:
Please check if everything is ok with your rc file and and icon file.
Re: Imagen en ToolTip
Posted: Wed Feb 05, 2025 11:46 am
by karinha
Master Nages, via RESOURCE, és posible?
Gracias, tks.
Regards, saludos.