Botão Direito Marcar Todos Em Grid E Desmarcar Todos

[Guest - Luciana -]

Olá,

Adicionei em meu projeto um Grid e um popMenu, no popMenu coloquei uma opção Marcar / Desmarcar todos, e agora preciso criar uma função para que quando apertar em Marcar todos, todas as linhas da grid sejam marcadas (com a cor da fonte diferente) e desmarcar voltar a cor normal.

alguém já fez algo parecido?

Uso o componente TAdvStringGrid.

[Progr'amador]

Olá,

se for só pra mudar a cor fonte faz assim:

procedure TForm1.Marcar1Click(Sender: TObject);
begin
  AdvStringGrid1.Font.Color := clBlue;
end;

procedure TForm1.Desmarcar1Click(Sender: TObject);
begin
  AdvStringGrid1.Font.Color := clBlack;
end;

Abs. Progr'amador.

B)