Adding TGlyphColumn wrapper

Author: lmbelo

Source/fmx/WrapFmxGrids.pas

@@ -146,6 +146,16 @@   TPyDelphiIntegerColumn = class(TPyDelphiCustomNumberColumn)
     property DelphiObject: TIntegerColumn read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiGlyphColumn = class(TPyDelphiColumn)
+  private
+    function  GetDelphiObject: TGlyphColumn;
+    procedure SetDelphiObject(const Value: TGlyphColumn);
+  public
+    class function  DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TGlyphColumn read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -190,6 +200,7 @@ procedure TGridsRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCurrencyColumn);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiFloatColumn);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiIntegerColumn);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiGlyphColumn);
 end;
 
 { TPyDelphiColumn }
@@ -432,6 +443,23 @@ procedure TPyDelphiIntegerColumn.SetDelphiObject(const Value: TIntegerColumn);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiGlyphColumn }
+
+class function TPyDelphiGlyphColumn.DelphiObjectClass: TClass;
+begin
+  Result := TGlyphColumn;
+end;
+
+function TPyDelphiGlyphColumn.GetDelphiObject: TGlyphColumn;
+begin
+  Result := TGlyphColumn(inherited DelphiObject);
+end;
+
+procedure TPyDelphiGlyphColumn.SetDelphiObject(const Value: TGlyphColumn);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TGridsRegistration.Create);