Sync FMX units with the Embarcadero fork.

Author: pyscripter

Source/fmx/WrapDelphiFmx.pas

@@ -11,6 +11,9 @@ implementation
   WrapDelphiWindows,
   {$ENDIF MSWINDOWS}
   WrapDelphiDataBind,
+  {$IFNDEF LINUX}
+  WrapFmxDataBind,
+  {$ENDIF LINUX}
   WrapFmxTypes,
   WrapFmxControls,
   WrapFmxStdCtrls,
@@ -30,7 +33,6 @@ implementation
   WrapFmxMenus,
   WrapFmxStyles,
   WrapFmxMemo,
-  WrapFmxColors,
-  WrapFmxDataBind;
+  WrapFmxColors;
 
 end.

Source/fmx/WrapFmxGrids.pas

@@ -3,7 +3,7 @@
 interface
 
 uses
-  FMX.Grid, WrapFmxControls, WrapFmxScrollBox;
+  FMX.Grid, FMX.Grid.Style, WrapFmxControls, WrapFmxScrollBox;
 
 type
   TPyDelphiColumn = class(TPyDelphiControl)

Source/fmx/WrapFmxTypes.pas

@@ -148,6 +148,16 @@   TPyDelphiControlSize = class(TPyDelphiPersistent)
     property DelphiObject: TControlSize read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiTimer = class (TPyDelphiComponent)
+  private
+    function  GetDelphiObject: TTimer;
+    procedure SetDelphiObject(const Value: TTimer);
+  public
+    class function  DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TTimer read GetDelphiObject write SetDelphiObject;
+  end;
+
   {Helper functions}
   function WrapPointF(APyDelphiWrapper: TPyDelphiWrapper; const APoint : TPointF) : PPyObject;
   function WrapSizeF(APyDelphiWrapper: TPyDelphiWrapper; const ASize : TSizeF) : PPyObject;
@@ -289,6 +299,7 @@ procedure TTypesRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomPopupMenu);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiBounds);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiControlSize);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTimer);
 end;
 
 { Helper functions }
@@ -905,6 +916,23 @@ function TPyDelphiRectF.Set_Top(AValue: PPyObject; AContext: Pointer): integer;
       Result := -1;
 end;
 
+{ TPyDelphiTimer }
+
+class function TPyDelphiTimer.DelphiObjectClass: TClass;
+begin
+  Result := TTimer;
+end;
+
+function TPyDelphiTimer.GetDelphiObject: TTimer;
+begin
+  Result := TTimer(inherited DelphiObject);
+end;
+
+procedure TPyDelphiTimer.SetDelphiObject(const Value: TTimer);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TTypesRegistration.Create);
 end.