Adding TCustomScrollBox wrapper

Author: lmbelo

Source/fmx/WrapFmxLayouts.pas

@@ -3,7 +3,7 @@
 interface
 
 uses
- FMX.Layouts, WrapFmxControls, WrapDelphi;
+ FMX.Layouts, WrapDelphi, WrapFmxControls;
 
 type
  TPyDelphiLayout = class(TPyDelphiControl)
@@ -26,6 +26,16 @@ TPyDelphiScaledLayout = class(TPyDelphiControl)
  property DelphiObject: TScaledLayout read GetDelphiObject write SetDelphiObject;
  end;
 
+ TPyDelphiCustomScrollBox = class(TPyDelphiStyledControl)
+ private
+ function GetDelphiObject: TCustomScrollBox;
+ procedure SetDelphiObject(const Value: TCustomScrollBox);
+ public
+ class function DelphiObjectClass : TClass; override;
+ // Properties
+ property DelphiObject: TCustomScrollBox read GetDelphiObject write SetDelphiObject;
+ end;
+
 implementation
 
 { Register the wrappers, the globals and the constants }
@@ -55,6 +65,7 @@ procedure TLayoutsRegistration.RegisterWrappers(
  inherited;
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiLayout);
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiScaledLayout);
+ APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomScrollBox);
 end;
 
 { TPyDelphiLayout }
@@ -91,6 +102,24 @@ procedure TPyDelphiScaledLayout.SetDelphiObject(const Value: TScaledLayout);
  inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiCustomScrollBox }
+
+class function TPyDelphiCustomScrollBox.DelphiObjectClass: TClass;
+begin
+ Result := TCustomScrollBox;
+end;
+
+function TPyDelphiCustomScrollBox.GetDelphiObject: TCustomScrollBox;
+begin
+ Result := TCustomScrollBox(inherited DelphiObject);
+end;
+
+procedure TPyDelphiCustomScrollBox.SetDelphiObject(
+ const Value: TCustomScrollBox);
+begin
+ inherited DelphiObject := Value;
+end;
+
 initialization
  RegisteredUnits.Add(TLayoutsRegistration.Create);