/////////////////////////////////////////////////////////////////////
// TOOLTIP
/////////////////////////////////////////////////////////////////////

TToolTip():Define( ControlName, ParentForm, nInitialTime, nAutoPopTime, nReShowTime, lMultiLine, lBalloon, lClose )

#xcommand SET TOOLTIPCLOSE <x: ON, OFF> ;
   => ;
      _SetToolTipClose( Upper( <(x)> ) == "ON" )

#xcommand SET TOOLTIP CLOSE <x: ON, OFF> ;
   => ;
      _SetToolTipClose( Upper( <(x)> ) == "ON" )

#xcommand SET TOOLTIPSTYLE CLOSE ;
   => ;
      _SetToolTipClose( .T. )

#xcommand SET TOOLTIPSTYLE NOCLOSE ;
   => ;
      _SetToolTipClose( .F. )

#xcommand SET TOOLTIPMULTILINE <x: ON, OFF> ;
   => ;
      _SetToolTipMultiLine( Upper( <(x)> ) == "ON" )

#xcommand SET TOOLTIP MULTILINE <x: ON, OFF> ;
   => ;
      _SetToolTipMultiLine( Upper( <(x)> ) == "ON" )

#xcommand SET TOOLTIPBALLOON <x: ON, OFF> ;
   => ;
      _SetToolTipBalloon( Upper( <(x)> ) == "ON" )

#xcommand SET TOOLTIP BALLOON <x: ON, OFF> ;
   => ;
      _SetToolTipBalloon( Upper( <(x)> ) == "ON" )

#xcommand SET TOOLTIPSTYLE BALLOON ;
   => ;
      _SetToolTipBalloon( .T. )

#xcommand SET TOOLTIPSTYLE STANDARD ;
   => ;
      _SetToolTipBalloon( .F. )

#translate IsToolTipBalloonActive ;
   => ;
      _SetToolTipBalloon()

#xcommand SET TOOLTIPBACKCOLOR <aColor> ;
   => ;
      _SetToolTipBackColor( <aColor> )

#xcommand SET TOOLTIPFORECOLOR <aColor> ;
   => ;
      _SetToolTipForeColor( <aColor> )

#xcommand SET TOOLTIPINITIALTIME TO <nMilliSec> ;
   => ;
      _SetToolTipInitialTime( <nMilliSec> )

#xcommand SET TOOLTIPAUTOPOPTIME TO <nMilliSec> ;
   => ;
      _SetToolTipAutoPopTime( <nMilliSec> )

#xcommand SET TOOLTIPRESHOWTIME TO <nMilliSec> ;
   => ;
      _SetToolTipReShowTime( <nMilliSec> )