There is a new FWPPC build with standard Win32 Progress Bars support that you may already download. Here it is how it looks like:
And this is the code in samples\TestProg.prg:
And this is the code in samples\TestProg.prg:
#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