Olá Pessoal, tenho uma telinha de filtros com caixas de seleção, o TCheckBox. Queria que as seleções do usuário não fossem desmarcadas ao confirmar a tela. Isso seria um modo do usuário saber quais filtros ele aplicou na Grid.

Já tenho um Botão que Limpa os filtros, desmarcando os botões e restaurando a Grid. agora preciso que as marcações se mantivessem, ao fechar a tela ou confirmar o filtro. Abaixo o fonte:

User Function FiltInt()
    Local cCSS     := "QPushButton { background-color: #f4f4f4}"
    Local oFont     := TFont():New("Arial",,-13,,.F.)
    Local bCancel     := {||oModal:DeActivate(),NIL,oBtnFil:SetCSS(cCSS) }
    Private oModal     As Object 
    Private oPanel     As Object  
    Private lCheck     As logical
    Private lCheck1     As logical
    Private lCheck2  As logical


    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,"Pedido de Compra em Branco"            ,{||lCheck},oPanel,180,210,,,oFont,{||lCheck1 := .T.},,,,.T.,,,)
      oCheck2 := TCheckBox():New(13,01,"Produto x Fornecedor em Branco"        ,{||lCheck},oPanel,180,210,,,oFont,{||lCheck2 := .T.},,,,.T.,,,)

    oModal:AddButton("Confirmar" ,{|| U_ConfSel(oModal)}, "Confirmar"    , , .T., .F., .T.,)
    oModal:AddButton("Limpar Filtro",{|| U_Limp()}         ,"Limpar filtros", , .T., .F., .T.,)
    oModal:AddButton("Cancelar"     , bCancel              ,"Cancelar"      , , .T., .F., .T.,)

    oModal:Activate()

Return