Implementar "FloodFill" en CLX
 

Hola a tod@s de nuevo (soy un preguntón) :)

Alguien puede decirme como implementar la función FloodFill (del Canvas) en los objetos CLX? (o si hay una función parecida que haga lo mismo)

La he buscado en Delphi7 y por San Google y nada de nada

Yo hago esto y cuelgo el sistema :D:D:D (y además un manazas)

Código Delphi [-]
 procedure  rePintar( unCanvas:TCanvas; unColor:TColor );
 var
   colorMedio : TColor;
   puntoMedio : TPoint;
   X, Y       : integer;
 begin
   puntoMedio.X := unCanvas.ClipRect.Right  div 2;
   puntoMedio.Y := unCanvas.ClipRect.Bottom div 2;
   colorMedio   := unCanvas.Pixels[puntoMedio.X, puntoMedio.Y];
   for X:=0 to unCanvas.ClipRect.Right do
       for Y:=0 to unCanvas.ClipRect.Bottom do
           if( unCanvas.Pixels[X, Y]=colorMedio )
               then unCanvas.Pixels[X, Y] := unColor;
 end;

Gracias

Solucionado, es que llamaba a la función antes de obtener la imágen :confused: (ya dije que soy un manazas)

De todas formas insisto, ¿Como se puede implementar la función "FillFlood"?
De nuevo gracias