Seria possível adicionar um TOOLTIP em um BOTÃO de uma coluna do XBROWSE?
oBrwb:aCols[1 ]:nDataStrAlign := AL_RIGHT
oBrwb:aCols[1 ]:nHeadStrAlign := AL_CENTER
oBrwb:aCols[1 ]:cHeader := 'Venda'
oBrwb:aCols[1 ]:cBtnCaption := '$'
oBrwb:aCols[1 ]:nEditType := EDIT_GET_BUTTON
oBrwb:aCols[1 ]:bEditBlock := {|| oBrwb:SelectCol(1), NIL }
//ISSO NÃO FUNCIONA 
oBrwb:aCols[1 ]:oBtnList:cToolTip := 'Teste'
#include "FiveWin.ch"
#include "xbrowse.ch"
function TestTip()
local oDlg, oFont, oBrw
USE CUSTOMER
DEFINE DIALOG oDlg SIZE 600, 500 PIXEL
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
DATASOURCE "CUSTOMER" AUTOCOLS ;
CELL LINES NOBORDER
oBrw:aCols[1]:cTooltip := "Texto a mostrar 1"
oBrw:aCols[2]:cTooltip := "Texto a mostrar 2"
oBrw:aCols[3]:cTooltip := "Texto a mostrar 3"
// AEval( oBrw:aCols, { |o| o:cToolTip := { 'Column :' + CRLF + o:cHeader, 'ToolTip' } } )
oBrw:bToolTips := { | oBrw,r,c,f,oMouseCol,nMouseRow| MyColToolTip( oBrw,r,c,f,oMouseCol,nMouseRow ) }
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED
return nil
//----------------------------------------------------------
Function MyColToolTip( oBrw, r, c, f, oMouseCol, nMouseRow )
local uBm, uVal
if nMouseRow != oBrw:nRowSel
uBm := oBrw:BookMark
Eval( oBrw:bSkip, nMouseRow - oBrw:nRowSel )
uVal := oMouseCol:Value
oBrw:BookMark := uBm
else
uVal := oMouseCol:Value
endif
return cValToChar( uVal )Karinha,
gostaria do TOOLTIP apenas no botão da coluna, não na coluna entende.
obrigado de qualquer forma
oBrw:bToolTips := { | oBrw,r,c,f,oMouseCol,nMouseRow| MyColToolTip( oBrw,r,c,f,oMouseCol,nMouseRow ) }oBrw:bCellToolTips := { |o| cValToChar( o:Value ) }