//***************************************************************************
//*
//* Class:        cRDSGrid
//* Package Name: cRDSGrid.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 cRDSGrid is a Grid

  Import_Class_Protocol cRDSWinToolTip

  Procedure Construct_Object
    Integer iColor
    Forward Send Construct_Object
    Send Define_cRDSWinToolTip
    Set pbClassEnabledHandleType    To False // True=Default
    Set pbClassDisabledHandleType   To True  // True=Default
    Set pbClassEntryStateHandleType To True  // True=Default
//    Property Handle Private.phoToolTip 0
//    Object oTooltip Is A cTooltip
//      Set Private.phoToolTip To (Self)
//    End_Object // oTooltip
//    Set TextColor           To clNavy
//    Set CurrentCellColor    To clYellow
//    Set peGridLineColor     To clNavy
//    Set peDisabledTextColor To clNavy
    Get ReadDWord Of ghoApplication "Preferences" "CurrentRowColor"  clAqua    To iColor
    Set CurrentRowColor                                                        To iColor
    Get ReadDWord Of ghoApplication "Preferences" "CurrentCellColor" clAqua    To iColor
    Set CurrentCellColor                                                       To iColor
    Get ReadDWord Of ghoApplication "Preferences" "peGridLineColor"  clBtnFace To iColor
    Set peGridLineColor                                                        To iColor
    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 Key_Home             Send Home
    On_Key Key_End              Send End
    On_Key Key_F6               Send Switch
    On_Key Key_Shift+Key_F6     Send Switch_Back
    On_Key Key_F5               Send Request_Clear
    Set Entry_msg To DoDisableToolbarButtons
    Set Exit_msg  To DoEnableToolbarButtons
  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
//      Send Activate Of ho
//    End // If (ho > 0 And bVisible = True) Begin
//  End_Procedure // End_Construct_Object

  Procedure DoEnableToolbarButtons
    Handle ho
    Integer iItems
    Get Item_Count To iItems
    If Not iItems Procedure_Return
    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
    Integer iItems
    Boolean bState
    Get Item_Count To iItems
    If Not iItems Procedure_Return
    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 Home
    Integer iCol iCrnt
    Get Current_Col  To iCol
    Get Current_Item To iCrnt
    Set Current_Item To (iCrnt - iCol)
  End_Procedure // Home

  Procedure End
    Integer iCol iCrnt iCols
    Get Current_Col  To iCol
    Get Line_Size    To iCols
    Get Current_Item To iCrnt
    Set Current_Item To (iCrnt - iCol + iCols -1)
  End_Procedure // End

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

End_Class // cRDSGrid