dbgrid con colores

[marcost]

Evento OnDrawColumnCell

 
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