Colorir Linha Dbgrid Itens Repetidos

04/06/2019

13

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;
Responder

Posts

05/06/2019

Bruno Henrique

Bom dia!!!
Ainda sem solução!Se alguém conseguir ajudar!!! Grato
Responder
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
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar