Tooltip en quickaccess

[mariordz]

Buenas tardes ya busque en el foro y no encontré respuesta a esta duda, implementé la barra "Quickaccess", pero por alguna causa no me despliega el tooltip de la misma, como los botones que muestra son pequeños me gustaría que apareciera el tooltip para saber a que acción se refiere cada uno de ellos.

Alguna idea o método para implementarlo?

Code: Select all  Expand view

add button oBtn1qa QUICKACCESS oQuicka bitmap "imagen"action funcion() tooltip "Texto que se muestra al poner el mouse sobre una opción de la barra QUICKACCESS"

[karinha]

Intenta asi:

Code: Select all  Expand view

    obtn:cToolTip := "May tooltip"
 

Saludos.

[mariordz]

Joao, mil gracias, funciono bien, expongo mi solución por si a alguien más le es útil.

Como mi barra de quickaccess se genera dinamicamente use macro sustitución para definir cada uno de los botones, de otra manera le asigaría el mismo tooltip a todos los botones, lo hice asi:

Code: Select all  Expand view

define quickaccess oQuicka of oRBar LEFTMARGIN 38 NOGRAD
       
        cCadsql1:="select funcion,prompt,bitmap,TOOLTIP from menu_options where owner='&firma' order by prompt"

        oRs1 := TOleAuto():New( "ADODB.Recordset" )
        oRs1:CursorType := 1 // opendkeyset
        oRs1:CursorLocation := 3 // local cache
        oRs1:LockType := 3 // lockoportunistic
   
        TRY
            cursorwait()
            oRS1:Open( cCadSql1,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOGA+';User Id='+xUSERID+';Password='+xPASSWORD )
               
            CATCH oErr
            MsgInfo( "Error al consultar items para menú QuickAccess dínamico ")
            RETURN(.F.)
        END TRY
       
        oRs1nr:=oRs1:RecordCount()

        if oRs1nr>0
            oRs1:MoveFirst()
            for unreg:=1 to oRs1nr
                cButt_tt:="oBtnqa"+alltrim(Str(unreg))
                cFunc:=oRs1:Fields(0):Value()
                cProm:=oRs1:Fields(3):Value()
                cBitm:=oRs1:Fields(2):Value()
                add button &cButt_tt QUICKACCESS oQuicka bitmap cBitm action &cFunc
                &cButt_tt:cTooltip := cProm
                oRs1:MoveNext()
            next
            add button oBtnexit QUICKACCESS oQuicka bitmap "exit" action salsys() tooltip "Finalizar y salir del sistema" //En esta línea aunque tengo la clausula tooltip no la respeta
            oBtnexit:CTooltip := "Finalizar y salir del sistema"
        endif