FiveTech Support Forums

#Include "Fivewin.ch"


Function Main()

   Local oFrmVds,oFld1,oCbx1 ,nCbx1 :=2
     aProfessione  :={"Giovane","Pensionato","Studente","Esperto","Obiettore","Regionale"}


Define DIALOG oFrmVds TITLE "  - TEST FOLDER- " ;
       FROM 452, 774 to 950, 1539 PIXEL COLOR 0, 14215660

@  50,   3 FOLDER oFld1 Items "&Anagrafica",;
                                 "Dettagl&i",;
                                 "&Alunni",;
                                 "&Notizie mediche",;
                                 "C&orsi effettuati",;
                                 "Al&tri",;
                                 "&Note";
              SIZE 263, 180 PIXEL;
              OF oFrmVds COLOR 0, 14215660


         @   27,  95 SAY "&Tipo :" SIZE  45,   7 PIXEL  OF oFrmVds COLOR 0, 14215660
         @   26,  110 COMBOBOX oCbx1 VAR nCbx1 ITEMS aProfessione SIZE  56,  40 PIXEL OF oFrmVds COLOR 0, 16777215 ;
   BITMAPS { ".\bitmaps\mini\MINI_giovane.bmp",;
             ".\bitmaps\mini\MINI_pensionato.bmp",;
             ".\bitmaps\mini\MINI_studente.bmp",;
             ".\bitmaps\mini\MINI_esperto.bmp",;
             ".\bitmaps\mini\MINI_obiettore.bmp",;
             ".\bitmaps\mini\MINI_regionale.bmp" } ;
              ON CHANGE( iif(oCbx1:nat=1, oFld1:aEnable := { .T., .T., .F., .T., .T., .T., .T.},) ,;
                                iif(oCbx1:nat=2, oFld1:aEnable := { .T., .T., .F., .T., .T., .T., .T.},) ,;
                                iif(oCbx1:nat=3, oFld1:aEnable := { .T., .T., .T., .T., .T., .T., .T.},) ,;
                                iif(oCbx1:nat=4, oFld1:aEnable := { .T., .T., .F., .T., .T., .T., .T.},) ,;
                                iif(oCbx1:nat=5, oFld1:aEnable := { .T., .T., .F., .T., .T., .T., .T.},) ,;
                                iif(oCbx1:nat=6, oFld1:aEnable := { .T., .T., .F., .T., .T., .T., .T.},) ,;
                                )


ACTIVATE DIALOG oFrmVds   RESIZE16 CENTERED