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);