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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 95 guests