New FWPPC build with Progress Bars support

[Antonio Linares]

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:

Code: Select all  Expand view  RUN

#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