How to tooltip DcBrowse

[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

[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

[jdsoft]

Hello,

Thank you for the tip.
I read the help a few times, but i missed this option.

Regards,
Jack Duijf