Buscar por:

Mudando a cor de um linha ou célula de um dbgrid, conforme o seu conteúdo.

Código

// *** muda a cor somente da célula

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

  if (Column.Field.FieldName = 'Pago') then

begin

if table1.FieldByName('pago').AsString = 'sim' then

begin

dbgrid1.Canvas.Font.Color := clBlue;

dbgrid1.Canvas.Font.Style :=[fsBold];

dbgrid1.Canvas.FillRect(Rect);

dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end

else

begin

dbgrid1.Canvas.Font.Color:= clRed;

dbgrid1.Canvas.FillRect(Rect);

dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

end;

end;

// *** muda a cor de toda a linha

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;

  Field: TField; State: TGridDrawState);

begin

if table1.FieldByName('pago').AsString = 'sim' then

begin

dbgrid1.Canvas.Font.Color := clBlue;

dbgrid1.Canvas.Font.Style :=[fsBold];

dbgrid1.Canvas.FillRect(Rect);

dbgrid1.DefaultDrawDataCell(Rect,Field,State);

end

else

begin

dbgrid1.Canvas.Font.Color:= clRed;

dbgrid1.Canvas.FillRect(Rect);

dbgrid1.DefaultDrawDataCell(Rect,Field,State);

end;

end;