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