Symbol MC3000

[Vikthor]

El equipo es :

Symbol ce 3000
SO 05.00.1400
Intel PXA270

[Antonio Linares]

Vikthor,

Si esas seis funciones que faltan no las usas, lo que puedes hacer es declararlas en tu PRG asi:

Code: Select all  Expand view  RUN

#pragma BEGINDUMP

void pascal SHCreateMenuBar( void ) {}
void pascal SHFindMenuBar( void ) {}
void pascal SHDoneButton( void ) {}
void pascal SHFullScreen( void ) {}
void pascal SHSipInfo( void ) {}
void pascal SHRecognizeGesture( void ) {}

#pragma ENDDUMP


Estas declaraciones no son correctas y de llamarse a estas funciones pueden generarse GPFs (al no estar correctamente declarados los parámetros) pero asi nos evitamos tener que incluir windows.h

[Vikthor]

Antonio :

La declaración correcta es :

Code: Select all  Expand view  RUN

#pragma BEGINDUMP

void SHCreateMenuBar( void ) {}
void SHFindMenuBar( void ) {}
void SHDoneButton( void ) {}
void SHFullScreen( void ) {}
void SHSipInfo( void ) {}
void SHRecognizeGesture( void ) {}

#pragma ENDDUMP


El ejemplo tutor10.prg ya corre en la Pocket.
Al fin aparece luz en el camino.

Muchas gracias Antonio

Saludos

[Antonio Linares]

Vikthor,

me alegro de que ya esté funcionando

Usé pascal pues el enlazador no les ponía subrayado delante a los símbolos no encontrados.

Habría que modificar esas funciones para que por lo menos muestren un mensaje, usando MessageBox() por si son llamadas, pues generarán un GPF (por descompensar la pila de C al no usar los parámetros correctos).

Poco a poco

[Vikthor]

Antonio :

El único control que no funciona correctamente es el menú.
Todos los demás controles trabajan sin problema.

Vikthor,

me alegro de que ya esté funcionando

Usé pascal pues el enlazador no les ponía subrayado delante a los símbolos no encontrados.

Habría que modificar esas funciones para que por lo menos muestren un mensaje, usando MessageBox() por si son llamadas, pues generarán un GPF (por descompensar la pila de C al no usar los parámetros correctos).

Poco a poco

[Antonio Linares]

Vikthor,

Prueba este código

test.prg

Code: Select all  Expand view  RUN

#include "FWCE.ch"

function Main()

   MsgInfo( CreateMenu() )

return nil

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

HB_FUNC( CREATEMENU )
{
   hb_retnl( ( unsigned long ) CreateMenu() );
}

#pragma ENDDUMP


Si muestra un handle válido entonces posiblemente tengamos que construir el menú igual que en un PC.