Olá Pessoal, alguém sabe como posso limpar as seleções do CheckBox?, tenho um botão 'Limpar seleções', estou procurando exemplos e validações usando a classe TCheckBox mas não achei nada basicamente.
Se alguém tiver algum fonte usando TCheckBox, com alguma função que faça uma validação dependo da opção selecionada.
Agradeço!
User Function FiltInt()
Local cCSS := "QPushButton { background-color: #f4f4f4}"
Local oFont := TFont():New("Arial",,-13,,.F.)
Local oModal As Object
Local oPanel,oCheck1,oCheck2,oCheck3,oCheck4,oCheck5 As Object
Local lCheck As logical
Local bConf := {|| U_ConfRad(oModal)}
Local bLimp := {|| lCheck:= .F.}
Local bSair := {|| oModal:DeActivate(),NIL,oBtnFil:SetCSS(cCSS) }
oModal := FWDialogModal():New()
oModal:setEscClose(.T.)
oModal:setTitle("Filtros Inteligentes")
//Seta a largura e altura da janela em pixel
oModal:setSize(180, 190)
oModal:createDialog()//responsável por criar a janela e montar o painel.
oPanel := oModal:getPanelMain()
oCheck1 := TCheckBox():New(02,01,'item 1',{||lCheck},oPanel,180,210,,,oFont,,,,,.T.,,,{oCheck1:Refresh()})
oCheck2 := TCheckBox():New(13,01,'item 2',{||lCheck},oPanel,180,210,,,oFont,,,,,.T.,,,{oCheck2:Refresh()})
oCheck3 := TCheckBox():New(23,01,'Item 3',{||lCheck},oPanel,180,210,,,oFont,,,,,.T.,,,{oCheck3:Refresh()})
oCheck4 := TCheckBox():New(33,01,'Item 4',{||lCheck},oPanel,180,210,,,oFont,,,,,.T.,,,{oCheck4:Refresh()})
oCheck5 := TCheckBox():New(43,01,'Item 5',{||lCheck},oPanel,180,250,,,oFont,,,,,.T.,,,{oCheck5:Refresh()})
oModal:AddButton( 'Confirmar' , bConf , 'Confirmar' , , .T., .F., .T., )
oModal:AddButton( 'Limpar Filtro' , bLimp , 'Limpar filtros' , , .T., .F., .T., )
oModal:AddButton( 'Cancelar' , bSair , 'Cancelar' , , .T., .F., .T., )
oModal:Activate()
Return