I cannot click the checkbox
- Code: Select all Expand view
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
