FiveTech Support Forums

#include "FiveWin.ch"

function Main()

   local oDlg, oFnt, oFld, lVal := .T., cVar := space(25), ;
         cVar2 := space(25), nNivel:=1, lVar1:=.f., lVar2:=.t., lVar3:=.f.

   DEFINE FONT oFnt NAME "Tahoma" SIZE 0, -12
           
   DEFINE DIALOG oDlg SIZE 400, 300 FONT oFnt

   @ 0.5, 1 FOLDER oFld PROMPTS "One", "Two", "Three" SIZE 190, 120

   @ 1, 1  SAY "Hola1" SIZE 25, 12 OF oFld:aDialogs[ 1 ]

   @ 1, 10 GET      cVar                SIZE 80, 12 OF oFld:aDialogs[ 1 ]
           
   @ 3, 10 CHECKBOX lVal PROMPT "&Test" SIZE 80, 12 OF oFld:aDialogs[ 1 ]

   @ 5, 1  SAY "Hola2" SIZE 25, 12 OF oFld:aDialogs[ 1 ]

   @ 5, 10 GET      cVar2               SIZE 80, 12 OF oFld:aDialogs[ 1 ]

   @ 1,  1 SAY "&Name:" OF oFld:aDialogs[ 2 ]

   @ 1,  6 GET cVar OF oFld:aDialogs[ 2 ]

   @ 2,  1 SAY "&Address:" OF oFld:aDialogs[ 2 ]

   @ 2,  6 GET cVar2 OF oFld:aDialogs[ 2 ]

   @ 4,  1 CHECKBOX lVar1 PROMPT "&FivePro" OF oFld:aDialogs[ 2 ] SIZE 70, 11

   @ 5,  1 CHECKBOX lVar2  PROMPT "&Dialog"  OF oFld:aDialogs[ 2 ] SIZE 70, 11

   @ 6,  1 CHECKBOX lVar3 PROMPT "&Objects" OF oFld:aDialogs[ 2 ] SIZE 70, 11

   // ERROR EN EL RADIO: MENSAGERIA SE REPITA DOS VECES ???

   @ 4,  9 RADIO nNivel PROMPT "&Novice", "A&vanced", "&Expert" ;
           OF oFld:aDialogs[ 2 ]                                ;
           ON CHANGE( CAMBIA_FOLDER( oFld ) )
       
   @ 7.3, 14 BUTTON "&Ok" ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil

FUNCTION CAMBIA_FOLDER( oFld )

  ? [CAMBIA FOLDER SE REPITA DOS VECES????]

RETURN( .T. )