Checkbox no quantum grid

[Bruno Augusto Costa 0]

Tive que adicionar em uma coluna a prorpiedade checkbox, e preciso criar um botao que marque todos esses itens da lista, eu criei uma rotina que faz o seguinte:

 

Q_Clientes.First;While (not Q_Clientes.EOF) dobegin   if (Q_Clientes.State in [dsInsert]) then	  Q_Clientes.Edit;   Q_Clientes.FieldByName('Imprimir').AsFloat := 1; //no caso 1 é quando esta marcado e 0 para desmarcado   Q_Clientes.Post;   Q_Clientes.Next;end;

o codigo ta no evento onclick do botao.

beleza esse código teria que resolver o problema, só que no quantum grid ele nao atualiza o check, tenho q sair e entrar novamente no form.

Alguem já passou por isso ???

Estou utilizando delphi 5, um Componente TQuery e um DataSource e o quantum grid.

 

Obrigado!!

Abraçoss!!!!

[marcio.theis 3]

Logo após do while faz um close e open da query, deve de resolver...

[Bruno Augusto Costa 0]

então o problema q nao posso fechar e abrir aquery pois tenho um filtro com 3 opções que alteram a query para mostrar no grid, dai os dados se fechar e abrir a query vão sair do grid e só apareceram se mudar a opção de filtro, gostaria de fazer isso somente para selecionar, para o usuario poder se quiser, retirar algum da lista....espero ter esclarecido a situação.!!!Help me!!!Agraços!!!!

[marcio.theis 3]

Tente então um

query.Refresh;

[Bruno Augusto Costa 0]

RESOLVIDOOO!!!!

 

Vai o código do problema solucionado, havia esquecido de colocar duas linhas, o Q_Cliente.DisableControls, e o Q_Cliente.EnableControls.

 

Q_Clientes.DisableControls;Q_Clientes.First;While (not Q_Clientes.EOF) dobegin   if (Q_Clientes.State in [dsInsert]) then	  Q_Clientes.Edit;   Q_Clientes.FieldByName('Imprimir').AsFloat := 1; //no caso 1 é quando esta marcado e 0 para desmarcado   Q_Clientes.Post;   Q_Clientes.Next;end;Q_Clientes.EnableControls;

Com isso, o check box do grid é atualizado quando se clica no botão!!

 

Espero ajudar alguem!!!!

 

Abraços!!