//AB/ Project Date/Time Pickers
//AB/ Object oIDE_Project is a View_Project
  //AB/ Set ProjectName to "Date/Time Pickers"
  //AB/ Set ProjectFileName to "cMonthCal.VW"
  //AB/ Set GenerateFileName to "NONAME2"

// Project Object Structure
//   oDateTime is a dbView
//     oMonthCal4 is a cMonthCal
//     oWinTextBox1 is a cWinTextBox
//     oFrom is a Form
//     oTextBox1 is a Textbox
//     oTo is a Form
//     oDateTimePick1 is a cDateTimePick
//     oDateTimePick2 is a cDateTimePick
//     oWinLink1 is a cWinLink
//     oWinLink2 is a cWinLink

// Register all objects
Register_Object oDateTime
Register_Object oDateTimePick1
Register_Object oDateTimePick2
Register_Object oFrom
Register_Object oMonthCal4
Register_Object oTextBox1
Register_Object oTo
Register_Object oWinLink1
Register_Object oWinLink2
Register_Object oWinTextBox1

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


ACTIVATE_VIEW Activate_oDateTime FOR oDateTime

Object oDateTime is a dbView
  Set Border_Style to Border_Thick
  Set Maximize_Icon to TRUE
  Set Label to "Date/Time Picker and Calendar"
  Set Location to 0 0
  Set Size to 165 355
  Set piMinSize to 165 355

  //AB-DDOStart


  //AB-DDOEnd

  Object oMonthCal4 is a cMonthCal
    Set Location to 70 7
    Set pbMultiSelect to TRUE
    Set Selection_Count to 7
    Set piFirstDayOfWeek to MCD_SUNDAY
    Set piMonthCount to 2

    //AB-StoreStart
    Procedure OnSelect Date dFrom Date dTo
        Set Value of oFrom To dFrom
        Set Value of oTo   To dTo
    End_Procedure

    //AB-StoreEnd

  End_Object    // oMonthCal4

  Object oWinTextBox1 is a cWinTextBox
    Set Location to 2 3
    Set Size to 11 96
    Set TextColor to clWhite
    Set Gradient_Mode to GRADIENT_LEFTRIGHT
    Set GradientFromColor to clGreen
    Set Label to "Date/Time Pickers"
    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

    //AB-StoreEnd

  End_Object    // oWinTextBox1

  Object oFrom is a Form
    Set Size to 13 54
    Set Location to 48 8
    Set Form_DataType to date_window

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

  End_Object    // oFrom

  Object oTextBox1 is a Textbox
    Set Label to "-- --"
    Set Location to 50 66
    Set Size to 10 11
    Set TypeFace to "MS Sans Serif"
  End_Object    // oTextBox1

  Object oTo is a Form
    Set Size to 13 53
    Set Location to 48 83
    Set Form_DataType to date_window

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

  End_Object    // oTo

  Object oDateTimePick1 is a cDateTimePick
    Set Location to 31 9
    Set Size to 14 69

    //AB-StoreStart

    //AB-StoreEnd

  End_Object    // oDateTimePick1

  Object oDateTimePick2 is a cDateTimePick
    Set Location to 31 79
    Set Size to 14 57
    Set pbUpDown to TRUE
    Set pbTimeFormat to TRUE

    //AB-StoreStart

    //AB-StoreEnd

  End_Object    // oDateTimePick2

  Object oWinLink1 is a cWinLink
    Set Location to 2 275
    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    // oWinLink1

  Object oWinLink2 is a cWinLink
    Set Location to 12 263
    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    // oWinLink2


  //AB-StoreStart

  //AB-StoreEnd

End_Object    // oDateTime

//AB/ End_Object    // oIDE_Project