FiveTech Software tech support forums

Code: Select all

// This sample shows how to easily implement 'C5 Tool-tips' in FiveWin!

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   local oBar, oBtn, oGet1, oGet2
   local cVar1 := Space( 15 )
   local cVar2 := Space( 25 )
   SetResDebug( .T. )

   DEFINE WINDOW oWnd TITLE "ToolTips in FiveWin!"

   DEFINE BUTTONBAR oBar 3D SIZE 33, 33 OF oWnd

   DEFINE BUTTON OF oBar ACTION MsgInfo( "One" )   TOOLTIP "This is a long tooltip"
   DEFINE BUTTON OF oBar ACTION MsgInfo( "Two" )   TOOLTIP "Two"
   DEFINE BUTTON OF oBar ACTION MsgInfo( "Three" ) TOOLTIP "Three"
   DEFINE BUTTON OF oBar ACTION MsgInfo( "Four" )  TOOLTIP "Four"

   @ 4,1 GET oGet1 VAR cVar1 OF oWnd PICTURE '@!' 
   oGet1:cToolTip = { || HazC5ToolTip( oGet1 ) } //"Here it is!"

   @ 4,60 GET oGet2 VAR cVar2 OF oWnd PICTURE '@!' 
   oGet2:cToolTip = { || HazC5ToolTip( oGet2 ) } //"Here it is!"

   @ 20, 8 BUTTON oBtn PROMPT "Where is my tooltip?" SIZE 180, 28 OF oWnd ;
      ACTION MsgInfo( "Oh! Thanks!" )

   // Manipulate directly the cToolTip DATA of other controls than ButtonBitmaps
   oBtn:cToolTip = { || HazC5ToolTip( oBtn ) } //"Here it is!"

   SET MESSAGE OF oWnd ;
     TO "FiveWin: CA-Clipper, xBase && OOPS development power" CENTER

   ACTIVATE WINDOW oWnd MAXIMIZED

   if File( "checkres.txt" )
      FErase( "checkres.txt" )
   endif
   CheckRes()

return nil

//----------------------------------------------------------------------------//

Function HazC5ToolTip( oCtrl )
Local oTip
//New( nTop, nLeft, nWidth, nHeight, oWnd, lDisenio, nClrPane, nClrPane2, nClrText, nWRadio, nHRadio ) CLASS TC5ToolTip
oTip := TC5ToolTip():New( 0,0 , 200, 150, oWnd, , CLR_HGRAY, CLR_HGRAY, CLR_BLUE, 0 , 0 )

oTip:nTimer                    := -1 //15000
oTip:lLineHeader           := .T.
oTip:cHeader                 := "Header"
oTip:cBmpHeader         := "..\bitmaps\16edit.bmp"

oTip:cHeader2                := "Header 2"

oTip:lLineFoot               := .T.
oTip:cFoot                     := "Footer"
oTip:cBmpFoot             := "..\bitmaps\16object.bmp"

oTip:lSplitHdr                := .T.
oTip:lLeft                       := .T.
oTip:cBmpLeft               := "..\bitmaps\16code.bmp"

oTip:lRightAlignBody  := .T.
oTip:cBody                   := "En un lugar de la Mancha de cuyo nombre no quiero acordarme"  //Memoread( "tooltip.prg") 

oTip:lBtnClose              := .F.   //.T.
oTip:lBorder                 := .F.

//oTip:lBalloon               := .T.

oCtrl:oToolTip      := oTip
Return oTip

//----------------------------------------------------------------------------//
 

Code: Select all

//---------------------------------------------------------------------------//

METHOD MouseMove( nRow, nCol, nKeyFlags ) CLASS TGet

   if ::lDrag
      return ::Super:MouseMove( nRow, nCol, nKeyFlags )
   else
      ::oWnd:SetMsg( ::cMsg )        // Many thanks to HMP
      if ::oCursor != nil
         SetCursor( ::oCursor:hCursor )
      else
         CursorIBeam()
      endif
      ::CheckToolTip( nRow, nCol )                           // Modify

      if ::bMMoved != nil
         return Eval( ::bMMoved, nRow, nCol, nKeyFlags )
      endif
      if ::oBtn != nil
         ::oBtn:Refresh()
      endif
      TrackMouseEvent( ::hWnd, 2 ) //TME_LEAVE )     // New
   endif

return nil      // We want standard Get behavior !!!

//---------------------------------------------------------------------------//
 

Code: Select all

   oGet:aTooltip := { cMensaje ,; // MENSAJE
                             "SISINGE - " + oDatos:cTitSis ,; // TITULO-CABEZERA(loguito)
                             nLogo ,; // IMAGEN PARA TIPO DE MENSAJE(1-informacion/2-alerta/3-stop)
                            CLR_WHITE, CLR_HBLUE } // COLOR DEL TITULO-CABEZERA(loguito)
 

Code: Select all

PROCEDURE mi_tooltip( oGet, cMensaje, nLogo )

   DEFAULT cMensaje := "Mensaje de Ayuda"
   DEFAULT nLogo := 1

   cMensaje := CRLF + cMensaje

   oGet:cTooltip := { cMensaje ,; // MENSAJE
                      "SISINGE - " + oDatos:cTitSis ,; // TITULO-CABEZERA(loguito)
                      nLogo ,; // IMAGEN PARA TIPO DE MENSAJE(1-informacion/2-alerta/3-stop)
                      CLR_WHITE, CLR_HBLUE } // COLOR DEL TITULO-CABEZERA(loguito)
RETURN
 

Code: Select all

   mi_tooltip( aGet[13], "Fecha de Ingreso Final" )
   mi_tooltip( aBtn[1], "Pulse para Generar el Listado" )
 

Code: Select all

   oTip:cBmpHeader         := "..\bitmaps\16edit.bmp"