Tooltip of the selector column

[Natter]

Hi, all !

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

[joseluisysturiz]

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

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

[Natter]

I asked about the record selector column

[joseluisysturiz]

I asked about the record selector column

Sorry, law fast and I do not notice it was especially in that column, there I have no idea, ahber if Mr. NAO or someone else has an answer, thank you...

Google translator

[marzio]

see the link below for a 'help' button to click (the cursor changes shape), then a click on a browse column open the contestual help.

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=33685&p=198919&hilit=marzio#p199584

[Natter]

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

[armando.lagunas]

Sacado desde el foro en Español.

Code: Select all  Expand view

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 )
 

[karinha]

Very good Armando. Many thanks.

[nageswaragunupudi]

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 }

[marzio]

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

this function is an alternative to the use of 'tooltips', it requires 2 click:
the first one on the help button on ribbonbar (the cursor changes shape),
the second click on the column where is required help, a windows with help is opened.

[mtajkov]

I tried to test the code:

Code: Select all  Expand view

[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   [/code]

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?

[nageswaragunupudi]

Instead of

Code: Select all  Expand view

oBrw:bToolTips   := ;
         { | oBrw,r,c,f,oMouseCol,nMouseRow| MojColToolTip( oBrw,r,c,f,oMouseCol,nMouseRow ) }

can you please try

Code: Select all  Expand view

oBrw:bCellToolTips := { |o| o:Value }