preguntas y problemas(bugs) varios - (arreglado)

[astursoft]

Primero una pregunta :
como es el rendimiento en velocidad de ejecucion de una aplicacion en el pocket respecto al emulador ( ya se que depende del pc , tengo un AMD atlon64 +1Mg. ) , nada cientifico , sino mas o menos .
Ahora los problemillas ( en la última versión del 14 ) :
En este codigo :

#include "FWCE.ch"

#xcommand DEFAULT <v1> TO <x1> [, <vn> TO <xn> ] => ;
IF <v1> == NIL ; <v1> := <x1> ; END ;
[; IF <vn> == NIL ; <vn> := <xn> ; END ]


REQUEST DBFCDX
//----------------------------------------------------------------------------//
Static cPath
function Main()
local oWnd

REQUEST HB_LANG_ES
SET DELETED ON
SET EPOCH TO 1990
SET CENTURY ON
SET DATE ITALIAN
HB_LANGSELECT("ES")


cPath := Curdir()+"\"

DEFINE WINDOW oWnd TITLE "Minpda"


@ 15, 20 BTNBMP FILE CPath+ "bmp\users.bmp" ;
PROMPT "Clientes" TOP ;
SIZE 60, 60 ;
ACTION Eligefichacli()

@ 15, 90 BTNBMP FILE CPath+"bmp\search.bmp" ;
PROMPT "Articulos" TOP ;
SIZE 60, 60 ;
ACTION msginfo("1")

@ 15, 160 BTNBMP FILE Cpath+"bmp\pedidos.bmp" ;
PROMPT "Pedidos" TOP ;
SIZE 60, 60 ;
ACTION msginfo("pedidos")

@ 80, 20 BTNBMP FILE CPath+ "bmp\recibe.bmp" ;
PROMPT "Actualizar" TOP ;
SIZE 60, 60 ;
ACTION ( msginfo("actualizar"))

@ 80, 90 BTNBMP FILE CPath+ "bmp\envio.bmp" ;
PROMPT "Enviar" TOP ;
SIZE 60, 60 ;
ACTION (msginfo("Enviar"))

@ 80, 160 BTNBMP FILE Cpath + "bmp\setup.bmp" ;
PROMPT "Indices" TOP ;
SIZE 60, 60 ;
ACTION msginfo("indices")

@ 145, 90 BTNBMP FILE Cpath + "bmp\Salir.bmp" ;
PROMPT "Salir" TOP ;
SIZE 60, 60 ;
ACTION oWnd:end()

ACTIVATE WINDOW oWnd ;
ON CLICK msginfo()


msginfo("sale")

return nil

//----------------------------------------------------------------------------//



Function Eligefichacli()

local cPath := Curdir()+"\"
local ownd1, ofont

DEFINE FONT oFont NAME "Arial" SIZE 0, -14

DEFINE WINDOW oWnd1 TITLE "Tipo ficha cliente"


@ 1, 1 SAY " Escoja el Tipo de Ficha a Ver" SIZE 290, 20 COLOR "b+/w" FONT oFont

@ 80, 20 BTNBMP FILE CPath+ "bmp\users.bmp" ;
PROMPT "General" TOP ;
SIZE 60, 60 ;
ACTION msginfo("Fichacli" )

@ 80, 90 BTNBMP FILE CPath+ "bmp\banco.bmp" ;
PROMPT "Bancarios" TOP ;
SIZE 60, 60 ;
ACTION msginfo("banco" )

@ 80, 160 BTNBMP FILE Cpath + "bmp\varios.bmp" ;
PROMPT "Otros" TOP ;
SIZE 60, 60 ;
ACTION (msginfo("Otros"))


@ 145, 90 BTNBMP FILE Cpath + "bmp\Salir.bmp" ;
PROMPT "Salir" TOP ;
SIZE 60, 60 ;
ACTION oWnd1:end()


ACTIVATE WINDOW oWnd1 ;
ON CLICK msginfo("escoja una opcion")

msginfo("2222")

return nil

//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//

Sigue el problema con los btnbmp .si pulso el boton 1 que accede al menu 2 , al presentarlo falta el boton salir .

Por otro lado si me salgo desde el menu 2 (cerrando wnd2) , tambien se sale del bucle de ventana 1 ( me emite em mensaje cerrar del final ) , lo que me produce problemas ya que realmente estaria un close de base de datos ( se resolvería con valid) .
Parece como que la ventana no fuera del todo modal , pero puede que el problema se desencadene por la falta del boton salir .(antes de incluir este menu grafico de botones no me daba ninigun error )

No se si se me entiende bien .
Saludso.

[Antonio Linares]

Primero una pregunta :
como es el rendimiento en velocidad de ejecucion de una aplicacion en el pocket respecto al emulador ( ya se que depende del pc , tengo un AMD atlon64 +1Mg. ) , nada cientifico , sino mas o menos.

En el Pocket PC real funciona bastante más rápido (nosotros tambien usamos un AMD + 1 Mg. para el emulador).

Ahora los problemillas ( en la última versión del 14 ):

Vamos a revisarlo y te contestamos cuanto antes.

[Antonio Linares]

Acabamos de publicar un nuevo build de FWPPC que soluciona el problema que comentas de los botones, también verás que ya no se sale desde una segunda, tercera, etc. ventana.

Por favor pruébalo y nos comentas que tal te funciona. Gracias!

[astursoft]

Perfecto !!!
Aprobecho el post para hacer otra tanda de preguntas :

Si ejecuto msginfo(cDow(date())) , de da algo como " Mi,rcoles" , tengo puesto HB_LANGSELECT("ES") .

Para alinear los listbox : oBrw:aJustify:= { .f., .t. , .t. } , pero para centrar ? (si pongo 2 , me da error )

Necesito poner un texto largo en un get (campo observaciones ) y pensaba en usar un get multilinea (desde codigo) , ¿ Está implementado ya ?

Por último , para fechas tendre que implementar un msgcalendar de momento o pensais implementar el datepicker en breve ?
Perdon por tanta pregunta y Gracias por un soporte tan eficiente .

Saludos.

[Antonio Linares]

Si ejecuto msginfo(cDow(date())) , de da algo como " Mi,rcoles" , tengo puesto HB_LANGSELECT("ES").

Tienes que usar "ESWIN" en vez de "ES":

REQUEST HB_LANG_ESWIN

HB_LANGSELECT( "ESWIN" )

Vamos a revisar lo demás que nos comentas.