we are migrating our procedure from a terminal with windows ce 4.20 to a new terminal with windows ce 6.0
we have upgrade the FWPPC to the last version.
Now, we have a problem displaying the menu. We can see the main item of menu, but when we click on it don't display the popup with the sub-item.
We have the problem only with windows CE 6.0 because the same program works fine on old terminal.
- Code: Select all Expand view RUN
RESOURCE
#ifdef _CE
#include "c:\fwppc\vce\include\windows.h"
#include "c:\fwppc\vce\include\commctrl.h"
#endif
#define I_IMAGENONE (-2)
#ifdef _CE
102 RCDATA
{
102, 4,
I_IMAGENONE, 100, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 100, 0, 0,
I_IMAGENONE, 200, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 200, 0, 1,
I_IMAGENONE, 300, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 300, 0, 2,
I_IMAGENONE, 400, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 400, 0, 3
}
#endif
STRINGTABLE DISCARDABLE
{
100, "File"
200, "Inserimento"
300, "Lista"
400, "?"
}
102 MENU DISCARDABLE
{
POPUP ""
{
MENUITEM "&Esci", 110
MENUITEM "&Reindicizza", 120
}
POPUP ""
{
MENUITEM "&Salette Per Sogg.", 210
MENUITEM "S&alette Per Gabbia", 220
MENUITEM "&Porcilaie", 230
}
POPUP ""
{
MENUITEM "&Salette", 310
MENUITEM "&Porcilaie", 320
}
POPUP "?"
{
MENUITEM "&Informazioni", 410
}
}
// PRG
FUNCTION fMenu()
LOCAL oItem, oWnd, oMenu, oBmp
DEFINE BITMAP oBmp FILENAME SH_RISORSE+"SFONDO.BMP"
DEFINE MENU oMenu RESOURCE 102
REDEFINE MENUITEM oItem ID 110 OF oMenu ACTION (dbcloseall(), oWnd:end()) //File/Esci
REDEFINE MENUITEM oItem ID 120 OF oMenu ACTION (dbcloseall(), fReindi(VERO)) //File/Reindicizza
IF cCentro=="AR"
REDEFINE MENUITEM oItem ID 210 OF oMenu ACTION ( GSA03AR(oWnd, SALETTA) ) //Inserimento/Salette Per Sogg.
ELSE
REDEFINE MENUITEM oItem ID 210 OF oMenu ACTION ( GSA03RE(oWnd, SALETTA) ) //Inserimento/Salette Per Sogg.
ENDIF
REDEFINE MENUITEM oItem ID 220 OF oMenu ACTION ( GSA05(oWnd, SALETTA) ) //Inserimento/Salette Per Gabbia
IF cCentro=="AR"
REDEFINE MENUITEM oItem ID 230 OF oMenu ACTION ( GSA03AR(oWnd, PORCILAIA) ) //Inserimento/Porcilaie
REDEFINE MENUITEM oItem ID 310 OF oMenu ACTION ( GSA04AR(oWnd, SALETTA) ) //Lista/Salette
REDEFINE MENUITEM oItem ID 320 OF oMenu ACTION ( GSA04AR(oWnd, PORCILAIA) ) //Lista/Porcilaie
ELSE
REDEFINE MENUITEM oItem ID 230 OF oMenu ACTION ( GSA03RE(oWnd, PORCILAIA) ) //Inserimento/Porcilaie
REDEFINE MENUITEM oItem ID 310 OF oMenu ACTION ( GSA04RE(oWnd, SALETTA) ) //Lista/Salette
REDEFINE MENUITEM oItem ID 320 OF oMenu ACTION ( GSA04RE(oWnd, PORCILAIA) ) //Lista/Porcilaie
ENDIF
REDEFINE MENUITEM oItem ID 410 OF oMenu ACTION fAbout() //?
DEFINE WINDOW oWnd TITLE "Giro Sanitario" ;
MENU oMenu
oWnd:bKeyChar:={|nKey| fCtrlEsc(oWnd, nKey) }
ACTIVATE WINDOW oWnd;
ON PAINT oWnd:SayBitmap( 80, 9, oBmp ) //ON INIT fReindi()
DbCloseAll()
oBmp:End()
RETURN NIL
