Page 1 of 1
Tooltip en quickaccess
Posted: Mon May 20, 2019 11:00 pm
by 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
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"
Re: Tooltip en quickaccess
Posted: Tue May 21, 2019 8:54 pm
by karinha
Re: Tooltip en quickaccess (SOLUCIONADO)
Posted: Tue May 21, 2019 9:34 pm
by 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
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