Remplir de formes geometriques( Temps de lecture estimé à 1 min 05 sec )
REMPLIR UNE FORME GEOMETRIQUE AVEC UNE TEXTURE
Bonjour,
Aujourd'hui nous allons nous interesser à remplir des formes geometriques.
A travers ce petit exemple, nous allons utiliser la fonction FILL.
Voici le code de l'application :
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 |