Colorir Linha Dbgrid Itens Repetidos

Delphi

Firebird

04/06/2019

Boa noite!!!

Gostaria de saber como faço para colorir a linha no dbgrid dos itens que estão repetidos.Estou usando um select no evento OnDrawColumnCell mais não está dando certo.Alguém saberia me dizer como fazer.

procedure TfrmCompararXml.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    with DBGrid1 do
      begin
          cdsCompararXml.Close;
          cdsCompararXml.CommandText := 'select P_BARRAS1 from PRODUTOS group by P_BARRAS1 having Count(P_BARRAS1)>1';
          cdsCompararXml.Open;
      end;
    DBGrid1.Canvas.Font.Color := clRed;
    DBGrid1.DefaultDrawColumnCell( Rect, DataCol, Column, State);
end;
Bruno Henrique

Bruno Henrique

Curtidas 0

Respostas

Bruno Henrique

Bruno Henrique

04/06/2019

Bom dia!!!
Ainda sem solução!Se alguém conseguir ajudar!!! Grato
GOSTEI 0
Anderson Possamai

Anderson Possamai

04/06/2019

Uma ideia que me surgiu agora é a seguinte... crie um count no proprio sql, e no draw apenas verifique se for maior que 1, dai sim muda a cor...
Abracos
GOSTEI 0
POSTAR