//AB/ Project cWinCTab Sample View
//AB/ Object oIDE_Project is a View_Project
  //AB/ Set Size to 253 440
  //AB/ Set ProjectName to "cWinCTab Sample View"
  //AB/ Set ProjectFileName to "cWinCTab.vw"
  //AB/ Set GenerateFileName to "NONAME"

// Project Object Structure
//   oWinCTab is a dbView
//     oForm1 is a Form
//     oCTab2 is a cWinCTab
//       oWinCTabPage1 is a cWinCTabPage
//         oWinForm1 is a cWinForm
//         oWinLink2 is a cWinLink
//       oWinCTabPage2 is a cWinCTabPage
//         oWinForm2 is a cWinForm
//         oWinLink3 is a cWinLink
//       oWinCTabPage3 is a cWinCTabPage
//         oWinForm3 is a cWinForm
//         oWinLink4 is a cWinLink
//       oWinCTabPage4 is a cWinCTabPage
//         oWinForm4 is a cWinForm
//         oWinLink5 is a cWinLink
//       oWinCTabPage5 is a cWinCTabPage
//         oWinForm5 is a cWinForm
//         oWinLink6 is a cWinLink
//     oPrevious is a cWinButton
//     oNext is a cWinButton

// Register all objects
Register_Object oCTab2
Register_Object oForm1
Register_Object oNext
Register_Object oPrevious
Register_Object oWinCTab
Register_Object oWinCTabPage1
Register_Object oWinCTabPage2
Register_Object oWinCTabPage3
Register_Object oWinCTabPage4
Register_Object oWinCTabPage5
Register_Object oWinForm1
Register_Object oWinForm2
Register_Object oWinForm3
Register_Object oWinForm4
Register_Object oWinForm5
Register_Object oWinLink2
Register_Object oWinLink3
Register_Object oWinLink4
Register_Object oWinLink5
Register_Object oWinLink6


//AB-StoreTopStart
Use cWinCTab.pkg
//AB-StoreTopEnd

//AB-IgnoreStart
Use dfClient.pkg
Use Windows.pkg
Use cWinCTab.pkg
Use cWinForm.pkg
Use cWinLink.pkg
Use cWinButton.pkg
//AB-IgnoreEnd


ACTIVATE_VIEW Activate_oWinCTab FOR oWinCTab

Object oWinCTab is a dbView
  Set Border_Style to Border_Thick
  Set Label to "cWinCTab Sample View"
  Set Location to 6 6
  Set peAnchors To anTopBottom
  Set Size to 198 355
  Set piMaxSize to 0 355
  Set piMinSize to 198 355

  //AB-DDOStart


  //AB-DDOEnd

  Object oForm1 is a Form
    Set Size to 13 85
    Set Location to -100 -100

    //AB-StoreStart
    //Procedure OnChange
    //    String sValue
    //    Get value to sValue
    //
    //End_Procedure  // OnChange
    //AB-StoreEnd

  End_Object    // oForm1

  Object oCTab2 is a cWinCTab

    //AB-StoreTopStart
    Set CTab_Image CTAB_DEFAULT  To "CTab1.bmp"
    Set CTab_Image CTAB_OVER     To "CTabOver1.bmp"
    Set CTab_Image CTAB_DOWN     To "CTabDown1.bmp"
    Set CTab_Image CTAB_SELECTED To "CTabSel1.bmp"
    //AB-StoreTopEnd

    Set Location to 6 4
    Set Size to 151 341
    Set peAnchors to anTopBottom
    Object oWinCTabPage1 is a cWinCTabPage
      Set Size to 135 335
      Set Label to "Customer"
      Set psToolTip to "Customer entry view"
      Set psToolTipTitle to "Customer"
      Object oWinForm1 is a cWinForm
        Set Size to 13 85
        Set Location to 15 22
      End_Object    // oWinForm1

      Object oWinLink2 is a cWinLink
        Set Location to 3 312
        Set Size to 9 25
        Set Color to 15919056
        Set TextColor to clNavy
        Set pbHotTrack to TRUE
        Set Label to "Help"
        Set FontSize to 10 0
        Set TypeFace to "MS Sans Serif"
        Set FontUnderline to TRUE
        Set piCursor to BUTTON_IDC_HELP
        Set psToolTip to "Learn more about Customer entry"
        Set psToolTipTitle to "Help"
        Set Pointer_Only_State to TRUE
        Set pbAutoStatusHelpAsToolTip to FALSE
      End_Object    // oWinLink2

    End_Object    // oWinCTabPage1

    Object oWinCTabPage2 is a cWinCTabPage
      Set Size to 135 335
      Set Label to "Inventory"
      Set psToolTip to "Inventory entry view"
      Set psToolTipTitle to "Inventory"
      Object oWinForm2 is a cWinForm
        Set Size to 13 85
        Set Location to 25 77
      End_Object    // oWinForm2

      Object oWinLink3 is a cWinLink
        Set Location to 3 312
        Set Size to 9 25
        Set Color to 15919056
        Set TextColor to clNavy
        Set pbHotTrack to TRUE
        Set Label to "Help"
        Set FontSize to 10 0
        Set TypeFace to "MS Sans Serif"
        Set FontUnderline to TRUE
        Set piCursor to BUTTON_IDC_HELP
        Set psToolTip to "Learn more about Inventory entry"
        Set psToolTipTitle to "Help"
        Set Pointer_Only_State to TRUE
        Set pbAutoStatusHelpAsToolTip to FALSE
      End_Object    // oWinLink3

    End_Object    // oWinCTabPage2

    Object oWinCTabPage3 is a cWinCTabPage
      Set Size to 135 335
      Set Label to "Sales Person"
      Set psToolTip to "Sales person entry view"
      Set psToolTipTitle to "Sales person"
      Object oWinForm3 is a cWinForm
        Set Size to 13 85
        Set Location to 18 21
      End_Object    // oWinForm3

      Object oWinLink4 is a cWinLink
        Set Location to 3 312
        Set Size to 9 25
        Set Color to 15919056
        Set TextColor to clNavy
        Set pbHotTrack to TRUE
        Set Label to "Help"
        Set FontSize to 10 0
        Set TypeFace to "MS Sans Serif"
        Set FontUnderline to TRUE
        Set piCursor to BUTTON_IDC_HELP
        Set psToolTip to "Learn more about Sales Person entry"
        Set psToolTipTitle to "Help"
        Set Pointer_Only_State to TRUE
        Set pbAutoStatusHelpAsToolTip to FALSE
      End_Object    // oWinLink4

    End_Object    // oWinCTabPage3

    Object oWinCTabPage4 is a cWinCTabPage
      Set Size to 135 335
      Set Label to "Vendor"
      Set psToolTip to "Vendor entry view"
      Set psToolTipTitle to "Vendor"
      Object oWinForm4 is a cWinForm
        Set Size to 13 85
        Set Location to 21 49
      End_Object    // oWinForm4

      Object oWinLink5 is a cWinLink
        Set Location to 3 312
        Set Size to 9 25
        Set Color to 15919056
        Set TextColor to clNavy
        Set pbHotTrack to TRUE
        Set Label to "Help"
        Set FontSize to 10 0
        Set TypeFace to "MS Sans Serif"
        Set FontUnderline to TRUE
        Set piCursor to BUTTON_IDC_HELP
        Set psToolTip to "Learn more about Vendor entry"
        Set psToolTipTitle to "Help"
        Set Pointer_Only_State to TRUE
        Set pbAutoStatusHelpAsToolTip to FALSE
      End_Object    // oWinLink5

    End_Object    // oWinCTabPage4

    Object oWinCTabPage5 is a cWinCTabPage
      Set Size to 135 335
      Set Label to "Orders"
      Set psToolTip to "Order entry view"
      Set psToolTipTitle to "Orders"
      Object oWinForm5 is a cWinForm
        Set Size to 13 85
        Set Location to 15 19
      End_Object    // oWinForm5

      Object oWinLink6 is a cWinLink
        Set Location to 3 312
        Set Size to 9 25
        Set Color to 15919056
        Set TextColor to clNavy
        Set pbHotTrack to TRUE
        Set Label to "Help"
        Set FontSize to 10 0
        Set TypeFace to "MS Sans Serif"
        Set FontUnderline to TRUE
        Set piCursor to BUTTON_IDC_HELP
        Set psToolTip to "Learn more about Order entry"
        Set psToolTipTitle to "Help"
        Set Pointer_Only_State to TRUE
        Set pbAutoStatusHelpAsToolTip to FALSE
      End_Object    // oWinLink6

    End_Object    // oWinCTabPage5


    //AB-StoreStart
    
    //AB-StoreEnd

  End_Object    // oCTab2

  Object oPrevious is a cWinButton
    Set Location to 161 218
    Set Size to 15 60
    Set Label to "<< Previous"
    Set TypeFace to "MS Sans Serif"
    Set Pointer_Only_State to TRUE
    Set peAnchors to anBottom

    //AB-StoreStart
    Procedure OnClick
        Send Request_Previous_Page To (oCTab2(Self))
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oPrevious

  Object oNext is a cWinButton
    Set Location to 161 284
    Set Size to 15 60
    Set Label to "Next >>"
    Set TypeFace to "MS Sans Serif"
    Set Pointer_Only_State to TRUE
    Set peAnchors to anBottom

    //AB-StoreStart
    Procedure OnClick
        Send Request_Next_Page To (oCTab2(Self))
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oNext


  //AB-StoreStart
  //Object oCTab is a cWinCTab
  //    Set peAnchors To anTopBottom
  //    Set Location To 5 5
  //    Set Size To 172 340
  //    Set CTab_Image CTAB_DEFAULT  To "CTab.bmp"
  //    Set CTab_Image CTAB_OVER     To "CTabOver.bmp"
  //    Set CTab_Image CTAB_DOWN     To "CTabDown.bmp"
  //    Set CTab_Image CTAB_SELECTED To "CTabSel.bmp"
  //    Object oPage1 Is a cWinCTabPage
  //        Set Label To "Page 1"
  //        Set psToolTip To "Page 1 description"
  //        Set psToolTipTitle To "Page 1"
  //        Object oForm is a Form
  //            Set Label To "Page 1 form"
  //            Set Size  To 13 50
  //            Set Location To 20 100
  //        End_Object
  //    End_Object // oPage1
  //    Object oPage2 Is a cWinCTabPage
  //        Set Label To "Page 2"
  //        Set psToolTip To "Page 2 description"
  //        Set psToolTipTitle To "Page 2"
  //        Object oForm is a Form
  //            Set Label To "Page 2 form"
  //            Set Size  To 13 50
  //            Set Location To 25 100
  //        End_Object
  //    End_Object // oPage1
  //    Object oPage3 Is a cWinCTabPage
  //        Set Label To "Page 3"
  //        Set psToolTip To "Page 3 description"
  //        Set psToolTipTitle To "Page 3"
  //        Object oForm is a Form
  //            Set Label To "Page 3 form"
  //            Set Size  To 13 50
  //            Set Location To 25 100
  //        End_Object
  //    End_Object // oPage1
  //    Object oPage4 Is a cWinCTabPage
  //        Set Label To "Page 4"
  //        Set psToolTip To "Page 4 description"
  //        Set psToolTipTitle To "Page 4"
  //        Object oForm is a Form
  //            Set Label To "Page 4 form"
  //            Set Size  To 13 50
  //            Set Location To 25 100
  //        End_Object
  //    End_Object // oPage1
  //    Object oPage5 Is a cWinCTabPage
  //        Set Label To "Page 5"
  //        Set psToolTip To "Page 5 description"
  //        Set psToolTipTitle To "Page 5"
  //        Object oForm is a Form
  //            Set Label To "Page 5 form"
  //            Set Size  To 13 50
  //            Set Location To 25 100
  //        End_Object
  //    End_Object // oPage1
  //End_Object
  //AB-StoreEnd

End_Object    // oWinCTab


//AB-StoreStart

//AB-StoreEnd

//AB/ End_Object    // oIDE_Project