Add bindings for HyperlinkButton (#451)

Author: Numpsy

src/Avalonia.FuncUI.ControlCatalog/Avalonia.FuncUI.ControlCatalog/Avalonia.FuncUI.ControlCatalog.fsproj

@@ -29,6 +29,7 @@
         <Compile Include="Views\Tabs\FlyoutDemo.fs" />
         <Compile Include="Views\Tabs\DragDropDemo.fs" />
         <Compile Include="Views\Tabs\AttachedEventDemo.fs" />
+        <Compile Include="Views\Tabs\HyperlinkButtonDemo.fs" />
         <Compile Include="Views\MainView.fs" />
 		<Compile Include="ControlCatalog.fs" />
         <AvaloniaResource Include="**\*.xaml" />

src/Avalonia.FuncUI.ControlCatalog/Avalonia.FuncUI.ControlCatalog/Views/MainView.fs

@@ -64,6 +64,10 @@ module MainView =
                     TabItem.header "Gridsplitter Demo"
                     TabItem.content (ViewBuilder.Create<GridSplitterDemo.Host>([]))
                 ]
+                TabItem.create [
+                    TabItem.header "HyperlinkButton Demo"
+                    TabItem.content (ViewBuilder.Create<HyperlinkButtonDemo.Host>([]))
+                ]
                 TabItem.create [
                     TabItem.header "NumericUpDown Demo"
                     TabItem.content (ViewBuilder.Create<NumericUpDownDemo.Host>([]))

src/Avalonia.FuncUI.ControlCatalog/Avalonia.FuncUI.ControlCatalog/Views/Tabs/HyperlinkButtonDemo.fs

@@ -0,0 +1,33 @@
+namespace Avalonia.FuncUI.ControlCatalog.Views
+
+open Elmish
+open Avalonia.Controls
+open Avalonia.FuncUI.DSL
+open Avalonia.FuncUI
+open Avalonia.FuncUI.Elmish
+
+module HyperlinkButtonDemo = 
+
+    let update _ _ = ()
+
+    let view _ _ =
+        StackPanel.create [
+            StackPanel.children [
+                TextBlock.create [
+                    TextBlock.text "Hyperlink samples"
+                ]
+
+                HyperlinkButton.create [
+                    HyperlinkButton.navigateUri (System.Uri("https://funcui.avaloniaui.net/"))
+                    HyperlinkButton.content "https://funcui.avaloniaui.net/"
+                ]
+            ]
+        ]
+
+    type Host() as this =
+        inherit Hosts.HostControl()
+        do
+            Elmish.Program.mkSimple id update view
+            |> Program.withHost this
+            |> Program.withConsoleTrace
+            |> Program.run

src/Avalonia.FuncUI/Avalonia.FuncUI.fsproj

@@ -129,6 +129,7 @@
     <Compile Include="DSL\Buttons\ToggleSplitButton.fs" />
     <Compile Include="DSL\Buttons\ToggleSwitch.fs" />
     <Compile Include="DSL\Buttons\CheckBox.fs" />
+    <Compile Include="DSL\Buttons\HyperlinkButton.fs" />
     <Compile Include="DSL\Remote\RemoteWidget.fs" />
     <Compile Include="DSL\RepeatButton.fs" />
     <Compile Include="DSL\DatePicker.fs" />

src/Avalonia.FuncUI/DSL/Buttons/HyperlinkButton.fs

@@ -0,0 +1,25 @@
+namespace Avalonia.FuncUI.DSL
+
+[<AutoOpen>]
+module HyperlinkButton =
+    open Avalonia.Controls
+    open Avalonia.FuncUI.Types
+    open Avalonia.FuncUI.Builder
+   
+    let create (attrs: IAttr<HyperlinkButton> list): IView<HyperlinkButton> =
+        ViewBuilder.Create<HyperlinkButton>(attrs)
+
+    type HyperlinkButton with
+    
+        /// <summary>
+        /// Sets a value indicating whether the <see cref="navigateUri"/> has been visited.
+        /// </summary>
+        static member isVisited<'t when 't :> HyperlinkButton>(value: bool) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<bool>(HyperlinkButton.IsVisitedProperty, value, ValueNone)
+
+        /// <summary>
+        /// Gets or sets the Uniform Resource Identifier (URI) automatically navigated to when the
+        /// <see cref="HyperlinkButton"/> is clicked.
+        /// </summary>
+        static member navigateUri<'t when 't :> HyperlinkButton>(value: System.Uri) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<System.Uri>(HyperlinkButton.NavigateUriProperty, value, ValueNone)