prototyping panel with fsi and WPF

wpf-host.fsx

#if INTERACTIVE
#load "load-wpf.fsx"
#endif

// === WPF ===

open System.Windows
open System.Windows.Controls
open System.Windows.Media.Imaging

// Create Window and StackPanel
let window = new Window(Title = "Prototyping")
window.Show()
let scroll = new ScrollViewer()
let panel = new WrapPanel()
panel.Orientation <- Orientation.Horizontal
panel.ItemWidth <- 350.0
panel.HorizontalAlignment = HorizontalAlignment.Left;
panel.VerticalAlignment = VerticalAlignment.Top;
scroll.Content <- panel
window.Content <- scroll 

let stack content =
    panel.Children.Add content

let stackImage (img:System.Drawing.Image) = 
     let bi = new BitmapImage()
     bi.BeginInit()    
     let ms = new MemoryStream()
     img.Save (ms, ImageFormat.Bmp)
     let offset = ms.Seek (0L, SeekOrigin.Begin)
     bi.StreamSource <- ms
     bi.EndInit()    
     bi.Freeze()
     let imageControl = new Image()
     imageControl.Source <- bi
     stack imageControl
// === WPF ===