topic-45379

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Imagen en ToolTip
Posted: Tue Feb 04, 2025 02:26 PM

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

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Imagen en ToolTip
Posted: Tue Feb 04, 2025 03:15 PM

Que yo sepa solo puede asi: 1,2,3

Code: Select all Collapse

   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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: Imagen en ToolTip
Posted: Tue Feb 04, 2025 03:47 PM

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 Collapse

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

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Imagen en ToolTip
Posted: Tue Feb 04, 2025 11:21 PM

It should work.
Working for me here
This is my sample.

Code: Select all Collapse

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 Collapse

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

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

Regards

G. N. Rao.

Hyderabad, India

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Imagen en ToolTip
Posted: Wed Feb 05, 2025 11:46 AM

Master Nages, via RESOURCE, és posible?

Gracias, tks.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion