https://foro.gambas-es.org/viewtopic.php?f=1&t=4832
-----------------------------------
tercoIDE
Martes, 25 Agosto 2015, 17:32

Como Borro Un Area En La Que Estoy Dibujando Con Paint?
-----------------------------------
otra preguntonta:

estoy dibujando en una DrawingArea

Paint.Begin(pizarron)

.
.
Paint.end

hermoso, ahora, quiero re-dibujar, pero primero borrando lo que habia:

Paint.Clear ' a diferencia de la clase Draw, aqui no existe  ---> Error!


-----------------------------------
jsbsan
Martes, 25 Agosto 2015, 18:00

Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
-----------------------------------
tercoIde:

Yo lo que hago es dibujar un rectangulo relleno de color blanco del tamaño de la zona que quiero borrar (o de toda la extensión del DrawingArea), asi "borro" 

Saludos

Julio


-----------------------------------
vuott
Martes, 25 Agosto 2015, 20:22

Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
-----------------------------------
...una otra posibilidad...con un [i]Return[/i]....  :neutral: 

[code linenumbers=false syntax=gambas]Private a As Byte


Public Sub DrawingArea1_Draw()

 Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]
 Dim p As Float[] = [0, 0.34, 0.67, 1]

  With Paint
      If a = 1 Then
      Return
    Else
      .Brush = .LinearGradient(10, 40, 300, 40, c, p)
      .Rectangle(10, 40, 300, 40)
      .Fill
    Endif
  End With

End


Public Sub Button1_Click()

  a = 1

  DrawingArea1.Refresh

End[/code]


-----------------------------------
jsbsan
Miercoles, 26 Agosto 2015, 08:11

Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
-----------------------------------
tercoIDE:

Tambien hay otra forma de hacerlo:

Creas un array donde tengas todos los elementos que tengas que dibujar.

El dibujo lo array recorriendo ese array

Y luego si tienes que borrar alguno de ellos, solamente lo eliminas del array.

Por ejemplo.

Imagina que tienes que dibujar 10 lineas (en tu caso barras  ;-) )

Creas una estructura "linea" que tenga la informacion de las "linea": x0,y0,y1,y2

Creas un array de estructura del tipo linea, donde vas a añadir las distintas lineas que tienes que dibujar.

Cuando vayas a dibujar, recorres el array de estrutura tipo linea, para ir dibujando.

Si en algun momento quieres borrar una linea, sabiendo el número, borras el elemento del array, y cuando se vaya a dibujar, ya no aparecerá dicho elemento.


Saludos


-----------------------------------
vuott
Miercoles, 26 Agosto 2015, 10:40

Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
-----------------------------------
[i]jsbsan[/i], yo creo que de las tus soluciones la más breve y mejor es la primera: con un rectangulo relleno de un color, por ejemplo aquello por defecto.


-----------------------------------
tercoIDE
Miercoles, 26 Agosto 2015, 11:50

Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
-----------------------------------
[quote user="vuott" post="27768"][i]jsbsan[/i], yo creo que la solución más breve y mejor es la tu dijiste: con un rectangulo relleno de un color, por ejemplo aquello por defecto.[/quote]

sin dudas! 

Lo bueno, si es breve, dos veces bueno!!

gracias a ambos


-----------------------------------
jguardon
Miercoles, 26 Agosto 2015, 22:00

Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
-----------------------------------
[quote user="tercoIDE" post="27769"][quote user="vuott" post="27768"][i]jsbsan[/i], yo creo que la solución más breve y mejor es la tu dijiste: con un rectangulo relleno de un color, por ejemplo aquello por defecto.[/quote]

sin dudas! 

Lo bueno, si es breve, dos veces bueno!!

gracias a ambos[/quote]

Si, pero no cabe duda que la solución de Julio es "La Solución". Guardar los dibujos, trazos, etc. en arrays de estructuras es la manera correcta de dibujar y tenerlo todo bajo control, aunque parezca más complicado. Si además usamos el paradigma POO, resulta que todavía es más sencillo (y creo que lo más adecuado).

