' 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
|
Reactions to this article
BUTTON
Print the article
DEBIAN PACKAGES
visitors
Top 
© 2004-2011 