Colorear formas irregulares en un PaintBox

[metalfox6383]

Hola:

He creado una forma irrgular en un componente PaintBox, y ahora quisiera colorearla. ¿Podrían decirme cuál es el método para lograrlo y cómo se utiliza?

Muchas gracias.

[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.

[metalfox6383]

Oh, gracias! No conocía el floodfill.