DTPicker in folder

[Pier Luigi]

DTPicker working fine, but in the folder no.

This is the code:

Code: Select all  Expand view

#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 )

This is the RC file:

Code: Select all  Expand view

#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
{
}


FWPPC shows this error:

Can't create dialogBox

Non defined Id
No: 101
stack calls:
TCONTROL:INITIATE(0)
TDATEPICK:INITIATE(0)
__OBJSENDMSG(0)
OSEND(0)
ASEND(0)
TFOLDER:INITDIALOGS(0)
MAIN(20)

Can you help me?

Regards
Pier Luigi

[Antonio Linares]

Pier,

Just call this function before creating the window:

Code: Select all  Expand view

   InitCommon()

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


[Pier Luigi]

Now working fine.

Many thanks.
Pier Luigi