Add bindings Avalonia v11.0.0

src/Avalonia.FuncUI/Avalonia.FuncUI.fsproj

@@ -83,6 +83,8 @@
     <Compile Include="DSL\Primitives\Thumb.fs" />
     <Compile Include="DSL\Primitives\AccessText.fs" />
     <Compile Include="DSL\Primitives\ScrollBar.fs" />
+    <Compile Include="DSL\Primitives\CalendarItem.fs" />
+    <Compile Include="DSL\Primitives\PickerPresenterBase.fs" />
     <Compile Include="DSL\Primitives\TextElement.fs" />
     <Compile Include="DSL\Panels\Canvas.fs" />
     <Compile Include="DSL\Panels\DockPanel.fs" />
@@ -138,6 +140,8 @@
     <Compile Include="DSL\ContextMenu.fs" />
     <Compile Include="DSL\MenuItem.fs" />
     <Compile Include="DSL\GridSplitter.fs" />
+    <Compile Include="DSL\DatePickerPresenter.fs" />
+    <Compile Include="DSL\TimePickerPresenter.fs" />
     <Compile Include="DSL\ProgressBar.fs" />
     <Compile Include="DSL\ScrollViewer.fs" />
     <Compile Include="DSL\Separator.fs" />

src/Avalonia.FuncUI/DSL/ComboBox.fs

@@ -4,14 +4,42 @@ namespace Avalonia.FuncUI.DSL
 module ComboBox =
     open Avalonia.Controls
     open Avalonia.Layout
+    open Avalonia.Media
+    open Avalonia.Media.Immutable
     open Avalonia.FuncUI.Types
     open Avalonia.FuncUI.Builder
 
     let create (attrs: IAttr<ComboBox> list): IView<ComboBox> =
         ViewBuilder.Create<ComboBox>(attrs)
 
     type ComboBox with
