topic-37198

Board index FiveWin para Harbour/xHarbour Tooltip en quickaccess

Posts: 131

Joined: Tue Dec 26, 2006 04:50 PM

Tooltip en quickaccess
Posted: Mon May 20, 2019 11:00 PM

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 (fw): Select all Collapse

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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Tooltip en quickaccess
Posted: Tue May 21, 2019 08:54 PM

Intenta asi:

Code (fw): Select all Collapse

    obtn:cToolTip := "May tooltip"

Saludos.

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

mariordz

Posts: 131

Joined: Tue Dec 26, 2006 04:50 PM

Re: Tooltip en quickaccess (SOLUCIONADO)
Posted: Tue May 21, 2019 09:34 PM

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 (fw): Select all Collapse

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

FiveTech Support Forums

Continue the discussion