Challenge 4 - Colour buttons

[WhTurner]

Here is my solution for a colour button program:

Code:

GraphicsWindow.Show()
gw=GraphicsWindow.Width
gh=GraphicsWindow.Height
colors="1=red;2=green;3=blue"
For bb=1 To 3
  but[bb]=Controls.AddButton("",50*bb,gh-40)
  Controls.SetSize(but[bb],40,30)
  Shapes.SetOpacity(but[bb],1)
  GraphicsWindow.BrushColor=colors[bb]
  GraphicsWindow.FillRectangle(50*bb,gh-40,40,30)
EndFor
GraphicsWindow.BackgroundColor="white"
GraphicsWindow.PenWidth=3
GraphicsWindow.FontSize=30
GraphicsWindow.BrushColor="Black"
GraphicsWindow.DrawText(100,200,"click a button")
Controls.ButtonClicked=Click
While 0=0
  If draw=1 Then
    GraphicsWindow.PenColor=col
    For x=1 To 250
      Program.Delay(2)
      GraphicsWindow.DrawLine(2*x,0,2*x,gh*0.9)
    EndFor
    GraphicsWindow.DrawText(100,200,"click a button")
    draw=0
  EndIf
EndWhile

Sub Click
  lastbut=Text.GetSubTextToEnd(Controls.LastClickedButton,7)
  col=colors[lastbut]
  draw=1
EndSub