Adding TScaledLayout wrapper

Author: lmbelo

Source/fmx/WrapFmxLayouts.pas

@@ -16,6 +16,16 @@ TPyDelphiLayout = class(TPyDelphiControl)
  property DelphiObject: TLayout read GetDelphiObject write SetDelphiObject;
  end;
 
+ TPyDelphiScaledLayout = class(TPyDelphiControl)
+ private
+ function GetDelphiObject: TScaledLayout;
+ procedure SetDelphiObject(const Value: TScaledLayout);
+ public
+ class function DelphiObjectClass : TClass; override;
+ // Properties
+ property DelphiObject: TScaledLayout read GetDelphiObject write SetDelphiObject;
+ end;
+
 implementation
 
 { Register the wrappers, the globals and the constants }
@@ -27,6 +37,26 @@ TLayoutsRegistration = class(TRegisteredUnit)
  procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
  end;
 
+{ TLayoutsRegistration }
+
+procedure TLayoutsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
+begin
+ inherited;
+end;
+
+function TLayoutsRegistration.Name: string;
+begin
+ Result := 'Layouts';
+end;
+
+procedure TLayoutsRegistration.RegisterWrappers(
+ APyDelphiWrapper: TPyDelphiWrapper);
+begin
+ inherited;
+ APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiLayout);
+ APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiScaledLayout);
+end;
+
 { TPyDelphiLayout }
 
 class function TPyDelphiLayout.DelphiObjectClass: TClass;
@@ -44,23 +74,21 @@ procedure TPyDelphiLayout.SetDelphiObject(const Value: TLayout);
  inherited DelphiObject := Value;
 end;
 
-{ TLayoutsRegistration }
+{ TPyDelphiScaledLayout }
 
-procedure TLayoutsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
+class function TPyDelphiScaledLayout.DelphiObjectClass: TClass;
 begin
- inherited;
+ Result := TScaledLayout;
 end;
 
-function TLayoutsRegistration.Name: string;
+function TPyDelphiScaledLayout.GetDelphiObject: TScaledLayout;
 begin
- Result := 'Layouts';
+ Result := TScaledLayout(inherited DelphiObject);
 end;
 
-procedure TLayoutsRegistration.RegisterWrappers(
- APyDelphiWrapper: TPyDelphiWrapper);
+procedure TPyDelphiScaledLayout.SetDelphiObject(const Value: TScaledLayout);
 begin
- inherited;
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiLayout);
+ inherited DelphiObject := Value;
 end;
 
 initialization