unidbgrid Different colors on the lines

[mjcramos]

I need a help, I'm creating a query screen of titles and I need to differentiate the records with different colors, until then it worked, but when I activate rowselect the selected line becomes transparent, if I had like to paint it of another color, I'm sending an example would be in the DrawColumnCell event

 

procedure TMainForm.UniDBGrid1DrawColumnCell(Sender: TObject; ACol,
  ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);
begin
//  If gdSelected in State then   //
//    Attribs.Color := clBlue;
  if Column.Field.DataSet.FieldByName('VENCIMENTO').value <  date then
    Attribs.Color := $007085FE
  else if Column.Field.DataSet.FieldByName('VENCIMENTO').value =  date then
    Attribs.Color := $0063FE8A
  else if Column.Field.DataSet.FieldByName('VENCIMENTO').value >  date then
    Attribs.Color := $00FFAC88;
end;

Projeto.rar

[Sherzod]

Hi,

 

We will analyze this issue.

 

Best regards.

[AdilsonReis]

Good morning, I really need this too. Any prevision? or is there anything else I can do?