ejemplo c5Tooltip

[cnavarro]

Cristobal,

Pero ese botón de cierre no parece estandard. No me suena haberlo visto nunca...

Antonio, creia que tu proposito era hacer un control que se diferenciase del standard

Silvio

I'm thinking the button close is no need !!!

Yo creo que el motivo de que Antonio piense poner el boton de cierre es porque el ToolTip se controla con ::nTimer y no por la posicion del raton.

I think the reason that Antonio intends to place the button closure is because the ToolTip :: nTimer is controlled not by the position of the mouse.

[cuatecatl82]

Maestro Antonio:

¡¡ Excelente trabajo !! Me gusta como se ven:

Me surgen unas ideas complementarias, opino que sea opcional con la variable lBtnClose mostrar la "X" para cerrar el toolfip, caso contrario se cerraria con el timer tal y como propone Silvio para poderlo usar como Tootips de notificaciones.

Y la otra que pueda seleccionarse con nType el tipo de tooltip a usar en los programas, (1) Los Normales de la Api de Windows, (2) los BallonTooltip y (3) los nuevos C5Tooltip..

Solo como sugerencia...

[elvira]

Antonio,

Y esos cambios en las funciones de Paco, funcionan con Vistamnu?.

Igual se ha roto este control

[Silvio.Falconi]

Elvira,
on VistaMenu there is a method call c5 tooltip class
SetTooltip( cTooltip, cBmp, cHeader, cBmpHeader, cFoot, cBmpFoot, cBtnClose )


sample from prueba1.prg
oItem:SetTooltip( "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.","..\..\images2\phone.bmp","Seguridad")

[elvira]

Silvio,

Me refiero a que si la propia clase con los cambios de las funciones de la librería de Paco seguirá funcionando correctamente!!!.

[Antonio Linares]

Elvira,

Antonio,

Y esos cambios en las funciones de Paco, funcionan con Vistamnu?.

Igual se ha roto este control

Probado y funcionando. Gracias por la idea de asegurar probandolo

[Antonio Linares]

Aclaremos ciertos conceptos respecto a los tooltips:

1. Los que FWH usa por defecto son los estandard de Windows. Con una cadena los especificamos, ejemplo: TOOLTIP "Información"

2. Cuando se especifica un array (ó un codeblock que devuelve un array) en vez de una cadena para el tooltip, se pueden especificar estos parámetros: { cToolTipText, [cHeader, [nIcon]], [nForeColor], [nBackColor] }

3. La evolución lógica de esto es usar un objeto, con lo que podemos configurar super tooltips con todos los efectos que se nos vayan ocurriendo y que los hagan llamativos. Como punto de partida usamos la Clase TC5Tooltip que iremos ampliando y mejorando. Gracias a Paco que nos ha motivado en investigar esta línea y por su valioso código.

Al usar objetos, no tiene sentido el crear y destruir un objeto una y otra vez, porque esto es más lento que mantener un objeto y reusarlo en la medida de lo posible. De aqui que necesitamos una DATA oToolTip en donde se guarda este objeto super tooltip y que se reusa cada vez que ha de ser mostrado. El tooltip tiene una data lShowAgain que al ser .T. requiere de que el tooltip sea mostrado la próxima vez (por ejemplo, al salir de la ventana)

[Antonio Linares]

La siguiente pregunta es: Si estos super tooltips pueden ser la evolución de los tooltips, los comandos de FiveWin que usan TOOLTIP debieran aceptar un objeto super tooltip como parámetro, en vez de una cadena. Por ejemplo:

@ ..., ... GET cPrueba ... TOOLTIP oToolTipGet1

y puesto que ese objeto tooltip ha de ser creado previamente y almacenado en una DATA, ¿ usamos una nueva DATA oToolTip ó usamos la misma DATA cToolTip pero guardando ahi el objeto ?

[Ariel]

Antonio,
creo que lo más claro seria usar un objeto oTooltip.
Salu2, Ariel.

[elvira]

Antonio,

Muy agradecida, no te olvides de probarlo e incluirlo en 64 bits porfa )

[Antonio Linares]

Elvira,

Probado y funcionando bien en 64 bits, gracias

[cuatecatl82]

Maestro Antonio:

Algún avance para los mortales..?

[Antonio Linares]

Victor,

Ya está incluido en FWH 13.08 que acabamos de publicar. Desafortunadamente hay cambios a nivel interno que precisan de una nueva libreria fivehc.lib, ya que ahora siempre se procesa WM_MOUSELEAVE.

No hay problema en publicar aqui los cambios que hay que hacer en window.prg, pero sin esos cambios en FiveHC.lib no funciona, salvo que se modifique HandleEvent() desde nivel PRG.

[cuatecatl82]

D´OOH!..

Por lo pronto me animo por los cambios en window.prg..

Saludos y gracias..

[Antonio Linares]

#define TME_LEAVE 2

DATA bResized, bLDblClick, bWhen, bValid, bKeyChar, bMLeave, bMMoved

DATA oToolTip

METHOD CheckToolTip( nRow, nCol )

METHOD IsVisible() INLINE IsWindowVisible( ::hWnd )

METHOD MouseLeave( nRow, nCol, nKeyFlags )

Code: Select all  Expand view

+METHOD MouseLeave( nRow, nCol, nKeyFlags ) CLASS TWindow
+
+   if ::oToolTip != nil
+      if ::oToolTip:IsVisible()
+         ::oToolTip:Hide()
+      endif
+      ::oToolTip:lShowAgain = .T.
+   endif      
+
+   if ! Empty( ::bMLeave )
+      Eval( ::bMLeave, nRow, nCol, nKeyFlags, Self )
+   endif
+
+return nil

Code: Select all  Expand view

METHOD MouseMove( nRow, nCol, nKeyFlags ) CLASS TWindow
 
    if ::oCursor != nil
 
    ::SetMsg( ::cMsg )
 
-   ::CheckToolTip()
+   ::CheckToolTip( nRow, nCol )
 
    if ::OnMouseMove != nil
       if ValType( ::OnMouseMove ) == "B"
       return Eval( ::bMMoved, nRow, nCol, nKeyFlags )
    endif
 
+   TrackMouseEvent( ::hWnd, TME_LEAVE )
+  
 return 0

Code: Select all  Expand view

+METHOD CheckToolTip( nRow, nCol ) CLASS TWindow
+
+   local aPoint
+
+   if ::oToolTip != nil
+      if ::oToolTip:nTop != ::nTop + nRow + 10 .and. ;
+         ::oToolTip:nLeft != ::nLeft + nCol + 10
+         aPoint = { ::nTop + nRow + 10, ::nLeft + nCol + 10 }
+         ClientToScreen( ::hWnd, aPoint )
+         ::oToolTip:SetPos( aPoint[ 1 ], aPoint[ 2 ] )
+      endif  
+      if ( ! ::oToolTip:IsVisible() ) .and. ::oToolTip:lShowAgain
+         ::oToolTip:Show()
+         ::oToolTip:lShowAgain = .F.
+      endif
+      return nil
+   endif  

   ...