[ecfisa]

Hola.

Te pongo un ejemplo símple.

Código Delphi [-]

procedure TForm1.Button2Click(Sender: TObject);
begin
  with PaintBox1.Canvas do
  begin
    Pen.Color:= clBlue; // Color de línea
    // Imágen irregular
    MoveTo(15, 20);
    LineTo(80, 20);
    LineTo(60, 200);
    LineTo(15, 20);
    Brush.Color:= clAqua;// Color brocha
    FloodFill(35, 35, clBlue, fsBorder); // rellenar
  end;
end;

Las coordenadas X e Y de FloodFill pueden ser arbitrarias, pero siempre que estén comprendidas dentro del perímetro de la figura.


Saludos.