FiveTech Software tech 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

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

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

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.

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 )
 

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 ?

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.

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?

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 }