Adding TImageColumn wrapper

Author: lmbelo

Source/fmx/WrapFmxGrids.pas

@@ -96,6 +96,16 @@   TPyDelphiPopupColumn = class(TPyDelphiColumn)
     property DelphiObject: TPopupColumn read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiImageColumn = class(TPyDelphiColumn)
+  private
+    function  GetDelphiObject: TImageColumn;
+    procedure SetDelphiObject(const Value: TImageColumn);
+  public
+    class function  DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TImageColumn read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -135,6 +145,7 @@ procedure TGridsRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTimeColumn);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiDateColumn);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPopupColumn);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiImageColumn);
 end;
 
 { TPyDelphiColumn }
@@ -291,6 +302,23 @@ procedure TPyDelphiPopupColumn.SetDelphiObject(const Value: TPopupColumn);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiImageColumn }
+
+class function TPyDelphiImageColumn.DelphiObjectClass: TClass;
+begin
+  Result := TImageColumn;
+end;
+
+function TPyDelphiImageColumn.GetDelphiObject: TImageColumn;
+begin
+  Result := TImageColumn(inherited DelphiObject);
+end;
+
+procedure TPyDelphiImageColumn.SetDelphiObject(const Value: TImageColumn);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TGridsRegistration.Create);