Alguna idea o método para implementarlo?
- Code: Select all Expand view RUN
- 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"
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"
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 111 guests