Adding TMultiView wrapper

Author: lmbelo

Source/fmx/WrapFmxComCtrls.pas

@@ -26,6 +26,16 @@   TPyDelphiCustomMultiView = class(TPyDelphiPresentedControl)
     property DelphiObject: TCustomMultiView read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiMultiView = class(TPyDelphiCustomMultiView)
+  private
+    function GetDelphiObject: TMultiView;
+    procedure SetDelphiObject(const Value: TMultiView);
+  public
+    class function DelphiObjectClass: TClass; override;
+    // Properties
+    property DelphiObject: TMultiView read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -58,6 +68,7 @@ procedure TComCtrlsRegistration.RegisterWrappers(
   inherited;
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTabControl);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomMultiView);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiMultiView);
 end;
 
 { TPyDelphiTabControl }
@@ -95,6 +106,23 @@ procedure TPyDelphiCustomMultiView.SetDelphiObject(
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiMultiView }
+
+class function TPyDelphiMultiView.DelphiObjectClass: TClass;
+begin
+  Result := TMultiView;
+end;
+
+function TPyDelphiMultiView.GetDelphiObject: TMultiView;
+begin
+  Result := TMultiView(inherited DelphiObject);
+end;
+
+procedure TPyDelphiMultiView.SetDelphiObject(const Value: TMultiView);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add( TComCtrlsRegistration.Create );