Adding TStyleBook wrapper

Author: lmbelo

Source/fmx/WrapFmxControls.pas

@@ -105,6 +105,16 @@   TPyDelphiTextControl = class(TPyDelphiStyledControl)
     property DelphiObject: TTextControl read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiStyleBook = class(TPyDelphiFmxObject)
+  private
+    function GetDelphiObject: TStyleBook;
+    procedure SetDelphiObject(const Value: TStyleBook);
+  public
+    class function DelphiObjectClass: TClass; override;
+    // Properties
+    property DelphiObject: TStyleBook read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 type
@@ -413,6 +423,7 @@ procedure TControlsRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiControl);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiStyledControl);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTextControl);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiStyleBook);
 end;
 
 { TControlsAccess }
@@ -655,6 +666,23 @@ procedure TPyDelphiTextControl.SetDelphiObject(const Value: TTextControl);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiStyleBook }
+
+class function TPyDelphiStyleBook.DelphiObjectClass: TClass;
+begin
+  Result := TStyleBook;
+end;
+
+function TPyDelphiStyleBook.GetDelphiObject: TStyleBook;
+begin
+  Result := TStyleBook(inherited DelphiObject);
+end;
+
+procedure TPyDelphiStyleBook.SetDelphiObject(const Value: TStyleBook);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TControlsRegistration.Create);