// This sample shows how to easily implement 'tool-tips'
// in FiveWin!
/*
File Name  : TOOLTIP.PRG

Description: This sample shows how to easily implement
	     'tool-tips' in FiveWin!

Modified   :
  10/10/95 : Code formatted, Grokked & verified by QA Team
	     Tested by QA under FiveWin 1.9
*/

#INCLUDE "fwin/FiveWin.ch"

STATIC oWnd

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

FUNCTION Main()
   LOCAL oBar, oBtn
   LOCAL cIniFile := GetWinDir()+"\FiveWin.ini"

//   IF GetPvProfString("FiveWin","ThreeD","1",cIniFile ) == "1"
//      SET 3DLOOK ON
//   ENDIF

   DEFINE WINDOW oWnd                                           ;
      TITLE "ToolTips in FiveWin!"

   DEFINE BUTTONBAR oBar 3D SIZE 33, 33 OF oWnd

   DEFINE BUTTON OF oBar  FILE ".\bitmaps\Exit.bmp"            ;
      TOOLTIP "Exit"                                            ;
      ACTION oWnd:End()

   DEFINE BUTTON OF oBar  FILE ".\bitmaps\Plus.bmp"            ;
      TOOLTIP "Adding tooltips is..."                           ;
      ACTION MsgInfo("... as easy as this!")

   @ 10, 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 = "Here it is!"


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

//      DATE

   ACTIVATE WINDOW oWnd                                         ;

RETURN( NIL )

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