Page loading

Share your opinion
What do you think about gambaslinux.fr?
 
Interesting
It miss some informations
Excellent website
Results
WIDGETS GAMBAS
GAMBAS 3 SOFTWARES
TUTORIALS
Library
DRAWAREA - Colors, texts
COLORS AND TEXTS IN A DRAWAREA ON GAMBAS LINUX
drawarea010.png

This tutorial made by taoteblue present how to use colors ,line and text in a drawarea. Here the code :

' 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

Creation date : 27/10/2009 @ 16:35
Last update : 27/01/2012 @ 22:17
Category : DRAWAREA
Page read 6435 times

Print the article Print the article


react.gifReactions to this article

Nobody gave a comment yet.
Be the first one to do it!


QUICK MENU

doc.png DOCUMENTATION
forum.png   FORUM
logiciel.png GB SOFTWARES
 gb3logo.png  GAMBASFORGE
 mailing.png  MAILING LIST
 bugtracker.png  Gambas Bug Tracker

SEARCH




LANGUAGE
COMPONENTS
Other
LANGUAGE
Where, who?
actualite et medias
compteur gratuit
VISITS

   visitors

   visitors online

ARCHIVES GAMBAS 1/2
^ Top ^