Evento OnDrawColumnCell
Código:
procedure TfMain.dbGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (Tabla.FieldByName ('importe').asCurrency > 0 then
TDBGrid (Sender).Canvas.Pen.Color := clRed
else
TDBGrid (Sender).Canvas.Pen.Color := clGreen;
end;
Eso deberia ser todo, por supuesto el grid debe tener la propiedad DefaultDrawing en False,
Eso de que la aplicacion se relentice al usar este evento me parece muy extraño
Suerte