Por otra parte, si queremos que nuestro lienzo tenga la capacidad de deshacer y rehacer cambios, me temo que es la única solución posible.

Saludos


-----------------------------------
vuott
Miercoles, 26 Agosto 2015, 22:20

Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
-----------------------------------
...mi parece que tercoIDE quiere borrar todo el dibujo.   :???:


-----------------------------------
vuott
Viernes, 28 Agosto 2015, 12:25

Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
-----------------------------------
Bueno, podemos utilizar tambien un querido amigo de [i]jsbsan[/i], es decir el... " [i]Divino[/i] ".    :lol: 


Al iniciar el programa, tenemos que asignar cualquier color de fondo a la DrawingArea (codigo para sistema de 64-bit):
[code linenumbers=false syntax=gambas]Public Sub Form_Open()

' Asignamos al fondo, por ejemplo, el color &D6D6D6:
   DrawingArea1.Background = Color.Background

End


Public Sub DrawingArea1_Draw()
  
' El dibujo es simplemente un círculo rojo:
  With Paint
    .Brush = Paint.Color(Color.Red)
    .Ellipse(100, 10, 100, 100)
    .Stroke
    .End
  End With

End


Public Sub Button1_Click()   ' Para borrar el dibujo de la DrawingArea

  Dim p1, p2 As Pointer      '   <------ El "Divino"
  Dim st As Stream
    
   p1 = Object.Address(DrawingArea1)
    
   p2 = Pointer@(p1 + 24)
 
' Escribimos en la parte de area de memoria del "DrawingArea" dedicada al color de background del objecto:
   st = Memory p2 For Write
   Write #st, &D6D6D6FFFFFFFF As Long
   st.Close
   
   Object.Lock(DrawingArea1)
   DrawingArea1.Refresh

End


Public Sub Button2_Click()   ' Para dibujar el círculo rojo de nuevo

   Object.Unlock(DrawingArea1)
   DrawingArea1.Refresh

End[/code]


-----------------------------------
tercoIDE
Sabado, 29 Agosto 2015, 11:56

Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
-----------------------------------
[quote user="vuott" post="27806"]Bueno, podemos utilizar tambien un querido amigo de [i]jsbsan[/i], es decir el... " [i]Divino[/i] ".    :lol: 


Al iniciar el programa, tenemos que asignar cualquier color de fondo a la DrawingArea (codigo para sistema de 64-bit):
[code linenumbers=false syntax=gambas]Public Sub Form_Open()

' Asignamos al fondo, por ejemplo, el color &D6D6D6:
   DrawingArea1.Background = Color.Background

End


Public Sub DrawingArea1_Draw()
  
' El dibujo es simplemente un círculo rojo:
  With Paint
    .Brush = Paint.Color(Color.Red)
    .Ellipse(100, 10, 100, 100)
    .Stroke
    .End
  End With

End


Public Sub Button1_Click()   ' Para borrar el dibujo de la DrawingArea

  Dim p1, p2 As Pointer      '   <------ El "Divino"
  Dim st As Stream
    
   p1 = Object.Address(DrawingArea1)
    
   p2 = Pointer@(p1 + 24)
 
' Escribimos en la parte de area de memoria del "DrawingArea" dedicada al color de background del objecto:
   st = Memory p2 For Write
   Write #st, &D6D6D6FFFFFFFF As Long
   st.Close
   
   Object.Lock(DrawingArea1)
   DrawingArea1.Refresh

End


Public Sub Button2_Click()   ' Para dibujar el círculo rojo de nuevo

   Object.Unlock(DrawingArea1)
   DrawingArea1.Refresh

End[/code][/quote]

"Voutt y sus punteros" que tal el titulo de tu nuevo libro?


-----------------------------------
vuott
Sabado, 29 Agosto 2015, 13:59

Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
-----------------------------------
[quote user="tercoIDE" post="27810"]
"Voutt y sus punteros" que tal el titulo de tu nuevo libro?[/quote]
...porque no ? Parecido a la película: [url=https://es.wikipedia.org/wiki/Rocco_y_sus_hermanos]Rocco e i suoi fratelli.    :lol:


