Adding TCustomPresentedFramedVertScrollBox wrapper

Author: lmbelo

Source/fmx/WrapFmxScrollBox.pas

@@ -86,6 +86,16 @@   TPyDelphiPresentedFrameScrollBox = class(TPyDelphiCustomPresentedFrameScrollBo
     property DelphiObject: TPresentedFramedScrollBox read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiCustomPresentedFramedVertScrollBox = class(TPyDelphiCustomPresentedVertScrollBox)
+  private
+    function GetDelphiObject: TCustomPresentedFramedVertScrollBox;
+    procedure SetDelphiObject(const Value: TCustomPresentedFramedVertScrollBox);
+  public
+    class function DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TCustomPresentedFramedVertScrollBox read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -124,6 +134,7 @@ procedure TScrollBoxRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPresentedHorzScrollBox);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomPresentedFrameScrollBox);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPresentedFrameScrollBox);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomPresentedFramedVertScrollBox);
 end;
 
 { TPyDelphiCustomPresentedScrollBox }
@@ -270,6 +281,24 @@ procedure TPyDelphiPresentedFrameScrollBox.SetDelphiObject(
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiCustomPresentedFramedVertScrollBox }
+
+class function TPyDelphiCustomPresentedFramedVertScrollBox.DelphiObjectClass: TClass;
+begin
+  Result := TCustomPresentedFramedVertScrollBox;
+end;
+
+function TPyDelphiCustomPresentedFramedVertScrollBox.GetDelphiObject: TCustomPresentedFramedVertScrollBox;
+begin
+  Result := TCustomPresentedFramedVertScrollBox(inherited DelphiObject);
+end;
+
+procedure TPyDelphiCustomPresentedFramedVertScrollBox.SetDelphiObject(
+  const Value: TCustomPresentedFramedVertScrollBox);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TScrollBoxRegistration.Create);