//****************************************************************************
// $Module type: Class
// $Module name: cLFile_fm
// $Author     : Nils G. Svedmyr
// Created     : 2003-05-09 @ 10:55
//
// Description :
//
// $Rev History:
//    2003-05-09  Module header created
//****************************************************************************
//Use cToolTip.pkg
Use cRDSWinToolTip.pkg

Class cLFile_fm Is A Form

  Import_Class_Protocol cRDSWinToolTip

  Procedure Construct_Object
    Forward Send Construct_Object
//    Property Handle Private.phoToolTip 0

    Send Define_cRDSWinToolTip

    Set pbClassEnabledHandleType    To True // True=Default
    Set pbClassDisabledHandleType   To True  // True=Default
    Set pbClassEntryStateHandleType To True  // True=Default
    
    //    Object oTooltip Is A cTooltip
//      Set Private.phoToolTip To Self
//    End_Object // oTooltip
  End_Procedure // Construct_Object

//  Procedure End_Construct_Object
//    Handle ho
//    String sHelp
//    Boolean bVisible bPopup
//    Forward Send End_Construct_Object
//    Get Private.phoToolTip To ho
//    Get Visible_State      To bVisible
//    If (ho > 0 And bVisible = True) Begin
//      Delegate Get Popup_State To bPopup
//      If (bPopup = False) Send Activate Of ho
//    End // If (ho > 0 And bVisible = True) Begin
//  End_Procedure // End_Construct_Object

//  Procedure Set pbToolTips Boolean bState
//    Handle ho
//    Get Private.phoToolTip To ho
//    If ho Begin
//      If (bState = False) Send DeActivate Of ho
//      Else                Send Activate   Of ho
//    End // If ho Begin
//  End_Procedure // Set pbToolTips

//  Procedure Page Integer iFlag
//    Handle ho hWnd
//    String sHelp
//    Boolean bVisible bPopup
//    Forward Send Page iFlag
//    Get Private.phoToolTip To ho
//    Get Visible_State      To bVisible
//    If (ho And bVisible) Begin
//      Get Status_Help Item 0 To sHelp
//      Set psTooltip    Of ho To (ToAnsi(sHelp))
//      If (Enabled_State(Self)) Get Form_Window_Handle To hWnd
//      Else                     Get Window_Handle      To hWnd
//      If (iFlag And ho > 0 And hWnd > 0) Send AddTool Of ho hWnd
//    End // If (ho And bVisible) Begin
//  End_Procedure // Page

//  Procedure Destroy
//    Send DestroyToolTip
//    Forward Send Destroy
//  End_Procedure // Destroy

//  Procedure DestroyToolTip
//    Handle ho
//    Get Private.phoToolTip To ho
//    If ho Begin
//      Send DeleteTool Of ho
//      Send Destroy    Of ho
//    End // If ho Begin
//  End_Procedure // DestroyToolTip

//  Function TooltipHint Returns String
//    Function_Return ""
//  End_Function

//  Function TooltipHintObject Returns Integer
//    Function_Return 0
//  End_Function

End_Class // cLFile_fm