FiveTech Software tech support forums

Code: Select all | Expand

      oToolTip := TC5ToolTip():New( 0, 0, 1, 5, Self, .f., CLR_WHITE, RGB(228,229,240), RGB(100,100,100), 2, 2 )

      if ::oAbsOver:cTHeader != nil
         oToolTip:cHeader := ::oAbsOver:cTHeader
      else
         oToolTip:cHeader := ""
      endif

      if ::oAbsOver:cTooltip != nil
         oToolTip:cBody   := ::oAbsOver:cToolTip //::cToolTipEx
      else
         oToolTip:cBody   := ""
      endif
      DEFAULT ::cMsg := ""
      //if empty( ::cFoot )
      //   if At( "Alt", ::cMsg ) != 0
      //      oToolTip:cFoot := ::cMsg
      //   endif
      //else
      //   oToolTip:cFoot := ::cFoot
      //endif

      //if empty( ::cToolTipEx )
      //   oToolTip:cHeader := ""
      //   oToolTip:cBody := cToolTip
      //endif

      if ::oAbsOver:cTBmpLeft != nil
         oToolTip:cBmpLeft := ::oAbsOver:cTBmpLeft
      endif
      //oToolTip:cBmpFoot := ::cBmpFoot

      //if ::bToolTip != nil
      //   eval( ::bTooltip, self, oTooltip )
      //endif

      //oToolTip:DatosExamp( nRandom(8)+1 )

      a := oTooltip:GetSize()

      aPos = { nRow, nCol }
      aPos := ClientToScreen( ::hWnd, aPos )

      if aPos[2]+a[1] > GetSysMetrics(1)
         aPos[2] := GetSysMetrics(0) - a[1] - 20
      endif

      oToolTip:Move( aPos[1], aPos[2],a[1],a[2], .f. )
      oToolTip:Default()
      oToolTip:Show()