DTPicker in folder

[Pier Luigi]

DTPicker working fine, but in the folder no.

This is the code:

Code: Select all | Expand

#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 oWndRETURN ( nil )FUNCTION MenuEmpty()   LOCAL oMenu   DEFINE MENU oMenu RESOURCE 80RETURN ( oMenu )

This is the RC file:

Code: Select all | Expand

#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 _CE80 RCDATABEGIN   80, 0END#endifONE DIALOG 135, 63, 140, 142STYLE 0x4L | WS_CHILD{ CONTROL "", 101, "SysDateTimePick32", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 78, 21, 46, 11}TWO DIALOG 135, 63, 140, 142STYLE 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

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

[Pier Luigi]

Now working fine.

Many thanks.
Pier Luigi