FiveTech Support Forums

// FiveWin for Pocket PC - Testing radio buttons

#include "FWCE.ch"
#include "WinApi.ch"

//-------------------------------------------------------------------
FUNCTION Main()
LOCAL oWnd, nValue

DEFINE WINDOW oWnd TITLE "Test"
nValue := 1
@ 0,0 RADIO nValue  ;
      ITEMS "Uno", "Dos", "Tres" SIZE 80, 20 PIXEL COLOR "W+/B";
      ON CHANGE MsgBeep()

ACTIVATE WINDOW oWnd
RETURN NIL

#xcommand @ <nRow>, <nCol> RADIOITEM [ <oRadItem> PROMPT ] <cCaption> ;
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ RADIOMENU <oRadMenu> ] ;
             [ <help:HELPID, HELP ID> <nHelpId> ] ;
             [ <change: ON CLICK, ON CHANGE> <uChange> ] ;
             [ COLOR <nClrFore> [,<nClrBack>] ] ;
             [ MESSAGE <cMsg> ] ;
             [ <update: UPDATE> ] ;
             [ WHEN <uWhen> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ VALID <uValid> ] ;
             [ <lDesign: DESIGN> ] ;
             [ <lLook3d: 3D, _3D> ] ;
             [ <lPixel: PIXEL> ] ;
       => ;
          [<oRadItem> := ] TRadio():New( <nRow>, <nCol>, <cCaption>, .f., .f.,;
            Len( <oRadMenu>:aItems ) + 1, <oWnd>, <oRadMenu>,;
            [<nHelpId>], [<nClrFore>], [<nClrBack>], [<cMsg>], [<.update.>], [<{uWhen}>],;
            [<nWidth>], [<nHeight>], [<{uValid}>], [<.lDesign.>], [<.lPixel.>] );;
            AAdd( <oRadMenu>:aItems, ATail( <oWnd>:aControls ) )

   @ 8, 2 RADIOITEM "F&our" RADIOMENU oRadMenu SIZE 80, 15 OF oWnd