FiveTech Software tech support forums

Posted: **Wed Nov 01, 2017 4:53 pm**

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 :cry:

oBrwb:aCols[1 ]:oBtnList:cToolTip := 'Teste'

Posted: **Wed Nov 01, 2017 6:36 pm**

Veja se ajuda:

Code: Select all Expand view: #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 )

Posted: **Wed Nov 01, 2017 10:41 pm**

Karinha,

gostaria do TOOLTIP apenas no botão da coluna, não na coluna entende.

obrigado de qualquer forma

Posted: **Sun Nov 05, 2017 5:32 pm**

viewtopic.php?f=6&t=34818

Posted: **Mon Nov 06, 2017 7:16 pm**

This code

Code: Select all Expand view: oBrw:bToolTips := { | oBrw,r,c,f,oMouseCol,nMouseRow| MyColToolTip( oBrw,r,c,f,oMouseCol,nMouseRow ) }

can be replaced with:

Code: Select all Expand view: oBrw:bCellToolTips := { |o| cValToChar( o:Value ) }

and you can remove the function MyColToolTip.

FiveTech Software tech support forums

xBrowse - ToolTip em BOTÃO

xBrowse - ToolTip em BOTÃO

Re: xBrowse - ToolTip em BOTÃO

Re: xBrowse - ToolTip em BOTÃO

Re: xBrowse - ToolTip em BOTÃO

Re: xBrowse - ToolTip em BOTÃO