Adding TDateTimeColumn wrapper

Author: lmbelo

Source/fmx/WrapFmxGrids.pas

@@ -56,6 +56,16 @@ TPyDelphiDateTimeColumnBase = class(TPyDelphiColumn)
  property DelphiObject: TDateTimeColumnBase read GetDelphiObject write SetDelphiObject;
  end;
 
+ TPyDelphiDateTimeColumn = class(TPyDelphiColumn)
+ private
+ function GetDelphiObject: TDateTimeColumn;
+ procedure SetDelphiObject(const Value: TDateTimeColumn);
+ public
+ class function DelphiObjectClass : TClass; override;
+ // Properties
+ property DelphiObject: TDateTimeColumn read GetDelphiObject write SetDelphiObject;
+ end;
+
 implementation
 
 uses
@@ -91,6 +101,7 @@ procedure TGridsRegistration.RegisterWrappers(
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiProgressColumn);
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCheckColumn);
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiDateTimeColumnBase);
+ APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiDateTimeColumn);
 end;
 
 { TPyDelphiColumn }
@@ -179,6 +190,23 @@ procedure TPyDelphiDateTimeColumnBase.SetDelphiObject(
  inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiDateTimeColumn }
+
+class function TPyDelphiDateTimeColumn.DelphiObjectClass: TClass;
+begin
+ Result := TDateTimeColumn;
+end;
+
+function TPyDelphiDateTimeColumn.GetDelphiObject: TDateTimeColumn;
+begin
+ Result := TDateTimeColumn(inherited DelphiObject);
+end;
+
+procedure TPyDelphiDateTimeColumn.SetDelphiObject(const Value: TDateTimeColumn);
+begin
+ inherited DelphiObject := Value;
+end;
+
 initialization
  RegisteredUnits.Add(TGridsRegistration.Create);