3 replies to this topic

[Fleon]

Hola amigos, he regresado con esta duda, yo creo un rectangulo con Canvas.FillRect, ¿cómo elimino o limpio ese rectángulo?.  :^)

Fleon xD

[egostar]

Hola

Pues podemos a manera de chapuza hacer esto, (no me imagino de otra forma)

delphi

//Creamos un rectangulo con el canvas
procedure TForm1.Button1Click(Sender: TObject);
begin
  canvas.Brush.Color := clblack;
  canvas.FillRect(Rect(100,30,300,35));
end;
 
//Creamos otro rectangulo con el color de la forma y 
//"desaparece" el rectangulo negro :)
procedure TForm1.Button2Click(Sender: TObject);
begin
  canvas.Brush.Color := clBtnFace;
  canvas.FillRect(Rect(100,30,300,35));
end;

Salud OS

[Héctor Randolph]

Si lo que deseas es limpiar por completo el Canvas del Form puedes usar esto:

delphi

  InvalidateRect(Self.Handle,nil,true);

Saludos

[egostar]

Si lo que deseas es limpiar por completo el Canvas del Form puedes usar esto:

delphi

  InvalidateRect(Self.Handle,nil,true);

Saludos

Ah joder, que bueno que dije que era una chapuza la mia , muy bueno amigo Héctor

Salud OS