Nuevo FWPPC build con barras de progreso

[Antonio Linares]

Ya hay disponible un nuevo build de FWPPC para descargar con soporte de barras de progreso. Así es cómo se ve:



Y este es el código en samples\TestProg.prg:

Code: Select all  Expand view

#include "FWCE.ch"

function Main()

   local oWnd, oPgr

   DEFINE WINDOW oWnd TITLE "Progress Bars"

   @ 2, 8 SAY "FiveWin for Pocket PC" OF oWnd SIZE 150, 20

   @ 4, 6 PROGRESS oPgr POS 5 OF oWnd SIZE 150, 15

   @ 5, 6 BUTTON "-" OF oWnd SIZE 20, 20 ;
      ACTION oPgr:nPosition--

   @ 5, 28 BUTTON "+" OF oWnd SIZE 20, 20 ;
      ACTION oPgr:nPosition++

   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "click!" )

return nil


[ramirezosvaldo]

Estimado Antonio

Excelente, lo unico es que no me funciona en my MC3000 de Symbol.

Me manda error : TPROGRESS .. Window Creation Error.

Creo que es por las lineas que incluyo :

* Funciones que no corren en Symbol MC3000
FUNCTION cesetmenu() ; RETURN NIL
FUNCTION getmenu() ; RETURN NIL
FUNCTION readbitmap() ; RETURN NIL
FUNCTION palbmpread() ; RETURN NIL


Por cierto Antonio, aun me crea una ventana de modo consola al inicio de cualquier app, Has visto algo para evitar esto ?

Saludos
Osvaldo Ramire

[Antonio Linares]

Osvaldo,

Has visto si alguna otra aplicación de las que vienen en el sistema operativo usa barras de progreso ?

En cuanto al problema de la ventana inicial, hemos buscado en google y encontramos otros usuarios que comentaban el mismo problema con otros lenguajes de programación. Por lo visto es algo específico de esa PDA. De todas formas a ver si encontramos alguna solución.

[ramirezosvaldo]

Estimado Antonio

Al parecer este modelo que tengo viene con un OS llamado CORE el cual es, menos que el profesional, y no trae muchas cosas, como navegador, word,excel. etc. Y pienso que es por eso.

No he visto ninguna app, aun que tenga barras.

De todos modos, estamos trabajando en ello.

Saludos
Osvaldo Ramirez