FiveTech Software tech support forums

Code: Select all  Expand view

      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()

Hola
Le puedo comentar que cuando los aporté funcionaban. No he sido capaz de hacerlos funcionar con las últimas versiones de Fivewin. Algo ha debido de cambiar que no consigo que funcionen. Siento la molestia.
Un saludo