FiveTech Support Forums

Hi, all !

Is it possible to show tooltip when you hover the mouse over the header selector column ?

Hi, no se si te refieres a esto...saludos...

oBrw:aCols[n]:cToolTip := "Pulse Boton para Detalles"

I asked about the record selector column

Natter wrote:I asked about the record selector column

I do not understand and here a click on the button Iin ribbonbar and and tooltip on the row selector column in xbrowse ?

Sacado desde el foro en Español.

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

Very good Armando. Many thanks.

Mr Natter

This is not possible now.
Now that you raised the issue, we shall keep it in our TODO list.

Mr Armando and Mr Karinha

Now oCol:bToolTip is superceded by oCol:bCellToolTip. We recommend using this and stop using bToolTip.

When we use bCellToolTip, we do not need to create another function.

Simply, oCol:bCellToolTip := { || oCol:Value }

I do not understand and here a click on the button Iin ribbonbar and and tooltip on the row selector column in xbrowse ?

I tried to test the code:

#include "FiveWin.ch"

function Test()

   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:bToolTips   := ;
         { | oBrw,r,c,f,oMouseCol,nMouseRow| MojColToolTip( oBrw,r,c,f,oMouseCol,nMouseRow ) }

   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED

return nil

//----------------------------------------------------------
Function MojColToolTip( 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 )
 
return nil

Error:

Error BASE/1082 Argument error: -
Parameter :
[ 1] = U
[ 2] = N 1

Stack-List

called by MOJCOLTOOLTIP(31)
called by (b)TEST(16)
called by TXBROWSE:MOUSEMOVE(3554)
called by TWINDOW:HANDLEEVENT(0)
called by TCONTROL:HANDLEEVENT(1724)
called by TXBROWSE:HANDLEEVENT(11734)
called by _FWH(3177)
called by DIALOGBOXINDIRECT(0)
called by TDIALOG:ACTIVATE(270)
called by TEST(20)
called by (b)BUILDMENU(2095)
called by TMENU:COMMAND(461)
called by TWINDOW:COMMAND(1037)
called by TMDIFRAME:COMMAND(247)
called by TMDIFRAME:HANDLEEVENT(0)
called by _FWH(3177)
called by WINRUN(0)
called by TMDIFRAME:ACTIVATE(990)
called by MAIN(450)
CPU type: Intel(R) Core(TM) i5-8400 CPU @ 2.80GHz 0 Mhz
Hardware memory: 16326 MB ( available: 10102 MB )

I would say nMouseRow = 0?