Adding TPopupColumn wrapper

Author: lmbelo

Source/fmx/WrapFmxGrids.pas

@@ -86,6 +86,16 @@   TPyDelphiDateColumn = class(TPyDelphiDateTimeColumnBase)
     property DelphiObject: TDateColumn read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiPopupColumn = class(TPyDelphiColumn)
+  private
+    function  GetDelphiObject: TPopupColumn;
+    procedure SetDelphiObject(const Value: TPopupColumn);
+  public
+    class function  DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TPopupColumn read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -124,6 +134,7 @@ procedure TGridsRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiDateTimeColumn);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTimeColumn);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiDateColumn);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPopupColumn);
 end;
 
 { TPyDelphiColumn }
@@ -263,6 +274,23 @@ procedure TPyDelphiDateColumn.SetDelphiObject(const Value: TDateColumn);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiPopupColumn }
+
+class function TPyDelphiPopupColumn.DelphiObjectClass: TClass;
+begin
+  Result := TPopupColumn;
+end;
+
+function TPyDelphiPopupColumn.GetDelphiObject: TPopupColumn;
+begin
+  Result := TPopupColumn(inherited DelphiObject);
+end;
+
+procedure TPyDelphiPopupColumn.SetDelphiObject(const Value: TPopupColumn);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TGridsRegistration.Create);