COLOCAR UMA LINHA COLORIDA EM UMA LISTA

[mmsystems]

COMO COLOCAR UMA COR DIFERENTE E 1,2,3 OP????ES DE STATUS

[Suporte]

Olá,

Você pode estar usando o evento "GridConsultaDrawDataCell"

Ficaria com a seguinte codificação:

procedure TFormVendas.GridConsultaDrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
// Mostra cor cancelada! RED
if TabGlobal.DVENDAS.ECF_CANCELADA.Conteudo = 'S' then
begin
gridconsulta.Canvas.Font.Color := clRed;
Gridconsulta.DefaultDrawDataCell(Rect, Field, State);
end;

end;