FiveTech Support Forums

Function Main()
   Local oDlg
   Local nTOTX:=0
   Local nTOTY:=0
   Local lsave  :=.f.
   local oChk1 ,lChk1:=.f.

    local oChk2 ,lChk2:=.f.

    local oChk3 ,lChk3:=.f.

    local oChk4 ,lChk4:=.f.

    local oChk5 ,lChk5:=.f.

    local oChk6 ,lChk6:=.f.


   DEFINE DIALOG oDlg From 10, 4 to 28,70 TiTle "Configurazione della spiaggia"
    @ 1,2 say " Quantità delle file :"
    @ 2,2 say " Max quantità degli ombrelloni su ogni fila ( devi calcolare uno per ogni passerella) :"
    @ 1,10 GET nTOTY PICTURE "999"
    @ 2,28 GET nTOTX PICTURE "999"

    @ 3,2 say "Scegli gli elementi che vuoi impostare sulla spiaggia   :"
    @ 3.5,2 say "(non attiva in questa versione test)  "

    @ 5, 2 BITMAP Filename "SEDIA.bmp"  OF oDlg   NOBORDER TRANSPARENT
    @ 5, 7 BITMAP Filename "SDRAIO.bmp"  OF oDlg   NOBORDER TRANSPARENT
    @ 5, 12 BITMAP Filename "LETTINO.bmp"  OF oDlg   NOBORDER TRANSPARENT
    @ 5, 17 BITMAP Filename "BYCICLE.bmp"  OF oDlg   NOBORDER TRANSPARENT
    @ 5, 22 BITMAP Filename "OMBRELLONE_ROSSO.bmp"  OF oDlg   NOBORDER TRANSPARENT
    @ 5, 27 BITMAP Filename "HAWAIANO.bmp"  OF oDlg   NOBORDER TRANSPARENT

   @ 6.9, 3 CHECKBOX oChk1 VAR lChk1   PROMPT " " SIZE 100, 20 OF oDlg
   @ 6.9, 9 CHECKBOX oChk2 VAR lChk2   PROMPT " " SIZE 100, 20 OF oDlg
   @ 6.9, 15 CHECKBOX oChk3 VAR lChk3  PROMPT " " SIZE 100, 20 OF oDlg
   @ 6.9, 21 CHECKBOX oChk4 VAR lChk4  PROMPT " " SIZE 100, 20 OF oDlg
   @ 6.9, 27 CHECKBOX oChk5 VAR lChk5  PROMPT " " SIZE 100, 20 OF oDlg
   @ 6.9, 32 CHECKBOX oChk6 VAR lChk6  PROMPT " " SIZE 100, 20 OF oDlg


   @ 6, 2 BUTTON "&Conferma" OF oDlg ACTION (lsave:=.t., oDlg:End() )
   @ 6, 12 BUTTON "&Annulla" OF oDlg  ACTION (lsave:=.F., oDlg:End() )
   ACTIVATE DIALOG oDlg CENTERED
return nil