FiveTech Support Forums

#include "FiveWin.ch"
#include "Tmpicker.ch"
#include "Dtpicker.ch"

FUNCTION MAIN()

    LOCAL oDlg,  cTime, dDate
        LOCAL oTime,  oDate
    cTime := Time()
    dDate := Date()

    DEFINE DIALOG oDlg

    @ 1,1 say "Time :" of oDlg
    @ 1,5 TMPICKER oTime var cTime of oDlg size 45,10

    @ 3,1 say "Date :" of oDlg
    @ 3,5 DTPICKER oDate var dDate of oDlg  size 45,10

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

#define DTS_UPDOWN                  1  // use UPDOWN instead of MONTHCAL
#define DTS_SHOWNONE                2  // allow a NONE or checkbox selection
#define DTS_SHORTDATEFORMAT         0  // use the short date format 
#define DTS_LONGDATEFORMAT          4  // use the long date 
#define DTS_SHORTDATECENTURYFORMAT 12  // short date format with century 
#define DTS_TIMEFORMAT              9  // use the time 
#define DTS_RIGHTALIGN             32  // right-align popup instead of left-align

METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, bValid, nClrFore,;
            nClrBack, oFont, lDesign, oCursor, lPixel, cMsg, lUpdate,;
            bWhen, bChange, nHelpId) Class TTimePick

   DEFAULT nRow     := 0, nCol := 0,;
           oWnd     := GetWndDefault(),;
           nWidth   := 100,;
           nHeight  := If( oFont != nil, oFont:nHeight, 22 ),;
           nClrFore := GetSysColor( COLOR_WINDOWTEXT ),;
           nClrBack := GetSysColor( COLOR_WINDOW ),;
           oFont    := oWnd:oFont,;
           nHelpId  := 100,;
           lDesign  := .f.,;
           lPixel   := .f.,;
           lUpdate  := .f.

   ::cCaption  = ""
   ::nTop      = nRow * If( ! lPixel, BTN_CHARPIX_H, 1 )
   ::nLeft     = nCol * If( ! lPixel, BTN_CHARPIX_W, 1 )
   ::nBottom   = ::nTop  + nHeight
   ::nRight    = ::nLeft + nWidth
   ::nHelpId   = nHelpId
   ::oWnd      = oWnd
   ::oFont     = oFont
   ::bSetGet   = bSetGet
   ::nStyle    = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, DTS_TIMEFORMAT, ;
                     If( lDesign, WS_CLIPSIBLINGS, 0 ) )

   ::nId       = ::GetNewId()
   ::lDrag     = lDesign
   ::lCaptured = .f.
   ::cMsg      = cMsg
   ::lUpdate   = lUpdate
   ::bWhen     = bWhen
   ::bValid    = bValid
   ::bChange   = bChange

   InitCommon()

   if ! Empty( oWnd:hWnd )
      ::Create( "SysDateTimePick32" )
      oWnd:AddControl( Self )
      if oFont != nil
         ::SetFont( oFont )
      endif
   else
      oWnd:DefControl( Self )
   endif

   if lDesign
      ::CheckDots()
   endif

return Self