mjcramos Posted January 11, 2017 Share Posted January 11, 2017 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 Quote Link to comment Share on other sites More sharing options...
Sherzod Posted January 11, 2017 Share Posted January 11, 2017 Hi, We will analyze this issue. Best regards. Quote Link to comment Share on other sites More sharing options...
AdilsonReis Posted August 6, 2018 Share Posted August 6, 2018 Good morning, I really need this too. Any prevision? or is there anything else I can do? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.