FiveTech Software tech support forums

Function test()
Local  oDlg,oFont
Local oFld,oRad1,nCltipo:=1

 DEFINE DIALOG oDlg FROM 100, 100 TO 542,620;
                 STYLE DS_MODALFRAME + WS_POPUPWINDOW + WS_VISIBLE + WS_DLGFRAME + 4;
                 TITLE "test folder" PIXEL FONT oFont


    //---------------------------------------------------------------------------//

      @  105, 5 FOLDEREX oFld ;
        SIZE 250,  90 ;
        OF oDlg ;
         ITEMS "Sito Web","&Accesso internet","Archivio","Note" ;
        FONT oFont ;
        PIXEL
    //---------------------------------------------------------------------------//

    @ 82, 48 RADIO oRad1 VAR nCltipo PROMPT "&Sito Web" PIXEL SIZE 40, 12  OF oDlg;
                    ON CHANGE  ( oFld:nOption:=nCltipo, oFld:REFRESH())

         @ 82, 93 RADIOITEM "A&ccesso" RADIOMENU oRad1  PIXEL SIZE 40, 12   OF oDlg
         @ 82, 135 RADIOITEM "&Archivio" RADIOMENU oRad1  PIXEL SIZE 40, 12 OF oDlg
         @ 82, 185 RADIOITEM "Altro" RADIOMENU oRad1      PIXEL SIZE 40, 12    OF oDlg
 @ 5, 5 SAY "&Internet:" OF oFld:aDialogs[1] SIZE 50, 8 PIXEL
        @ 22, 5 SAY "&FTP:" OF oFld:aDialogs[1] SIZE 50, 8 PIXEL

    @ 5, 5 SAY "&Dns1:" OF oFld:aDialogs[2] SIZE 50, 8 PIXEL
    @ 5, 123 SAY "&Dns2:" OF oFld:aDialogs[2] SIZE 50, 8 PIXEL
    @ 22, 5 SAY "&S.SMTP:" OF oFld:aDialogs[2] SIZE 50, 8 PIXEL
    @ 39, 5 SAY "&S.POP:" OF oFld:aDialogs[2] SIZE 50, 8 PIXEL

      @ 5, 5 SAY "&File:" OF oFld:aDialogs[3] SIZE 50, 8 PIXEL
    @ 5, 5 SAY "&Note:" OF oFld:aDialogs[4] SIZE 50, 8 PIXEL
 ACTIVATE DIALOG oDlg

return nil

 @ 82, 48 RADIO oRad1 VAR nCltipo PROMPT "&Sito Web" PIXEL SIZE 40, 12  OF oFld:aDialogs[ 1 ] ;
                    ON CHANGE  ( oFld:nOption:=nCltipo, oFld:REFRESH())

         @ 82, 93 RADIOITEM "A&ccesso" RADIOMENU oRad1  PIXEL SIZE 40, 12   OF oFld:aDialogs[ 1 ]
         @ 82, 135 RADIOITEM "&Archivio" RADIOMENU oRad1  PIXEL SIZE 40, 12 OF oFld:aDialogs[ 1 ]
         @ 82, 185 RADIOITEM "Altro" RADIOMENU oRad1      PIXEL SIZE 40, 12    OF oFld:aDialogs[ 1 ]
 

ON CHANGE  ( oFld:SetOption( nCltipo ) )