F# Xaml GUI Quick Reference

xaml_reference.fs

/// Xaml Reference

module MainApp =

//  Imports 

    open System
    open System.Diagnostics
    open System.Windows
    open System.Windows.Controls
    open System.Windows.Markup
    open System.Xaml
    open FsXaml             //  <- Get on nuGet

    // Type comprisied of the data bindings for MainWindow.xaml's GUI Elements
    type MainWin    = XAML<"MainWindow.xaml">

//  Setup elements for access

    let xamlui      = new MainWin       ()
    let root        = xamlui.CreateRoot ()
    let window      = MainWin.Accessor  ( root )


//  Bindings for GUI Elements

    let topWin      =   window.TopWindow
    let minButton   =   window.Minimize
    let maxButton   =   window.Maximize
    let closeButton =   window.Close

    //  In a borderless/chromeless GUI a background element is necessary to
    //  allow the user to click on any part of the background and move the entire window
    let backGrip    =   window.BackGrip  


    //  Binds the .DragMove function to mouse event PreviewMouseLeftButtonDown
    //  PreviewMouseLeftButtonDown must be used for the correct functionality 
    backGrip.PreviewMouseLeftButtonDown    
        |> Event.add ( fun e -> root.DragMove() )


//-------------------------------------------------------------------------//
// Add to MainWindow.xaml before any elements are declared


// someNamespace = Namespace of App.fs's module 
// someAssembly  = Assembly of the project that builds the GUI 
xmlns:local="clr-namespace:someNamespace;assembly=someAssembly"