Page 1 of 1
How to tooltip DcBrowse
Posted: Wed Oct 31, 2012 5:35 pm
by jdsoft
Hello,
How to create a tooltip in a DCBROWSE.
The tooltip should po-up when mousepointer is located on cell, not on header.
I Tryed DCBROWCOL ... TOOLTIP, but that just works for the header.
Suggestions are welcome.
Jack Duijf
Re: How to tooltip DcBrowse
Posted: Wed Oct 31, 2012 6:20 pm
by RDalzell
Code: Select all
DCBROWSECOL DATA {|| HearMst->T_Number } HEADER 'Citation;Number' WIDTH 6 PARENT oBrowse COLOR bColor ;
PRESENTATION {{XBP_PP_COL_HA_COMPOUNDNAME, '9.Helv Bold'} } ;
SORT {|| OrdSetFocus('HEARMX09'), Wiper(GetList, oSeek) } LEFTBUTTON ;
DATATOOLTIP {|| .t. } TIPBLOCK {|| CitationStatus() }
*---
STATIC FUNCTION CitationStatus()
LOCAL cStatus
cStatus := Nil
nSelect := SELECT()
IF !Empty(HearMst->XCode)
SELECT CodeMst
SET ORDER TO 1
SEEK "L2" + HearMst->XCode
IF Eof()
cStatus := AllTrim(HearMst->XCode)
ELSE
cStatus := AllTrim(CodeMst->CmDesc)
ENDIF
ELSE
cStatus := "Open Citation"
ENDIF
cStatus := cStatus + ";" + ;
"Fine : " + Ltrim(Transform(HearMst->Fine,"99,999.99")) + ";" + ;
"Payment : " + Ltrim(Transform(HearMst->Paid,"99,999.99")) + ";" + ;
"Balance : " + Ltrim(Transform(HearMst->Fine - HearMst->Paid,"99,999.99"))
SELECT (nSelect)
RETURN cStatus
Re: How to tooltip DcBrowse
Posted: Thu Nov 01, 2012 1:02 am
by jdsoft
Hello,
Thank you for the tip.
I read the help a few times, but i missed this option.
Regards,
Jack Duijf