Adding TDateTimeColumnBase wrapper

Author: lmbelo

Source/fmx/WrapFmxGrids.pas

@@ -46,6 +46,16 @@   TPyDelphiCheckColumn = class(TPyDelphiColumn)
     property DelphiObject: TCheckColumn read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiDateTimeColumnBase = class(TPyDelphiColumn)
+  private
+    function  GetDelphiObject: TDateTimeColumnBase;
+    procedure SetDelphiObject(const Value: TDateTimeColumnBase);
+  public
+    class function  DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TDateTimeColumnBase read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -80,6 +90,7 @@ procedure TGridsRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiStringColumn);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiProgressColumn);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCheckColumn);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiDateTimeColumnBase);
 end;
 
 { TPyDelphiColumn }
@@ -150,6 +161,24 @@ procedure TPyDelphiCheckColumn.SetDelphiObject(const Value: TCheckColumn);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiDateTimeColumnBase }
+
+class function TPyDelphiDateTimeColumnBase.DelphiObjectClass: TClass;
+begin
+  Result := TDateTimeColumnBase;
+end;
+
+function TPyDelphiDateTimeColumnBase.GetDelphiObject: TDateTimeColumnBase;
+begin
+  Result := TDateTimeColumnBase(inherited DelphiObject);
+end;
+
+procedure TPyDelphiDateTimeColumnBase.SetDelphiObject(
+  const Value: TDateTimeColumnBase);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TGridsRegistration.Create);