Ir al contenido


Foto

Eliminar o limpiar Canvas


  • Por favor identifícate para responder
3 respuestas en este tema

#1 Fleon

Fleon

    Advanced Member

  • Miembros
  • PipPipPip
  • 172 mensajes
  • LocationRepública Dominicana

Escrito 05 noviembre 2009 - 07:58

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

Fleon xD
  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.242 mensajes
  • LocationMéxico

Escrito 05 noviembre 2009 - 01:05

Hola

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



delphi
  1. //Creamos un rectangulo con el canvas
  2. procedure TForm1.Button1Click(Sender: TObject);
  3. begin
  4.   canvas.Brush.Color := clblack;
  5.   canvas.FillRect(Rect(100,30,300,35));
  6. end;
  7.  
  8. //Creamos otro rectangulo con el color de la forma y
  9. //"desaparece" el rectangulo negro :)
  10. procedure TForm1.Button2Click(Sender: TObject);
  11. begin
  12.   canvas.Brush.Color := clBtnFace;
  13.   canvas.FillRect(Rect(100,30,300,35));
  14. end;



Salud OS
  • 0

#3 Héctor Randolph

Héctor Randolph

    501st Legion

  • Moderador
  • PipPipPip
  • 664 mensajes
  • LocationMéxico

Escrito 05 noviembre 2009 - 01:27

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



delphi
  1.   InvalidateRect(Self.Handle,nil,true);



Saludos
  • 0

#4 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.242 mensajes
  • LocationMéxico

Escrito 05 noviembre 2009 - 03:02

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



delphi
  1.   InvalidateRect(Self.Handle,nil,true);



Saludos


Ah joder, que bueno que dije que era una chapuza la mia :D :D :D, muy bueno amigo Héctor (y)

Salud OS
  • 0