Imagen en ToolTip

[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>

[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.

[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
...

[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:

Code: Select all | Expand

FACE ICON "..\icons\face.ico"

Please check if everything is ok with your rc file and and icon file.

[karinha]

Master Nages, via RESOURCE, és posible?

Gracias, tks.

Regards, saludos.