Add support for Label Styles V1 like

samples/Xamarin.Forms/CounterApp/CounterApp/App.fs

@@ -41,6 +41,12 @@ module App =
     let init () =
         initModel (), []
 
+    let createStyleFor<'T when 'T :> BindableObject> setters =
+        let style = Style(typeof<'T>)
+        for property, value in setters do
+            style.Setters.Add(Setter(Property = property, Value = value))
+        style
+
     let update msg model =
         match msg with
         | Increment -> { model with Count = model.Count + model.Step }, []
@@ -57,6 +63,10 @@ module App =
                     Label(string model.Count)
                         .automationId("CountLabel")
                         .centerTextHorizontal()
+                        .style (
+                            createStyleFor [ Label.TextColorProperty, box Color.Green
+                                             Label.FontSizeProperty, box 24. ]
+                        )
 
                     Button("Increment", Increment)
                         .automationId("IncrementButton")

src/Fabulous.XamarinForms/WidgetExtensions.fs

@@ -84,7 +84,11 @@ type AdditionalViewExtensions =
     [<Extension>]
     static member inline centerTextHorizontal(this: Label<_>) =
         this.AddScalarAttribute(Label.HorizontalTextAlignment.WithValue(TextAlignment.Center))
-
+
+    [<Extension>]
+    static member inline style(this: Label<'msg>, style: Xamarin.Forms.Style) =
+        this.AddScalarAttribute(Label.Style.WithValue(style))
+
     [<Extension>]
     static member inline centerTextVertical(this: Label<_>) =
         this.AddScalarAttribute(Label.VerticalTextAlignment.WithValue(TextAlignment.Center))

src/Fabulous.XamarinForms/Xamarin.Forms.Core.Attributes.fs

@@ -50,6 +50,7 @@ module View =
 
 module Label =
     let Text = Attributes.defineBindable<string> Xamarin.Forms.Label.TextProperty
+    let Style = Attributes.defineBindable<Style> Xamarin.Forms.Label.StyleProperty
     let HorizontalTextAlignment = Attributes.defineBindable<TextAlignment> Xamarin.Forms.Label.HorizontalTextAlignmentProperty
     let VerticalTextAlignment = Attributes.defineBindable<TextAlignment> Xamarin.Forms.Label.VerticalTextAlignmentProperty
     let FontSize = Attributes.defineBindable<double> Xamarin.Forms.Label.FontSizeProperty