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!
Como Borro Un Area En La Que Estoy Dibujando Con Paint?
Subject: 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
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
Subject: Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
...una otra posibilidad...con un Return....
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
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
Subject: 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
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
Subject: Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
Last edited by vuott on Wednesday, 26 August 2015, 15:41; edited 3 times in total
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.
Last edited by vuott on Wednesday, 26 August 2015, 15:41; edited 3 times in total
Subject: Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
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
tercoIDE escribió: [Ver mensaje]
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
Subject: Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
...mi parece que tercoIDE quiere borrar todo el dibujo.
Subject: Re: Como Borro Un Area En La Que Estoy Dibujando Con Paint?
Last edited by vuott on Friday, 28 August 2015, 18:55; edited 6 times in total
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):
Al iniciar el programa, tenemos que asignar cualquier color de fondo a la DrawingArea (codigo para sistema de 64-bit):
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
' 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
Last edited by vuott on Friday, 28 August 2015, 18:55; edited 6 times in total
Page 1 of 2
You cannot post new topicsYou cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events
This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Generation Time: 0.1226s (PHP: -9% SQL: 109%)
SQL queries: 25 - Debug Off - GZIP Enabled