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

Register_Object oToolbar
Register_Procedure Set phoCopy  Handle ho
Register_Procedure Set phoPaste Handle ho
Register_Procedure Set phoCut   Handle ho

Class cRDSDbComboForm Is A dbComboForm

  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 False // True=Default
//    Property Handle Private.phoToolTip 0
//    Object oTooltip Is A cTooltip
//      Set Private.phoToolTip To (Self)
//    End_Object // oTooltip
    Set Auto_Label_State To True
    Set Entry_msg        To DoDisableToolbarButtons
    Set Exit_msg         To DoEnableToolbarButtons
    On_Key kFind                Send msg_None
    On_Key kFind_Next           Send msg_None
    On_Key kFind_Previous       Send msg_None
    On_Key kSuper_Find          Send msg_None
    On_Key kSuper_Find_Next     Send msg_None
    On_Key kSuper_Find_Previous Send msg_None
//    On_Key kEnter               Send Default_Key // Send DoSelectItem
  End_Procedure // Construct_Object

//  Procedure End_Construct_Object
//    Handle ho
//    String sHelp
//    Boolean bVisible
//    Integer iField iServer
//    Forward Send End_Construct_Object
//    Get Data_Field         To iField
//    Get Main_DD            To iServer
//    Get Private.phoToolTip To ho
//    Get Visible_State      To bVisible
//    If (ho And bVisible) Begin
//      //Get Status_Help Item 0 To sHelp
//      Get Status_Help To sHelp
//      If (Length(sHelp) = 0) Get Status_Help Of iServer iField To sHelp
//      Set psTooltip    Of ho To (ToAnsi(sHelp))
//      Send Activate    Of ho
//    End // If (ho And bVisible) Begin
//  End_Procedure // End_Construct_Object

  // This doesn't work any longer (on_key kenter) from VDF 9.1.
  // The procedure is never triggered.
//    Procedure DoSelectItem
//      Send Mouse_Down 0
//      Send OnCloseUp
//    End_Procedure // DoSelectItem

  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

  // Create and augment procedure and functions
  Procedure DoEnableToolbarButtons
    Handle ho
    If (Entry_State(Self, 0)) Procedure_Return
    Move (oToolBar(Self)) To ho
    If ho Begin
      Get phoCut          To ho
      If ho Set pbEnabled Of ho To True
      Get phoCopy         To ho
      If ho Set pbEnabled Of ho To True
      Get phoPaste        To ho
      If ho Set pbEnabled Of ho To True
    End // If ho Begin
  End_Procedure // DoEnableToolbarButtons

  Procedure DoDisableToolbarButtons
    Handle ho
    Boolean bState
    If (Entry_State(Self, 0)) Procedure_Return
    Move (oToolBar(Self)) To ho
    If ho Begin
      Get phoCut          To ho
      If ho Set pbEnabled Of ho To False
      Get phoCopy         To ho
      If ho Set pbEnabled Of ho To False
      Get phoPaste        To ho
      If ho Set pbEnabled Of ho To False
    End // If ho Begin
  End_Procedure // DoDisableToolbarButtons

  Procedure OnCloseUp
    Integer iItem iState
    String sValue
    Forward Send OnCloseUp
    // We need to get the selected value this way when
    // comboform has Entry_State set to false:
    Get Entry_State                 To iState
    If Not iState Begin
      Get WinCombo_Current_Item     To iItem
      If (iItem < 0) Move 0         To iItem
      Get WinCombo_Value Item iItem To sValue
      Set Changed_Value  Item 0     To sValue
    End // If Not iState Begin
  End_Procedure // OnCloseUp

  Procedure OnDropDown
    Forward Send OnDropDown
  End_Procedure // OnDropDown

  Procedure Request_Cancel
  End_Procedure

//  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
//    Forward Send Page iFlag
//    If (Active_State(Self))  Begin
//      Get Private.phoToolTip To ho
//      If (Enabled_State(Self)) Get Window_Handle      To hWnd
//      Else                     Get Form_Window_Handle To hWnd
//      If (hWnd = 0) Get Window_Handle To hWnd
//      If (iFlag And ho > 0 And hWnd > 0) Send AddTool Of ho hWnd
//    End // If (Active_State(Self))  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 // cRDSDbComboForm