https://foro.gambas-es.org/viewtopic.php?f=1&t=2807&p=15916#p15916
-----------------------------------
jsbsan
Lunes, 07 Enero 2013, 12:29

Re: Clase Draw Obsoleta A Partir De Gambas 3.4
-----------------------------------
Shell
[quote]Estudiar la nueva clase Paint...[/quote]
Si es mucho más potente...

[quote]a ver el ejemplo de dibujo para la 3.9[/quote]
No, ya hay un ejemplo se llama "Painting"
[img]https://lh6.googleusercontent.com/-WbC-JBPmtPk/UOqzAKontAI/AAAAAAAACd8/wMUiqN6CgVk/s696/painting%2520ejemplo.png[/img]

[quote]No sabia ni como trazar una linea.Añadiendo mas perdida de tiempo para volver hacerlo.[/quote]
Mira, he hecho un pequeño ejemplo, para que veas la diferencia entre el codigo de draw y el de paint, y veras que el dibujo de paint es mucho mas "definido"
[img]https://lh6.googleusercontent.com/-l775b5yuSoE/UOqxHrklndI/AAAAAAAACdk/fFWbmwFbIxg/s794/metodos%2520paint%2520vs%2520draw.png[/img]

[quote]Si aprendo la nueva clase, puede que de aquí a x tiempo, otra vez, la clase se quede obsoleta y vuelta
a empezar. Me parece muy bien que se mejore, pero por otro lado es una "gracia". Debe ser que la
programación es así de "jodida", sobre todo si no esta bien documentada.[/quote]
Si la programación es asi... en java,html, etc.. pasa lo mismo las palabra "obsoleto" se repite una y otra vez...

El codigo del ejemplo: 
[code linenumbers=false syntax=gambas]'Con PAINT
  Paint.Begin(DrawingAreaPaint)
  Paint.LineWidth = 6
  
  Paint.Brush = Paint.Color(Color.RGB(255, 0.2 * 255, 0.2 * 255, 0.6 * 255))
  Paint.MoveTo(10, 10)
  Paint.LineTo(200, 10)
  Paint.stroke 'traza (dibuja)  las ordenes anteriores
  
  Paint.Brush = Paint.Color(Color.red)
  Paint.MoveTo(20, 15)
  Paint.LineTo(200, 50)
  Paint.stroke 'traza (dibuja)  las ordenes anteriores
  
  Paint.LineWidth = 0.8  'defino un nuevo ancho para el texto
  Paint.Text("Usando Paint", 10, 100)
  Paint.stroke
  Paint.end[/code]

[code linenumbers=false syntax=gambas]'Con Draw:
 Draw.Begin(DrawingAreaDraw)
  Draw.foreground = Color.RGB(255, 0.2 * 255, 0.2 * 255, 0.6 * 255)
  Draw.lineWidth = 6
  Draw.Line(10, 10, 200, 10)
  Draw.foreground = Color.red
  Draw.Line(20, 15, 200, 50)
  Draw.Text("Usando Draw", 10, 100)
  Draw.end
  [/code]


