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 - Geometric texture

PUT TEXTURE INTO GEOMETRIC FORM IN A DRAWAREA

 


 

exampledrawarea.png

Hi,

Today, we put textures into geometric form in a drawarea.

You find in this little example, how to use the FILL function.

Here you find the gambas2 code :
PRIVATE mycolor AS Integer = 0
PUBLIC SUB _new()
END
PUBLIC SUB form_OPEN()
me.center
END
PUBLIC SUB brect_click()
draw.begin(drawingarea1)
draw.rect(10, 10, 50, 50)
draw.END
END
PUBLIC SUB brect2_click()
draw.begin(drawingarea1)
draw.fillcolor = mycolor
draw.fillstyle = fill.backdiagonal
draw.rect(70, 10, 50, 50)
draw.END
END
PUBLIC SUB brect3_click()
draw.begin(drawingarea1)
draw.fillcolor = mycolor
draw.fillstyle = fill.cross
draw.rect(110, 10, 50, 50)
draw.END
END
PUBLIC SUB brect4_click()
draw.begin(drawingarea1)
draw.fillcolor = mycolor
draw.fillstyle = fill.crossdiagonal
draw.rect(170, 10, 50, 50)
draw.END
END
PUBLIC SUB brect5_click()
draw.begin(drawingarea1)
draw.fillcolor = mycolor
draw.fillstyle = fill.dense12
draw.rect(210, 10, 50, 50)
draw.END
END
PUBLIC SUB brect7_click()
draw.begin(drawingarea1)
draw.fillcolor = mycolor
draw.fillstyle = fill.solid
draw.rect(270, 10, 50, 50)
draw.END
END
PUBLIC SUB brect7_click()
draw.begin(drawingarea1)
draw.fillcolor = mycolor
draw.fillstyle = fill.horizontal
draw.rect(10, 70, 50, 50)
draw.END
END
PUBLIC SUB brect8_click()
draw.begin(drawingarea1)
draw.fillcolor = mycolor
draw.fillstyle = fill.vertical
draw.rect(70, 70, 50, 50)
draw.END
END
PUBLIC SUB brect9_click()
draw.begin(drawingarea1)
draw.fillcolor = mycolor
draw.fillstyle = fill.none
draw.rect(110, 70, 50, 50)
draw.END
END
PUBLIC SUB bquit_click()
me.CLOSE
END
PUBLIC SUB colorchooser1_change()
mycolor = colorchooser1.value
END

Creation date : 20/01/2012 @ 19:22
Last update : 27/01/2012 @ 22:19
Category : DRAWAREA
Page read 4754 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
SEARCH




LANGUAGE
COMPONENTS
Other
LANGUAGE
Where, who?
VISITS

   visitors

   visitors online

ARCHIVES GAMBAS 1/2
^ Top ^