Small Basic - Controls are Shapes

All of the Controls (Buttons, TextBoxes etc) that can be created with the Controls object can be manipulated with the Shapes object methods.

This can create some fun effects and make your games or programs more visually interesting.

Here is a simple example - it is possible to click it, but pretty hard!

http://smallbasic.com/program/?CWT060

gw `` = ``600

gh `` = ``600

GraphicsWindow``.`` Width `` = ``gw

GraphicsWindow``.`` Height `` = ``gh

 

clickMe `` = ``Controls``.``AddButton``(``"Click Me"``,``0``,``0``)

Controls``.``SetSize``(``clickMe``,``70``,``30``)

GraphicsWindow``.`` MouseMove `` = ``OnMouseMove

Controls``.`` ButtonClicked `` = ``OnButtonClicked

 

Sub ``OnMouseMove

  `` x `` = ``Math``.``Abs``(``gw``-``GraphicsWindow``.``MouseX``)

  `` y `` = ``Math``.``Abs``(``gh``-``GraphicsWindow``.``MouseY``)

  `` dist `` = ``Math``.``SquareRoot``(``(``x``-``gw``/``2``)``*``(``x``-``gw``/``2``)``+``(``y``-``gh``/``2``)``*``(``y``-``gh``/``2``)``)

  ``Shapes``.``SetOpacity``(``clickMe``,``dist``-``20``)

  ``Shapes``.``Zoom``(``clickMe``,``dist``/``20``,``dist``/``20``)

  ``Shapes``.``Move``(``clickMe``,``x``-``35``,``y``-``15``)

EndSub

 

Sub ``OnButtonClicked

  ``GraphicsWindow``.`` BackgroundColor `` = ``"Red"

EndSub