DRAWAREA - Dégradé, texte( Temps de lecture estimé à 1 min 25 sec )
REALISER UN DEGRADE, DESSINER UN TEXTE DANS LA DRAWAREA
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 ;
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 |