//****************************************************************************
// $Module type: Mixin class
// $Module name: cRDSWinToolTip.pkg
// $Author     : Nils G. Svedmyr
// Created     : 2004-05-25 @ 18:45
//
// Description :
//
// $Rev History:
//    2004-05-25  Module header created
//****************************************************************************
Use cWinToolTip.pkg

Class cRDSWinToolTip Is A Mixin

  Import_Class_Protocol cWinToolTip_mx

  Procedure Define_cRDSWinToolTip
    String sKey sVal
    Boolean bState
    Send Define_cWinToolTip
    Property Boolean pbReadRegistry False

    Move "Preferences"         To sKey
    Move "pbToolTips"          To sVal
    Get   ReadDWord Of ghoApplication sKey sVal True  To bState
    Set pbToolTips             To bState
    If (pbReadRegistry(Self) = True) Begin
      Move "pbToolTipStyle"  To sVal
      Get ReadDWord Of ghoApplication sKey sVal False To bState // True
    End // If (pbReadRegistry(Self) = True) Begin
    Else Move (False)          To bState
    Set pbToolTipBalloon       To bState
  End_Procedure // Define_cRDSWinToolTip

End_Class // cRDSWinToolTip Is A Mixin