New FWPPC build with Tabs

[Antonio Linares]

There is a new FWPPC build ready to be downloaded:

* New: FWPPC, function SerialNumber() returns the Pocket PC serial number if available. Thanks to Hathal.

* New: FWPPC, Class TTabControl, please review samples\TestTab.prg. This class will be involved in folders implementation. Warning: Folders are not available yet.

* Enhancement: FWPPC, function MsgInfo(), MsgAlert() and MsgStop() automatically convert parameters into strings, like FWH does it.

Code: Select all  Expand view  RUN

#include "FWCE.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "TabControl"
   
   @ 2, 2 TABCONTROL oTabs PROMPTS { "One", "Two", "Three" } ;
      OPTION 2 ACTION MsgInfo( oTabs:nOption ) ;
      SIZE 205, 80 OF oWnd
   
   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "Click!" )
   
return nil