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