Ce petit tutoriel réalisé par Taoteblue nous présente aujourd'hui la façon de réaliser un dégradé de couleur dans une drawarea.

voici le code de l'application ;

' gambas class File PUBLIC SUB _new() END PUBLIC SUB form_OPEN() me.center END PUBLIC SUB button1_click() 'drawingarea1.clear 'drawingarea1.refresh draw.begin(drawingarea1) draw.foreground = color.black draw.font.size = 20 draw.text("bonjour", 100, 100) draw.foreground = color.darkyellow draw.font.size = 20 draw.text("bonjour", 102, 102) draw.END END PUBLIC SUB button2_click() ' drawingarea1.clear 'drawingarea1.refresh draw.begin(drawingarea1) draw.foreground = color.gray draw.font.size = 24 draw.text("attention", 0, 0) draw.foreground = color.red draw.font.size = 24 draw.text("attention", 3, 3) draw.END END PUBLIC SUB button3_click() ' drawingarea1.clear 'drawingarea1.refresh draw.begin(drawingarea1) draw.foreground = color.black draw.font.size = 24 draw.text("dedans", 120, 120) draw.foreground = color.white draw.font.size = 24 draw.text("dedans", 122, 122) draw.END END PUBLIC SUB button4_click() ' drawingarea1.clear 'drawingarea1.refresh draw.begin(drawingarea1) draw.foreground = color.black draw.font.size = 24 draw.text("dehors", 150, 150) draw.foreground = color.gray draw.font.size = 24 draw.text("dehors", 151, 151) draw.END END PUBLIC SUB drawingarea1_draw() END PUBLIC SUB button5_click() DIM a AS variant DIM b AS Integer draw.begin(drawingarea1) a = 0 FOR b = 0 TO 255 draw.foreground = a * 257 a = a + 1 print a draw.LINE(0, b, 1000, b) 'inc b NEXT draw.END END PUBLIC SUB button7_click() DIM a AS variant DIM b AS Integer draw.begin(drawingarea1) a = 0 FOR b = 0 TO 255 draw.foreground = a * 75537 a = a + 1 print a draw.LINE(0, b, 1000, b) 'inc b NEXT draw.END END PUBLIC SUB button7_click() DIM a AS variant DIM b AS Integer draw.begin(drawingarea1) a = 0 FOR b = 0 TO 255 draw.foreground = a a = a + 1 print a draw.LINE(0, b, 1000, b) 'inc b NEXT draw.END END