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
(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