FillStyle.fs

module FillStyle =
 
    open IntelliFactory.WebSharper
    open IntelliFactory.WebSharper.Html
    open IntelliFactory.WebSharper.Html5
 
    [<JavaScript>]
    let main() =
        let element = HTML5.Tags.Canvas [Text "Fallback content goes here."]
        let canvas  = As<CanvasElement> element.Dom
        canvas.Height <- 350
        canvas.Width  <- 300
        let context = canvas.GetContext "2d"
        context.FillStyle <- "red"
        context.FillRect(50., 50., 200., 100.)
        context.FillStyle <- "rgb(0,0,255)"
        context.FillRect(50., 200., 200., 100.)
        element

    type Control() =
 
        inherit Web.Control()
 
        [<JavaScript>]
        override __.Body = main() :> _