// RDC's Rebar package:
//
Use cRDCRebar.pkg     // Defines global variable ghoImageList.
Use cRDCToolBar.pkg

Register_Object oToolBar
Register_Object oClientArea
Register_Object oRdcView
Register_Object SncSys_DD
Register_Object SncSchem_DD
Register_Object oConnectDbWizard

Object oToolBar Is A cRDCRebar

  Object oFindRebarBand Is A cRebarBand
    Set pbBreak      To False
    Set piBandLength To 105

    Object oFindToolBar Is A cRDCToolbar
      Set Size         To 24 105
      Delegate Set phoFindToolBar To Self // Panel property.

      Object oFirst Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "First"
        Set pbAutoSize    To True
        Set psTooltip     To 'Navigation:\nDisplay the first Connection record (Ctrl+Home)'
        Set psStatusHelp  To 'Find the First record (Ctrl+Home)'
        Set piImage       To 0
        Delegate Set phoFirst To Self
        Procedure OnClick
          Send DoSendToDeoFocus msg_beginning_of_data
        End_Procedure
      End_Object // oFirst

      Object oPrevious Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "Prev"
        Set pbAutoSize    To True
        Set psTooltip     To 'Find Previous (F7)'
        Set psStatusHelp  To 'Find the Previous record (F7)'
        Set piImage       To 1
        Delegate Set phoPrevious To Self
        Procedure OnClick
          Send DoSendToDeoFocus msg_find_previous
        End_Procedure
      End_Object // oPrevious

      Object oFind Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "Equal"
        Set pbAutoSize    To True
        Set psTooltip     To 'Find equal or greater than record (F9)'
        Set psStatusHelp  To 'Find equal or greater than record (F9)'
        Set piImage       To 2
        Delegate Set phoFind To Self
        Procedure OnClick
          Send DoSendToDeoFocus msg_find_ge
        End_Procedure
      End_Object // oFirst

      Object oNext Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "Next"
        Set pbAutoSize    To True
        Set psTooltip     To 'Find Next (F8)'
        Set psStatusHelp  To 'Find the Next record (F8)'
        Set piImage       To 3
        Delegate Set phoNext To Self
        Procedure OnClick
          Send DoSendToDeoFocus msg_find_next
        End_Procedure
      End_Object // oNext

      Object oLast Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "Last"
        Set pbAutoSize    To True
        Set psTooltip     To 'End of table (Ctrl+End)'
        Set psStatusHelp  To 'Find the Last record (Ctrl+End)'
        Set piImage       To 4
        Delegate Set phoLast To Self
        Procedure OnClick
          Send DoSendToDeoFocus msg_end_of_data
        End_Procedure
      End_Object // oLast

    End_Object // oFindToolBar Is A cRDCToolbar

  End_Object //oFindRebarBand Is A cRebarBand

  Object oSearchRebarBand Is A cRebarBand
    Set pbBreak      To False
    Set piBandLength To 68

    Object oSearchToolBar Is A cRDCToolbar
      Set Size         To 24 68
      Delegate Set phoSearchToolBar To Self

      Object oPrompt Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "Search"
        Set pbAutoSize    To True
        Set psTooltip     To 'Show available selections (F4)'
        Set psStatusHelp  To 'Show a list with available selections (F4)'
        Set piImage       To 5
        Delegate Set phoPrompt To Self
        Procedure OnClick
          Send DoSendToDeoFocus msg_prompt
        End_Procedure
      End_Object // oPrompt

      Object oClear Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "New/Clear"
        Set pbAutoSize    To True
        Set psTooltip     To 'Add a new record/Clear current record (F5)'
        Set psStatusHelp  To 'Add a new record/Clear current record (F5)'
        Set piImage       To 6
        Delegate Set phoClear To Self
        Procedure OnClick
          Send DoSendToDeoFocus msg_Request_Clear
        End_Procedure
      End_Object // oClear
    End_Object // oSearchToolBar Is A cRDCToolbar

  End_Object // oSearchRebarBand Is A cRebarBand

  Object oSaveRebarBand Is A cRebarBand
    Set pbBreak      To False
    Set piBandLength To 50

    Object oSaveToolBar Is A cRDCToolbar
      Set Size         To 24 50
      Delegate Set phoSaveToolBar To Self

      Object oSave Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "Save"
        Set pbAutoSize    To True
        Set psTooltip     To 'Save the current record (F2 or Ctrl+S)'
        Set psStatusHelp  To 'Save the current record (F2 or Ctrl+S)'
        Set piImage       To 7
        Delegate Set phoSave To Self
        Procedure OnClick
          Send DoSendToDeoFocus msg_request_save
        End_Procedure
      End_Object // oSave

      Object oDelete Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "Delete"
        Set pbAutoSize    To True
        Set psTooltip     To 'Delete the current record (Shift+F2)'
        Set psStatusHelp  To 'Delete the current record (Shift+F2)'
        Set piImage       To 8
        Delegate Set phoDelete To Self
        Procedure OnClick
          Send DoSendToDeoFocus msg_request_delete
        End_Procedure
      End_Object // oDelete
    End_Object // oSaveToolBar Is A cRDCToolbar
  End_Object // oSaveRebarBand Is A cRebarBand

  Object oCutRebarBand Is A cRebarBand
    Set pbBreak      To False
    Set piBandLength To 62

    Object oCutToolBar Is A cRDCToolBar
      Set Size         To 24 62
      Delegate Set phoCutToolBar To Self

      Object oCut Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "Cut"
        Set pbAutoSize    To True
        Set psTooltip     To 'Cuts the selection and puts it on the Clipboard (Ctrl+X)'
        Set psStatusHelp  To 'Cuts the selection and puts it on the Clipboard (Ctrl+X)'
        Set piImage       To 9
        Delegate Set phoCut To Self // Panel property.
        Procedure OnClick
          Send DoSendToDeoFocus msg_cut
        End_Procedure
      End_Object // oCut

      Object oCopy Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "Copy"
        Set pbAutoSize    To True
        Set psTooltip     To 'Copies the selection and puts it on the Clipboard (Ctrl+C)'
        Set psStatusHelp  To 'Copies the selection and puts it on the Clipboard (Ctrl+C)'
        Set piImage       To 10
        Delegate Set phoCopy To Self // Panel property.
        Procedure OnClick
          Send DoSendToDeoFocus msg_copy
        End_Procedure
      End_Object // oCopy

      Object oPaste Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "Paste"
        Set pbAutoSize    To True
        Set psTooltip     To 'Inserts Clipboard contents (Ctrl+V)'
        Set psStatusHelp  To 'Inserts Clipboard contents (Ctrl+V)'
        Set piImage       To 11
        Delegate Set phoPaste To Self // Panel property.
        Procedure OnClick
          Send DoSendToDeoFocus msg_paste
        End_Procedure
      End_Object // oPaste
    End_Object // oCutToolBar Is A cRDCToolbar
  End_Object // oCutRebarBand Is A cRebarBand

