Fmx grids wrappers

Source/fmx/WrapFmxComCtrls.pas

@@ -1,3 +1,5 @@
+{$I Definition.Inc}
+
 unit WrapFmxComCtrls;
 
 interface

Source/fmx/WrapFmxDialogs.pas

@@ -1,3 +1,5 @@
+{$I Definition.Inc}
+
 unit WrapFmxDialogs;
 
 interface

Source/fmx/WrapFmxForms.pas

@@ -1,3 +1,5 @@
+{$I Definition.Inc}
+
 unit WrapFmxForms;
 
 interface
@@ -72,6 +74,17 @@   TPyDelphiFrame = class(TPyDelphiControl)
     property DelphiObject: TFrame read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiScreen = class(TPyDelphiComponent)
+  private
+    function GetDelphiObject: TScreen;
+    procedure SetDelphiObject(const Value: TScreen);
+  public
+    // Class methods
+    class function DelphiObjectClass: TClass; override;
+    // Properties
+    property DelphiObject: TScreen read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -118,6 +131,7 @@ procedure TFormsRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomPopupForm);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiForm);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiFrame);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiScreen);
 end;
 
 { TPyDelphiApplication }
@@ -224,6 +238,23 @@ procedure TPyDelphiFrame.SetDelphiObject(const Value: TFrame);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiScreen }
+
+class function TPyDelphiScreen.DelphiObjectClass: TClass;
+begin
+  Result := TScreen;
+end;
+
+function TPyDelphiScreen.GetDelphiObject: TScreen;
+begin
+  Result := TScreen(inherited DelphiObject);
+end;
+
+procedure TPyDelphiScreen.SetDelphiObject(const Value: TScreen);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TFormsRegistration.Create);