Page 1 of 1

New FWPPC build with Progress Bars support

Posted: Mon Jan 30, 2006 11:58 am
by 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:

Image

And this is the code in samples\TestProg.prg:

Code: Select all

#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