borrar un poligono

[frf_84]

mirad tengo un dbgrig y cuando voy a selecinar un registro lo que hago es simplemente debujar con un componente de canvas llamado polyline cuando hago click me muestra el poligono con una forma similar a la de un rectangulo alrededor del registro (como yo queria), el problema que se me presenta (aunque parezca comico), es que cuando seleciono otro registro sobre el gird el poligono anterior me lo mantiene y medibuja otro nuevo, mi pregunta es ¿como puedo limpiar todos los poligonos?

[defcon1_es]

Hola,
puedes usar el método FloodFill del Canvas para "limpiarlo" antes de dibujar el polígono:

Código Delphi [-]
  Canvas.FloodFill(ClientWidth div 2, ClientHeight div 2, clWhite, fsBorder);

o también el método FillRect:

Código Delphi [-]
  Canvas.Brush.Color := clWhite; //No se si es necesaria esta línea...
  Canvas.Brush.Style := bsClear;
  Canvas.FillRect(Rect(0,0,ClientWidth, ClientHeight));

Salu2.