-
+        static member onDropDownClosed<'t when 't :> ComboBox>(func: 't -> unit, ?subPatchOptions) =
+            let name = nameof Unchecked.defaultof<'t>.DropDownClosed
+
+            let factory: SubscriptionFactory<'t> =
+                fun (control, func, token) ->
+                    let control = control :?> 't
+                    let handler = System.EventHandler(fun s _ -> func (s :?> 't))
+                    let event = control.DropDownClosed
+
+                    event.AddHandler(handler)
+                    token.Register(fun _ -> event.RemoveHandler(handler)) |> ignore
+
+            AttrBuilder<'t>.CreateSubscription<'t>(name, factory, func, ?subPatchOptions = subPatchOptions)
+
+        static member onDropDownOpened<'t when 't :> ComboBox>(func: 't -> unit, ?subPatchOptions) =
+            let name = nameof Unchecked.defaultof<'t>.DropDownOpened
+
+            let factory: SubscriptionFactory<'t> =
+                fun (control, func, token) ->
+                    let control = control :?> 't
+                    let handler = System.EventHandler(fun s _ -> func (s :?> 't))
+                    let event = control.DropDownOpened
+
+                    event.AddHandler(handler)
+                    token.Register(fun _ -> event.RemoveHandler(handler)) |> ignore
+
+            AttrBuilder<'t>.CreateSubscription<'t>(name, factory, func, ?subPatchOptions = subPatchOptions)
         static member isDropDownOpen<'t when 't :> ComboBox>(value: bool) : IAttr<'t> =
             AttrBuilder<'t>.CreateProperty<bool>(ComboBox.IsDropDownOpenProperty, value, ValueNone)
 
@@ -20,6 +48,17 @@ module ComboBox =
 
         static member maxDropDownHeight<'t when 't :> ComboBox>(height: float) : IAttr<'t> =
             AttrBuilder<'t>.CreateProperty<float>(ComboBox.MaxDropDownHeightProperty, height, ValueNone)
-
+
+        static member placeholderText<'t when 't :> ComboBox>(text: string) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<string>(ComboBox.PlaceholderTextProperty, text, ValueNone)
+
+        static member placeholderForeground<'t when 't :> ComboBox>(value: IBrush) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<IBrush>(ComboBox.PlaceholderForegroundProperty, value, ValueNone)
+
+        static member placeholderForeground<'t when 't :> ComboBox>(color:string) : IAttr<'t> =
+            color |> Color.Parse |> ImmutableSolidColorBrush |> ComboBox.placeholderForeground
+
+        static member placeholderForeground<'t when 't :> ComboBox>(color:Color) : IAttr<'t> =
+            color |> ImmutableSolidColorBrush |> ComboBox.placeholderForeground
         static member verticalContentAlignment<'t when 't :> ComboBox>(alignment: VerticalAlignment) : IAttr<'t> =
             AttrBuilder<'t>.CreateProperty<VerticalAlignment>(ComboBox.VerticalContentAlignmentProperty, alignment, ValueNone)

src/Avalonia.FuncUI/DSL/DatePickerPresenter.fs

@@ -0,0 +1,49 @@
+namespace Avalonia.FuncUI.DSL
+
+open System
+open Avalonia.Controls
+
+[<AutoOpen>]
+module DatePickerPresenter =
+    open Avalonia.FuncUI.Types
+    open Avalonia.FuncUI.Builder
+
+    let create (attrs: IAttr<DatePickerPresenter> list): IView<DatePickerPresenter> =
+        ViewBuilder.Create<DatePickerPresenter>(attrs)
+
+    type DatePickerPresenter with
+        /// Gets or sets the current Date for the picker
+        static member date<'t when 't :> DatePickerPresenter>(value: DateTimeOffset) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<DateTimeOffset>(DatePickerPresenter.DateProperty, value, ValueNone)
+
+        /// Gets or sets the DayFormat
+        static member dayFormat<'t when 't :> DatePickerPresenter>(value: string) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<string>(DatePickerPresenter.DayFormatProperty, value, ValueNone)
+
+        /// Get or sets whether the Day selector is visible
+        static member dayVisible<'t when 't :> DatePickerPresenter>(value: bool) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<bool>(DatePickerPresenter.DayVisibleProperty, value, ValueNone)
+
+        /// Gets or sets the maximum pickable year
+        static member maxYear<'t when 't :> DatePickerPresenter>(value: DateTimeOffset) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<DateTimeOffset>(DatePickerPresenter.MaxYearProperty, value, ValueNone)
+
+        /// Gets or sets the minimum pickable year
+        static member minYear<'t when 't :> DatePickerPresenter>(value: DateTimeOffset) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<DateTimeOffset>(DatePickerPresenter.MinYearProperty, value, ValueNone)
+
+        /// Gets or sets the month format
+        static member monthFormat<'t when 't :> DatePickerPresenter>(value: string) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<string>(DatePickerPresenter.MonthFormatProperty, value, ValueNone)
+
+        /// Gets or sets whether the month selector is visible
+        static member monthVisible<'t when 't :> DatePickerPresenter>(value: bool) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<bool>(DatePickerPresenter.MonthVisibleProperty, value, ValueNone)
+
+        /// Gets or sets the year format
+        static member yearFormat<'t when 't :> DatePickerPresenter>(value: string) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<string>(DatePickerPresenter.YearFormatProperty, value, ValueNone)
+
+        /// Gets or sets whether the year selector is visible
+        static member yearVisible<'t when 't :> DatePickerPresenter>(value: bool) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<bool>(DatePickerPresenter.YearVisibleProperty, value, ValueNone)

src/Avalonia.FuncUI/DSL/MenuItem.fs

@@ -44,6 +44,9 @@ module MenuItem =
         static member isSubMenuOpen<'t when 't :> MenuItem>(value: bool) : IAttr<'t> =
             AttrBuilder<'t>.CreateProperty<bool>(MenuItem.IsSubMenuOpenProperty, value, ValueNone)
 
+        static member staysOpenOnClick<'t when 't :> MenuItem>(value: bool) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<bool>(MenuItem.StaysOpenOnClickProperty, value, ValueNone)
+
         static member onIsSubMenuOpenChanged<'t when 't :> MenuItem>(func: bool -> unit, ?subPatchOptions) =
             AttrBuilder<'t>.CreateSubscription<bool>(MenuItem.IsSubMenuOpenProperty, func, ?subPatchOptions = subPatchOptions)
 

src/Avalonia.FuncUI/DSL/NumericUpDown.fs

@@ -7,6 +7,8 @@ module NumericUpDown =
     open Avalonia.Controls
     open Avalonia.FuncUI.Types
     open Avalonia.FuncUI.Builder
+    open Avalonia.Data.Converters
+    open Avalonia.Layout
 
     let create (attrs: IAttr<NumericUpDown> list): IView<NumericUpDown> =
         ViewBuilder.Create<NumericUpDown>(attrs)
@@ -76,6 +78,9 @@ module NumericUpDown =
 
             AttrBuilder<'t>.CreateProperty<string>("Text", value, ValueSome getter, ValueSome setter, ValueNone)
 
+        static member textConverter<'t when 't :> NumericUpDown>(value: IValueConverter) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<IValueConverter>(NumericUpDown.TextConverterProperty, value, ValueNone)
+
         static member onTextChanged<'t when 't :> NumericUpDown>(func: string -> unit, ?subPatchOptions) =
             AttrBuilder<'t>.CreateSubscription<string>(NumericUpDown.TextProperty, func, ?subPatchOptions = subPatchOptions)
 
@@ -91,4 +96,8 @@ module NumericUpDown =
         static member watermark<'t when 't :> NumericUpDown>(value: string) : IAttr<'t> =
             AttrBuilder<'t>.CreateProperty<string>(NumericUpDown.WatermarkProperty, value, ValueNone)
 
+        static member horizontalContentAlignment<'t when 't :> NumericUpDown>(value: HorizontalAlignment) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<HorizontalAlignment>(NumericUpDown.HorizontalContentAlignmentProperty, value, ValueNone)
 
+        static member verticalContentAlignment<'t when 't :> NumericUpDown>(value: VerticalAlignment) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<VerticalAlignment>(NumericUpDown.VerticalContentAlignmentProperty, value, ValueNone)

src/Avalonia.FuncUI/DSL/Primitives/CalendarItem.fs

@@ -0,0 +1,40 @@
+namespace Avalonia.FuncUI.DSL
+
+[<AutoOpen>]
+module CalendarItem =
+    open Avalonia.Controls.Primitives
+    open Avalonia.Controls.Templates
+    open Avalonia.Media
+    open Avalonia.Media.Immutable
+    open Avalonia.FuncUI.Types
+    open Avalonia.FuncUI.Builder
+
+    let create (attrs: IAttr<CalendarItem> list): IView<CalendarItem> =
+        ViewBuilder.Create<CalendarItem>(attrs)
+
+    type CalendarItem with
+
+        /// <summary>Set the background color of the header</summary>
+        /// 
+        /// <remarks>Because of CalendarItem is sealed, this binding is only for CalendarItem</remarks>
+        static member headerBackground(value: IBrush) : IAttr<CalendarItem> =
+            AttrBuilder<CalendarItem>.CreateProperty<IBrush>(CalendarItem.HeaderBackgroundProperty, value, ValueNone)
+
+
+        /// <summary>Set the background color of the header</summary>
+        /// 
+        /// <remarks>Because of CalendarItem is sealed, this binding is only for CalendarItem</remarks>
+        static member headerBackground(color: string) : IAttr<CalendarItem> =
+            color |> Color.Parse |> ImmutableSolidColorBrush |> CalendarItem.headerBackground
+
+        /// <summary>Set the foreground color of the header</summary>
+        /// 
+        /// <remarks>Because of CalendarItem is sealed, this binding is only for CalendarItem</remarks>
+        static member headerForeground(color: Color) : IAttr<CalendarItem> =
+            color |> ImmutableSolidColorBrush |> CalendarItem.headerBackground
+
+        /// <summary>Set day title template.</summary>
+        /// 
+        /// <remarks>Because of CalendarItem is sealed, this binding is only for CalendarItem</remarks>
+        static member dayTitleTemplate(value: IDataTemplate) : IAttr<CalendarItem> =
+            AttrBuilder<CalendarItem>.CreateProperty<IDataTemplate>(CalendarItem.DayTitleTemplateProperty, value, ValueNone)

src/Avalonia.FuncUI/DSL/Primitives/HeaderedItemsControl.fs

@@ -3,6 +3,7 @@
 [<AutoOpen>]
 module HeaderedItemsControl =
     open Avalonia.Controls.Primitives
+    open Avalonia.Controls.Templates
     open Avalonia.FuncUI.Types
     open Avalonia.FuncUI.Builder
 
@@ -21,4 +22,7 @@ module HeaderedItemsControl =
             AttrBuilder<'t>.CreateContentSingle(HeaderedItemsControl.HeaderProperty, value)
 
         static member header<'t when 't :> HeaderedItemsControl>(value: IView) : IAttr<'t> =
-            value |> Some |> HeaderedItemsControl.header
+            value |> Some |> HeaderedItemsControl.header
+
+        static member headerTemplate<'t when 't :> HeaderedItemsControl>(value: IDataTemplate) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<IDataTemplate>(HeaderedItemsControl.HeaderTemplateProperty, value, ValueNone)

src/Avalonia.FuncUI/DSL/Primitives/HeaderedSelectingItemsControl.fs

@@ -3,6 +3,7 @@ namespace Avalonia.FuncUI.DSL
 [<AutoOpen>]
 module HeaderedSelectingItemsControl =
     open Avalonia.Controls.Primitives
+    open Avalonia.Controls.Templates
     open Avalonia.FuncUI.Types
     open Avalonia.FuncUI.Builder
 
@@ -20,4 +21,7 @@ module HeaderedSelectingItemsControl =
             AttrBuilder<'t>.CreateContentSingle(HeaderedSelectingItemsControl.HeaderProperty, value)
 
         static member header<'t when 't :> HeaderedSelectingItemsControl>(value: IView) : IAttr<'t> =
-            value |> Some |> HeaderedSelectingItemsControl.header
+            value |> Some |> HeaderedSelectingItemsControl.header
+
+        static member headerTemplate<'t when 't :> HeaderedSelectingItemsControl>(value: IDataTemplate) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<IDataTemplate>(HeaderedSelectingItemsControl.HeaderTemplateProperty, value, ValueNone)

src/Avalonia.FuncUI/DSL/Primitives/PickerPresenterBase.fs

@@ -0,0 +1,34 @@
+namespace Avalonia.FuncUI.DSL
+
+[<AutoOpen>]
+module PickerPresenterBase =
+    open System
+    open Avalonia.Controls.Primitives
+    open Avalonia.FuncUI.Builder
+
+    type PickerPresenterBase with
+        static member onConfirmed<'t when 't :> PickerPresenterBase>(func: 't -> unit, ?subPatchOptions) =
+            let name = nameof Unchecked.defaultof<'t>.Confirmed
+            let factory: SubscriptionFactory<'t> =
+                fun (control, func, token) ->
+                    let control = control :?> 't
+                    let handler = EventHandler(fun s e -> func(s :?> 't))
+                    let event = control.Confirmed
+
+                    event.AddHandler(handler)
+                    token.Register(fun _ -> event.RemoveHandler(handler)) |> ignore
+
+            AttrBuilder<'t>.CreateSubscription<'t>(name, factory, func, ?subPatchOptions = subPatchOptions)
+
+        static member onDismissed<'t when 't :> PickerPresenterBase>(func: 't -> unit, ?subPatchOptions) =
+            let name = nameof Unchecked.defaultof<'t>.Dismissed
+            let factory: SubscriptionFactory<'t> =
+                fun (control, func, token) ->
+                    let control = control :?> 't
+                    let handler = EventHandler(fun s e -> func(s :?> 't))
+                    let event = control.Dismissed
+
+                    event.AddHandler(handler)
+                    token.Register(fun _ -> event.RemoveHandler(handler)) |> ignore
+
+            AttrBuilder<'t>.CreateSubscription<'t>(name, factory, func, ?subPatchOptions = subPatchOptions)

src/Avalonia.FuncUI/DSL/Primitives/ScrollBar.fs

@@ -2,36 +2,67 @@ namespace Avalonia.FuncUI.DSL
 
 [<AutoOpen>]
 module ScrollBar =
+    open System
     open Avalonia.Layout
     open Avalonia.Controls.Primitives
     open Avalonia.FuncUI.Types
     open Avalonia.FuncUI.Builder
-    
+
     let create (attrs: IAttr<ScrollBar> list): IView<ScrollBar> =
         ViewBuilder.Create<ScrollBar>(attrs)
-     
+
     type ScrollBar with
-
+        static member onScroll<'t when 't :> ScrollBar>(func: ScrollEventArgs -> unit, ?subPatchOptions) : IAttr<'t> =
+            let name = nameof Unchecked.defaultof<'t>.Scroll
+            let factory: SubscriptionFactory<ScrollEventArgs> =
+                fun (control, func, token) ->
+                    let content = control :?> 't
+                    let handler = EventHandler<ScrollEventArgs>(fun sender args -> func args)
+                    let event = content.Scroll
+
+                    event.AddHandler(handler)
+                    token.Register(fun () -> event.RemoveHandler(handler)) |> ignore
+
+            AttrBuilder<'t>.CreateSubscription<ScrollEventArgs>(name, factory, func, ?subPatchOptions = subPatchOptions)
+
+        /// <summary>
+        /// Gets a value that indicates whether the scrollbar can hide itself when user is not interacting with it.
+        /// </summary>
         static member allowAutoHide<'t when 't :> ScrollBar>(value: bool) : IAttr<'t> =
             AttrBuilder<'t>.CreateProperty<bool>(ScrollBar.AllowAutoHideProperty, value, ValueNone)
 
+        /// <summary>
+        /// Gets a value that determines how long will be the hide delay after user stops interacting with the scrollbar.
+        /// </summary>
+        static member hideDelay<'t when 't :> ScrollBar>(value: TimeSpan) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<TimeSpan>(ScrollBar.HideDelayProperty, value, ValueNone)
+
+        /// <summary>
+        /// Gets a value that indicates whether the scrollbar is expanded.
+        /// </summary>
         static member isExpanded<'t when 't :> ScrollBar>(value: bool) : IAttr<'t> =
             AttrBuilder<'t>.CreateProperty<bool>(ScrollBar.IsExpandedProperty, value, ValueNone)
-        
+
         /// <summary>
         /// Sets the amount of the scrollable content that is currently visible.
         /// </summary>
         static member viewportSize<'t when 't :> ScrollBar>(value: double) : IAttr<'t> =
             AttrBuilder<'t>.CreateProperty<double>(ScrollBar.ViewportSizeProperty, value, ValueNone)
-            
+
         /// <summary>
         /// Sets a value that indicates whether the scrollbar should hide itself when it is not needed.
-        /// </summary>    
+        /// </summary>
         static member visibility<'t when 't :> ScrollBar>(visibility: ScrollBarVisibility) : IAttr<'t> =
             AttrBuilder<'t>.CreateProperty<ScrollBarVisibility>(ScrollBar.VisibilityProperty, visibility, ValueNone)
 
         /// <summary>
         /// Sets the orientation of the scrollbar.
         /// </summary>
         static member orientation<'t when 't :> ScrollBar>(orientation: Orientation) : IAttr<'t> =
-            AttrBuilder<'t>.CreateProperty<Orientation>(ScrollBar.OrientationProperty, orientation, ValueNone)
+            AttrBuilder<'t>.CreateProperty<Orientation>(ScrollBar.OrientationProperty, orientation, ValueNone)
+
+        /// <summary>
+        /// Gets a value that determines how long will be the show delay when user starts interacting with the scrollbar.
+        /// </summary>
+        static member showDelay<'t when 't :> ScrollBar>(value: TimeSpan) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<TimeSpan>(ScrollBar.ShowDelayProperty, value, ValueNone)