Comunidad Gambas-es

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!

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

...una otra posibilidad...con un Return....

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

jsbsan, 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.

vuott escribió: [Ver mensaje]

jsbsan, 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.

sin dudas!

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

gracias a ambos

tercoIDE escribió: [Ver mensaje]

vuott escribió: [Ver mensaje]

jsbsan, 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.

sin dudas!

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

gracias a ambos

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

...mi parece que tercoIDE quiere borrar todo el dibujo.

Bueno, podemos utilizar tambien un querido amigo de jsbsan, es decir el... " Divino ".


Al iniciar el programa, tenemos que asignar cualquier color de fondo a la DrawingArea (codigo para sistema de 64-bit):

vuott escribió: [Ver mensaje]

Bueno, podemos utilizar tambien un querido amigo de jsbsan, es decir el... " Divino ".


Al iniciar el programa, tenemos que asignar cualquier color de fondo a la DrawingArea (codigo para sistema de 64-bit):

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

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

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