//***************************************************************************
//*
//* Class:        cRDSDbForm
//* Package Name: cRDSDbForm.pkg
//*
//***************************************************************************
Use DFAllEnt.pkg
//Use cTooltip.pkg
Use cRDSWinToolTip.pkg

Class cRDSDbForm is a dbForm

  Import_Class_Protocol cRDSWinToolTip

  Procedure Construct_object
    Forward Send Construct_Object
    Send Define_cRDSWinToolTip
    Set pbClassEnabledHandleType    To True  // True=Default
    Set pbClassDisabledHandleType   To True  // True=Default
    Set pbClassEntryStateHandleType To True  // True=Default
//    Property Handle Private.phoToolTip 0
    Set Auto_Label_State To True
//    Object oTooltip Is A cTooltip
//      Set Private.phoToolTip To (Self)
//    End_Object // oTooltip
  End_Procedure

//  Procedure End_Construct_Object
//    Handle ho
//    String sHelp
//    Boolean bVisible bPopup
//    Integer iField iServer
//    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
//        Delegate Get Main_DD   To iServer
//        Get Status_Help Item 0 To sHelp
//        If (Length(sHelp) = 0) Begin
//          Get Data_Field       To iField
//          Get Main_DD          To iServer
//          Get Status_Help Of iServer iField To sHelp
//        End // If (Length(sHelp) = 0) Begin
//        Set psTooltip Of ho To (ToAnsi(sHelp))
//        Send Activate Of ho
//    End // If (ho > 0 And bVisible = True) Begin
//  End_Procedure // End_Construct_Object

  Procedure Set pbHidden Boolean bMode
    Handle ho
    Get Label_Object               To ho
    Set Visible_State              To (Not(bMode))
    If ho Set Visible_State  Of ho To (Not(bMode))
    Set Enabled_State              To (Not(bMode))
    If ho Send Enable_Window Of ho    (Not(bMode))
    Set Focus_Mode                 To (If(bMode = True, NonFocusable, Focusable))
  End_Procedure // Set pbHidden

  Function pbHidden Returns Boolean
    Function_Return (Visible_State(Self))
  End_Function // pbHidden

  Procedure Set Enabled_State Boolean bState
    Handle ho
    Forward Set Enabled_State To bState
    Get Label_Object          To ho
    If (ho > 0) Send Enable_Window Of ho True
  End_Procedure // Set Enabled_State

//  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 > 0 And bVisible = True) Begin
//      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 > 0 And bVisible = True) 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 Destroy Of ho
//      Set Private.phoToolTip To 0
//    End // If ho Begin
//  End_Procedure // DestroyToolTip

End_Class // cRDSDbForm