Gracias
Ya pude dibujar y rellenar el rectangulo solo al momento de dibujarlo, ahora la
Funcionalidad requerida es poder seleccionar el rectangulo dibujado
Y rellenarlo al esstilo autoforma de microsoft word, ademas de poder agrupar y desagrupar los rectangulos
Cita:
Empezado por ecfisa
Hola.
FloodFill es una función que ya existía en Turbo Pascal y sirve para pintar un área con la brocha actual.
Pintar un rectángulo amarillo con borde negro con FloodFill:
Código Delphi [-]
with Canvas do
begin
Brush.Color:= clYellow;
Rectangle(100,100,180,180);
FloodFill(110, 110, clBlack, fsSurface);
end;
Otra forma de hacer lo mismo:
Código Delphi [-]
var
R: TRect;
begin
with Canvas do
begin
Brush.Color:= clBlack;
Rectangle(10,10,80,80);
R.Left:= 11;
R.Top:= 11;
R.Right:= 79;
R.Bottom:= 79;
Brush.Color:= clYellow;
FillRect(R);
end;
O de igual modo:
Código Delphi [-]
with Canvas do
begin
Brush.Color := clYellow;
Brush.Style := bsSolid;
Pen.Color:= clBlack;
Rectangle(200, 200, 280, 280);
end;
Saludos.
|