A seguir, vejamos um exemplo utilizando Property Sheets.
$nolib
prog
func fverify(l)
sex=1
idade=1
cor=1
altu=1
peso=1
propsheet
caption "Características Físicas "
font "Arial Narrow"
verify fverify (sex,idade,cor,altu,peso)
Start 0
proppage 00,00,16,08
caption "Sexo"
style WS_POPUP WS_CAPTION DS_CENTER
GroupBox "" sex 02,01,18,04
RadioButton "&Homem" NULL 03,02,16,01
RadioButton "&Mulher" NULL 03,03,16,01
endproppage
proppage 00,00,16,08
caption "Idade"
style WS_POPUP WS_CAPTION DS_CENTER
GroupBox "" idade 02,01,18,05
RadioButton "Adulto " NULL 03,02,16,01
RadioButton "Adolescente" NULL 03,03,16,01
RadioButton "Criança " NULL 03,04,16,01
endproppage
proppage 00,00,16,08
caption "Cor"
style WS_POPUP WS_CAPTION DS_CENTER
GroupBox "" cor 02,01,18,06
RadioButton "Branco" NULL 03,02,16,01
RadioButton "Preto " NULL 03,03,16,01
RadioButton "Pardo " NULL 03,04,16,01
RadioButton "Outra " NULL 03,05,16,01
endproppage
proppage 00,00,16,08
caption "Altura"
style WS_POPUP WS_CAPTION DS_CENTER
GroupBox "" altu 02,01,18,05
RadioButton "Alto " NULL 03,02,16,01
RadioButton "Médio" NULL 03,03,16,01
RadioButton "Baixo" NULL 03,04,16,01
endproppage
proppage 00,00,16,08
caption "Peso"
style WS_POPUP DS_CENTER
GroupBox "" peso 02,01,18,05
RadioButton "Gordo" NULL 03,02,16,01
RadioButton "Médio" NULL 03,03,16,01
RadioButton "Magro" NULL 03,04,16,01
endproppage
endpropsheet
if PropButton() = 0 && cancel
return
endif
return
func fverify
parameters sex(n),idade(n),cor(n),altu(n),peso(n)
mens="sexo="+str(sex)+chr(10)+;
"idade="+str(idade)+chr(10)+;
"cor="+str(cor)+chr(10)+;
"altu="+str(altu)+chr(10)+;
"peso="+str(peso)
ret=MessageBox(mens,"Rotina chamada por Verify...","O","I")
return .f.
Observação
Veja como aparece uma das páginas (recortada) da Folha de Propriedades definida no programa acima:
