Re: Tooltip of the selector column
Posted: Sun Apr 07, 2024 11:37 am
I tried to test the code:
[/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?
Code: Select all | Expand
[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?