Colorir Linha Dbgrid Itens Repetidos
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.
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
Curtidas 0
Respostas
Bruno Henrique
04/06/2019
Bom dia!!!
Ainda sem solução!Se alguém conseguir ajudar!!! Grato
Ainda sem solução!Se alguém conseguir ajudar!!! Grato
GOSTEI 0
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
Abracos
GOSTEI 0