//AB/ Project cFolderTabs
//AB/ Object oIDE_Project is a View_Project
  //AB/ Set ProjectName to "cFolderTabs"
  //AB/ Set ProjectFileName to "cFolderTabs.VW"
  //AB/ Set GenerateFileName to "NONAME4"

// Project Object Structure
//   oFolderTabs is a dbView
//     oWinTextBox1 is a cWinTextBox
//     oContainer3d1 is a Container3d
//       oEdit2 is a Edit
//     oWinFolderTabs2 is a cWinFolderTabs
//     oWinLink1 is a cWinLink
//     oWinLink2 is a cWinLink

// Register all objects
Register_Object oContainer3d1
Register_Object oEdit2
Register_Object oFolderTabs
Register_Object oWinFolderTabs2
Register_Object oWinLink1
Register_Object oWinLink2
Register_Object oWinTextBox1

//AB-IgnoreStart
Use dfClient.pkg
Use cWinTextBox.pkg
Use Windows.pkg
Use cWinFolderTabs.pkg
Use cWinLink.pkg
//AB-IgnoreEnd


ACTIVATE_VIEW Activate_oFolderTabs FOR oFolderTabs

Object oFolderTabs is a dbView
  Set Border_Style to Border_Thick
  Set Maximize_Icon to TRUE
  Set Label to "Folder Tabs"
  Set Location to 0 0
  Set Size to 160 350
  Set piMinSize to 160 350

  //AB-DDOStart


  //AB-DDOEnd

  Object oWinTextBox1 is a cWinTextBox
    Set Location to 2 3
    Set Size to 11 93
    Set TextColor to clWhite
    Set Gradient_Mode to GRADIENT_VERTICAL
    Set GradientFromColor to clNavy
    Set GradientToColor to clMaroon
    Set Label to "Folder Tabs"
    Set FontSize to 32 0
    Set FontWeight to 800
    Set TypeFace to "Arial"
    Set Border_Style to BORDER_NORMAL
    Set Border_Color to clNavy
    Set pbAutoStatusHelpAsToolTip to FALSE

    //AB-StoreStart
    Procedure OnResize
            Showln 'Resize'
    End_Procedure
    //AB-StoreEnd

  End_Object    // oWinTextBox1

  Object oContainer3d1 is a Container3d
    Set Size to 114 343
    Set Location to 33 3
    Set Color to clWhite
    Set peAnchors to anAll
    Set Border_Style to Border_StaticEdge
    Object oEdit2 is a Edit
      Set Size to 113 336
      Set Location to 0 6
      Set peAnchors to anAll
      Set Border_Style to Border_None

      //AB-StoreStart
      Set File_Name To "cWinButton.txt"
      Send Read
      //AB-StoreEnd

    End_Object    // oEdit2

  End_Object    // oContainer3d1

  Object oWinFolderTabs2 is a cWinFolderTabs
    Set Location to 146 3
    Set Size to 13 343
    Set peAnchors to anBottomLeftRight
    Set piTabsColor to clBtnFace
    Set piSelectedItemColor to clWhite

    //AB-StoreStart
    Procedure mBtn
        Set File_Name of oEdit2 To "cWinButton.txt"
        Send Read of oEdit2
    End_Procedure
    Procedure mDT
        Set File_Name of oEdit2 To "cDateTimePick.txt"
        Send Read of oEdit2
    End_Procedure
    Procedure mFT
        Set File_Name of oEdit2 To "cWinFolderTabs.txt"
        Send Read of oEdit2
    End_Procedure
    Procedure DoCreateControl
        // How to add items (tabs) to the control
        Send Add_Item Msg_mBtn "Buttons"
        Set Tooltip_value 0 To "WindowsEx Button"
        Send Add_Item Msg_mDT "Date/Time Pickers"
        Set Tooltip_value 1 To "WindowsEx Date/Time Pickers"
        Send Add_Item Msg_mFT "Folder Tabs"
        Set Tooltip_value 2 To "WindowsEx Folder Tabs"
        //Set Value item 0 to "Tab 0"
        //Set ItemColor item 0 to clMaroon
        //Set ItemTextColor item 0 to clWhite
        //Set ToolTip_Value item 0 to "Tab 0 tooltip"
        //Set item_shadow_state item 0 to False
        //Set aux_value item 0 to Msg_None
    End_Procedure
    Send DoCreateControl

    // Events
    // 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
    //End_Procedure

    // 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

    // The OnMouseLeave message is posted to a window when the cursor
    // leaves the client area of the window
    //Procedure OnMouseLeave
    //End_Procedure

    // The OnItemChanging message is sent when user pressed mouse button
    // to change current selected item.
    //Procedure OnItemChanging Integer iNewItem Integer iOldItem - Procedure
    //End_Procedure

    // The OnItemChanged event is sent when tab button actually changed
    // by user action.
    //Procedure OnItemChanged Integer iNewItem Integer iOldItem - Procedure
    //End_Procedure

    // The OnClick event will be sent when user clicked on appropriate tab.
    // Tab item number will be passed as parameter. If you will set item
    // message (see Add_Item method) and Aux_Value property, by default
    // this event will send specified message to the object, specified in
    // Aux_Value property.
    //Procedure OnClick Integer iItem
    //End_Procedure

    //AB-StoreEnd

  End_Object    // oWinFolderTabs2

  Object oWinLink1 is a cWinLink
    Set Location to 12 258
    Set Size to 12 89
    Set TextColor to clNavy
    Set pbHotTrack to TRUE
    Set Visited_Color to 11882421
    Set Label to "www.vdf-guidance.com"
    Set TypeFace to "MS Sans Serif"
    Set FontUnderline to TRUE
    Set LinkTextAlign to BTA_RIGHT
    Set piCursor to BUTTON_IDC_HAND
    Set psToolTip to "Visit us on the Web!"
    Set psURL to "www.vdf-guidance.com"
    Set peAnchors to anTopRight
    Set Pointer_Only_State to TRUE
    Set pbAutoStatusHelpAsToolTip to FALSE

    //AB-StoreStart

    //AB-StoreEnd

  End_Object    // oWinLink1

  Object oWinLink2 is a cWinLink
    Set Location to 2 270
    Set Size to 12 77
    Set TextColor to 213
    Set pbHotTrack to TRUE
    Set piHotColor to clRed
    Set Label to "Hot technical support"
    Set TypeFace to "MS Sans Serif"
    Set FontUnderline to TRUE
    Set LinkTextAlign to BTA_RIGHT
    Set piCursor to BUTTON_IDC_HELP
    Set peAnchors to anTopRight
    Set Pointer_Only_State to TRUE
    Set pbAutoStatusHelpAsToolTip to FALSE

    //AB-StoreStart
    Procedure OnClick
        String sMsg
        Move (sMsg+"No, Thanks!\n\nI'm only happy to receive from you bug fixes or improvements. Suggestions and bug\n") to sMsg
        Move (sMsg+"reports also welcome, but I do not promis to fix it quickly!\n\n") to sMsg
        Move (sMsg+"Also notice, this is windows API controls and NOT TESTED for all possible Windows and           \n") to sMsg
        Move (sMsg+"Visual Dataflex(r) environments. Use it on your own risk!\n\n") to sMsg
        Move (sMsg+"Thank you for understanding,\n") to sMsg
        Move (sMsg+"Sergey V. Natarov (senatc@postman.ru)\n\n") to sMsg
        Move (sMsg+"Great contributions made by Wil van Antwerpen, Bernhard Ponemayr, Michael Kurz, \n") to sMsg
        Move (sMsg+"Oliver T. Nelson and other famous dataflex developers.") to sMsg
        Send Stop_Box sMsg "Technical support"
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oWinLink2


  //AB-StoreStart

  //AB-StoreEnd

End_Object    // oFolderTabs

//AB/ End_Object    // oIDE_Project