COLOCAR UMA LINHA COLORIDA EM UMA LISTA
Enviado: Abril 23rd, 2011, 2:32 pm
COMO COLOCAR UMA COR DIFERENTE E 1,2,3 OP????ES DE STATUS
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;