In my previous post Creating a WPF application in F# I outlined how to create a very basic WPF application using F# and WPF.

I’ve now decided to combine F#, WPF and MahApps metro/modern UI look and feel. In doing so I found a flaw in the previously posted code. First off, the code works fine, but I needed to add some resources to an App.xaml and which point I realized I needed to change the code to handle this. The previous post didn’t use an App.xaml (well it was mean’t to be minimalist solution to using F# and WPF – or at least that’s my excuse).

So I will repeat some of the previous post here in defining the steps to get an F#/WPF/MahApps application up and running.

Note: Please check out the post Build MVVM Applications in F# which outlines how to use the App.xaml file, I will be repeating this here.

Okay, here we go…

• Create a new project and select F# Application
• This will be a console application, so next select the project properties and change the Application | Output type from Console Application to Windows Application
• Add references to PresentationCore, PresentationFramework, System.Xaml and WindowsBase
• Change the Program.fs to look like this

  open System
  open System.Windows
  open System.Windows.Controls
  open System.Windows.Markup
  
  [<STAThread>]
  [<EntryPoint>]
  let main argv = 
      let application = Application.LoadComponent(
                          new System.Uri("/<Your Assembly Name>;component/App.xaml", UriKind.Relative)) :?> Application
  
      application.Run()
  

  Obviously change <Your Assembly Name> to the name of your compiled assembly name.

• Using NuGet add MahApps.Metro to the project
• Add a new item to your project. Unfortunately there’s no XAML file (at least not in the version of Visual Studio I’m testing this on). So simply pick an XML File and give it the name App.xaml
• In the App.xaml file place the following code

  <Application xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
               xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
               StartupUri="MainWindow.xaml">
      <Application.Resources>
      <ResourceDictionary>
          <ResourceDictionary.MergedDictionaries>
              <ResourceDictionary Source="pack://application:,,,/MahApps.Metro;component/Styles/Controls.xaml" />
              <ResourceDictionary Source="pack://application:,,,/MahApps.Metro;component/Styles/Fonts.xaml" />
              <ResourceDictionary Source="pack://application:,,,/MahApps.Metro;component/Styles/Colors.xaml" />
              <ResourceDictionary Source="pack://application:,,,/MahApps.Metro;component/Styles/Accents/Blue.xaml" />
              <ResourceDictionary Source="pack://application:,,,/MahApps.Metro;component/Styles/Accents/BaseLight.xaml" />
          </ResourceDictionary.MergedDictionaries>
      </ResourceDictionary>
  </Application.Resources>
  </Application>
  

• Now add another XML file to the project and name it MainWindow.xaml
• In the MainWindow.xaml file replace the existing text with

  <Controls:MetroWindow  
      xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
      xmlns:Controls="clr-namespace:MahApps.Metro.Controls;assembly=MahApps.Metro"
      Title="MainWindow" Height="350" Width="525">
      <Grid>
      </Grid>
  </Controls:MetroWindow >
  

• Finally, select the MainWindow.xaml file in the solution explorer and change the file properties Build Action to Resource

Obviously you’ll still need to setup your view model at some point and without the ability to work with partial classes (as F# doesn’t support the concept). We have a couple of options.

I’ve played around with a few ways of doing this and the easiest is to do this in the Startup event of the Application object. In doing this we also need to handle the creation of the MainWindow, so

• Remove the StartupUri=”MainWindow.xaml” from the App.xaml as we’re going to handle the creation and assignment in code
• In the Program.fs file, before the application.Run() add the following code

  application.Startup
  |> Event.add(fun _ -> 
                       let mainWindow = Application.LoadComponent(new System.Uri("/WPFFSharp1Test;component/MainWindow.xaml", UriKind.Relative)) :?> Window
                       mainWindow.DataContext <- new MyViewModel()
                       application.MainWindow <- mainWindow
                       mainWindow.Show()
                       )
  

And we’re done. You should now have the styling of MahApps and the creation and setting up with the main window and the main view model.