//  Object oWizardRebarBand Is A cRebarBand
//    Set pbBreak      To False
//    Set piBandLength To 30

//    Object oWizardToolBar Is A cRDCToolbar
//      //Set pbHidden To True  // Doesn't quite work. The wizard icon is drawn over the First button...
//      Set Size         To 24 30
//      Delegate Set phoWizardToolBar To Self

//      Object oConnectDbWizard_bn Is A cToolbarButton
//        Set TypeFace      To "MS Sans Serif"
//        Set psLabel To "&Wizard"
//        Set pbAutoSize To True
//        Set psTooltip To 'Wizard for creating a Database Connection record (Alt+W)'
//        Set psStatusHelp To 'Wizard for creating a Database Connection record'
//        Set piImage To 12
//        Procedure OnClick
//          Send Popup Of (oConnectDbWizard(oClientArea(Self)))
//        End_Procedure
//      End_Object // oConnectDbWizard_bn
//    End_Object // oWizardToolBar Is A cRDCToolbar
//  End_Object // oWizardRebarBand Is A cRebarBand

  Object oConnectRebarBand Is A cRebarBand
    Set pbBreak      To False
    Set piBandLength To 65

    Object oConnectToolBar Is A cRDCToolbar
      Set Size         To 24 65
      Delegate Set phoConnectToolBar To Self

      Object oConnectEngine Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "CrossMerge &Engine"
        Set pbAutoSize    To True
        Set psTooltip     To 'Start the CrossMerge Engine (Alt+E)'
        Set psStatusHelp  To 'Start the CrossMerge Engine'
        Set piImage       To 13

        Procedure OnClick
          Boolean bSave
          String sPath
          Integer iRetval
          Handle hoDD
          Get Should_Save Of (Main_DD(oRdcView(oClientArea(Self)))) To bSave
          If (bSave = False) Get Should_Save Of (SncSys_DD(oRdcView(oClientArea(Self))))   To bSave
          If (bSave = False) Get Should_Save Of (SncSchem_DD(oRdcView(oClientArea(Self)))) To bSave
          If (bSave = True) Begin
            Get YesNo_Box "Changes exist. Save them first?" To iRetval
            If (iRetval = Mbr_Yes) Send Request_Save Of (oRdcView(oClientArea(Self)))
          End // If (bSave = True) Begin
          Move (psProgramPath(phoWorkspace(ghoApplication))) To sPath
