Mr. Nages : (using DBFs)
It works, but partially .
Only works well on the same line .
If we go down or go up to any line in the same column , does not work.
To work must select a different column and then stand on the desired cell.
Thanks.
It works, but partially .
Only works well on the same line .
If we go down or go up to any line in the same column , does not work.
To work must select a different column and then stand on the desired cell.
Thanks.
oCol = oBrw:AddCol()
oCol:bEditValue = { || (cAlias)->NOMBRE }
oCol:cHeader = "DESCRIPCION DE LA CUENTA"
oCol:nEditType = 0 //no editable
oCol:bToolTip := { | oBrw,r,c,f,oMouseCol,nMouseRow| MyColToolTip( oBrw,r,c,f,oMouseCol,nMouseRow ) }
//----------------------------------------------------------
Function MyColToolTip( oBrw, r, c, f, oMouseCol, nMouseRow )
local uBm, uVal
// for older versions
nMouseRow := oBrw:MouseRowPos( r )
oMouseCol := oBrw:MouseColPos( c )
oMouseCol := oBrw:ColAtPos( oMouseCol )
//
if nMouseRow != oBrw:nRowSel
uBm := oBrw:BookMark
Eval( oBrw:bSkip, nMouseRow - oBrw:nRowSel ) //here (variable nMouseRow do not exists)
uVal := oMouseCol:Value
oBrw:BookMark := uBm
else
uVal := oMouseCol:Value
endif
return cValToChar( uVal )Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
