xBrowse - ToolTip em BOTÃO

xBrowse - ToolTip em BOTÃO

Postby MGA » 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'
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: xBrowse - ToolTip em BOTÃO

Postby karinha » 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 )
 
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7153
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: xBrowse - ToolTip em BOTÃO

Postby MGA » 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
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: xBrowse - ToolTip em BOTÃO

Postby MGA » Sun Nov 05, 2017 5:32 pm

ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: xBrowse - ToolTip em BOTÃO

Postby nageswaragunupudi » 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.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10206
Joined: Sun Nov 19, 2006 5:22 am
Location: India


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 4 guests