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