Controlar propiedad AutoPopDelay de un tooltip

[FranciscoA]

Amigos.
¿Se puede controlar el tiempo que necesitemos mientras se muestra un ToolTip?
¿Como hacerlo?

AutoPopDelay: Controla la cantidad de tiempo que se mostrara el tooltip

Saludos

[karinha]

SI. Modificando window.prg

Mira en window.prg, donde está escrito Rossine. Se tu fwhx for la vérsion FWH16.10 puede usar esta window,prg modificada.

Mira tooltip.prg que és como yo uso.

http://www.4shared.com/zip/Y-xm-jMOba/TOOLTIP.html

Saludos

[karinha]

Después de cambiar window.prg hacer asi:

Mister Navarro podria incorporar al nuevo build de FWHX.

Code: Select all  Expand view

    REDEFINE GET aGet[1]    VAR XCODVEND PICTURE "@K 99" ID 20 OF ODLG       ;
             BITMAP   "BUSCAR"  FONT oFnt        UPDATE                      ;
             COLOR nRGB( 000, 000, 000 ), nRGB( 243, 250, 200 )              ;
             VALID ( CLICK(), ACHA_CODIGO_VENDEDOR( XCODVEND, aGet ) )       ;
             ACTION( CLICK(), ACHA_CODIGO_VENDEDOR( XCODVEND := [**], aGet ) )

    //aGet[1]:Disable()
    aGet[1]:lBtnTransparent := .T.       // transparent button get aGet[1]
    aGet[1]:lAdjustBtn      := .T.       // Button Get Adjust Witdh aGet[1]
    aGet[1]:lDisColors      := .F.       // Deactive disable color
    aGet[1]:nClrTextDis     := CLR_WHITE // Color text disable status
    aGet[1]:nClrPaneDis     := CLR_BLUE  // Color Pane disable status

    aGet[1]:bKeyDown := { |nKey| IF( nKey == VK_F7, Eval( aGet[1]:bAction ), Nil ) }

    //-> By Rossine
    aGet[1]:cToolTip         := OemToAnsi( "Click no BotÆo ao Lado, Para " + ;
                                           "Visualizar o Banco de Dados "  + ;
                                           "dos Operadores, Veja os C¢digos "+;
                                           "<F7>-Mostra." )
    aGet[1]:lToolTipBallon   := .T.
    aGet[1]:nTooltipWidth    := 120  // 100
    aGet[1]:nTooltipTexColor := nRGB( 000, 000, 000 )
    aGet[1]:nTooltipBKColor  := nRGB( 250, 250, 250 )
    aGet[1]:cTooltipTitle    := OemToAnsi( "Operadores do Sistema" )
    aGet[1]:nTooltipIcon     := 1  && 0=NONE / 1=TTI_INFO / 2=TTI_WARNING / 3=TTI_ERROR
    //-> 0=TTDT_AUTOMATIC / 1=TTDT_RESHOW / 2=TTDT_AUTOPOP / 3=TTDT_INITIAL
    aGet[1]:nSetDelayType    := 2
    aGet[1]:nSetDelayTime    := 350000 //-> Velocidade do TOOLTIP-> +- 50 Secs
 


Dudas, pregunte. Saludos.

[cnavarro]

Lo acabo de descargar y lo miraré
Saludos

[karinha]

imagen del tooltip con la classe modificada:



Saludos.

[FranciscoA]

Gracias, Karinha. Lo probaré.
Saludos.

[nageswaragunupudi]

For many years it is already possible to set title, icon and colors of tooltip.

Obj:cToolTip can be assigned with Text or Array or CodeBlock. Codeblock can return either text or array
Advantage of codeblock is that we can change the text,etc displayed according to the context at the time of display of tooltip.

Array Specs:
Obj:cToolTip := { cText, cTitle, nIcon, nClrText, nClrBack }

March 2008
===========
* Enhancement: Tooltips can now have user defined header, icon and colors,
by specifying the tooltip as an array in the format
{ cToolTipText, [cHeader, [nIcon]], [nForeColor], [nBackColor] }.
If the tooltip is specified as a codeblock, it can evaluate to a
character value or an array.

Now we shall consider adding width, delaytype and delaytime

[karinha]

Very well, Mr. Rao. Waiting anxiously. Greetings.

[Sistem]

Idea
option for:
AutoPopDelay infinite,,,, end with click
Obj:cToolTip := { cText, cTitle, nIcon, nClrText, nClrBack, lInfinite }