FiveTech Software tech support forums

Code: Select all

#include "FWCE.ch"

FUNCTION Main()

   LOCAL oWnd, oFld, oDate
   LOCAL dDate := DATE()

   DEFINE WINDOW oWnd TITLE "DTPICKER" MENU MenuEmpty()

      @ 0,-0.5 FOLDER oFld PROMPTS "One", "Two" ;
                           DIALOGS "ONE", "TWO" ;
                           SIZE 247, 270 BOTTOM

      REDEFINE DTPICKER oDate VAR dDate ID 101 OF oFld:aDialogs[1]

      oFld:aDialogs[1]:Move(0,0)
      oFld:aDialogs[2]:Move(0,0)

      oFld:InitDialogs()

   ACTIVATE WINDOW oWnd

RETURN ( nil )

FUNCTION MenuEmpty()

   LOCAL oMenu

   DEFINE MENU oMenu RESOURCE 80

RETURN ( oMenu )

Code: Select all

#ifdef _CE
   #include "c:\vce\include\arm\windows.h"
   #include "c:\vce\include\arm\commctrl.h"
#endif

#define I_IMAGENONE		(-2)
#define IDS_HELP      104

#ifdef _CE

80 RCDATA
BEGIN
   80, 0
END

#endif

ONE DIALOG 135, 63, 140, 142
STYLE 0x4L | WS_CHILD
{
 CONTROL "", 101, "SysDateTimePick32", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 78, 21, 46, 11
}

TWO DIALOG 135, 63, 140, 142
STYLE 0x4L | WS_CHILD
{
}

Code: Select all

   InitCommon()

   DEFINE WINDOW oWnd TITLE "DTPICKER" MENU MenuEmpty() 
   ...