//          Send DoStartDocument "open" "CmEngine.exe" C_RDCENC (sPath - "\")
         Send DoStartDocument "open" (sPath - "\CMEngine.exe") "" ""
        End_Procedure
      End_Object
    End_Object // oConnectToolBar Is A cRDCToolbar
  End_Object //oConnectRebarBand Is A cRebarBand
// 2004-06-22 ------------------------------------ Start Nils G. Svedmyr
  Object oPropertiesRebarBand Is A cRebarBand
    Set pbBreak      To False
    Set piBandLength To 82

    Object oPropertiesToolBar Is A cRDCToolbar
      Set Size         To 24 82
      Delegate Set phoPropertiesToolBar To Self

      Register_Object oProperties_dg
      Object oProperties_bn Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "&Properties"
        Set pbAutoSize    To True
        Set psTooltip     To 'Program properties (Alt+P)'
        Set psStatusHelp  To 'Program properties'
        Set piImage       To 14
        Procedure OnClick
          //Send Popup Of (oProperties_dg(oClientArea(oMain(Self))))
          Send DoPopupProperties Of (oClientArea(oMain(Self)))
        End_Procedure
      End_Object // oProperties_bn

      Register_Procedure DoHelp
      Object oHelp Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "&Help"
        Set pbAutoSize    To True
        Set psTooltip     To 'Help on how to use this program (F1)'
        Set psStatusHelp  To 'Help on how to use this program (F1)'
        Set piImage       To 15
        Procedure OnClick
          Send DoSendToDeoFocus msg_DoHelp
        End_Procedure
      End_Object // oHelp

      Register_Procedure Activate_About
      Register_Object    oClient
      Object oAbout Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "A&bout"
        Set pbAutoSize    To True
        Set psTooltip     To 'Info about this program'
        Set psStatusHelp  To 'Info about this program'
        Set piImage       To 16
        Procedure OnClick
          Send Activate_About to (oMain(Self))
        End_Procedure
      End_Object // oAbout
    End_Object // oPropertiesToolBar Is A cRDCToolbar
  End_Object // oPropertiesRebarBand Is A cRebarBand

  Object oDownButtonRebar Is A cRebarBand
    Set pbBreak      To False
    Set piBandLength To 15

    Object oDownButtonToolBar Is A cRDCToolbar
      Set Size       To 24 15

      Object oDownButton Is A cToolbarButton
        Set TypeFace      To "MS Sans Serif"
        Set psLabel       To "  "
        Set pbAutoSize    To True
        Set psTooltip     To 'Change Toolbar'
        Set psStatusHelp  To 'Change Toolbar'
        Set piImage       To 18
        Procedure OnClick
          Set pbPressed To True
          Send Popup Of (phoMenu(Self))
          Set pbPressed To False
        End_Procedure
//        Procedure OnRightClick Integer iX Integer iY
//          Send DeActivate Of (phoMenu(Self))
//          Set pbPressed To False
//        End_Procedure
        Procedure Mouse_Down2
          Send DeActivate Of (phoMenu(Self))
          Set pbPressed To False
        End_Procedure
      End_Object // oDownButton
      Delegate Set piVerToolbar To (Hi(GuiSize(Self))) // oMain property.
    End_Object // oDownButtonToolBar
  End_Object // oDownButtonRebar

  Function Item_Count Returns Integer
  End_Function // Status_Help

  Procedure DoFlipToobarButtonState Boolean bState Handle hoDD // Server handle.
    Handle hoFocus hServer
    Boolean bIsDeo bPrompt
    Integer iType iField

    Set pbEnabled   Of (phoSave(Self))   To bState
    If hoDD Begin
      Set pbEnabled Of (phoClear(Self))  To (bState Or Current_Record(hoDD))
      Set pbEnabled Of (phoDelete(Self)) To (Current_Record(hoDD))
    End // If hoDD Begin
  End_Procedure // DoFlipEnabledState

  Procedure DoFlipToobarPromptState Boolean bState
    Set pbEnabled Of (phoFirst(Self))    To bState
    Set pbEnabled Of (phoPrevious(Self)) To bState
    Set pbEnabled Of (phoFind(Self))     To bState
    Set pbEnabled Of (phoNext(Self))     To bState
    Set pbEnabled Of (phoLast(Self))     To bState
    Set pbEnabled Of (phoPrompt(Self))   To bState
  End_Procedure // DoFlipToobarPromptState

  Delegate Set piVerRebar To (Hi(GuiSize(Self))) // oMain property.
End_Object //oToolBar