Adding TStringColumn wrapper

Author: lmbelo

Source/fmx/WrapFmxGrids.pas

@@ -16,6 +16,16 @@   TPyDelphiColumn = class(TPyDelphiControl)
     property DelphiObject: TColumn read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiStringColumn = class(TPyDelphiColumn)
+  private
+    function  GetDelphiObject: TStringColumn;
+    procedure SetDelphiObject(const Value: TStringColumn);
+  public
+    class function  DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TStringColumn read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -47,6 +57,7 @@ procedure TGridsRegistration.RegisterWrappers(
 begin
   inherited;
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiColumn);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiStringColumn);
 end;
 
 { TPyDelphiColumn }
@@ -66,6 +77,23 @@ procedure TPyDelphiColumn.SetDelphiObject(const Value: TColumn);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiStringColumn }
+
+class function TPyDelphiStringColumn.DelphiObjectClass: TClass;
+begin
+  Result := TStringColumn;
+end;
+
+function TPyDelphiStringColumn.GetDelphiObject: TStringColumn;
+begin
+  Result := TStringColumn(inherited DelphiObject);
+end;
+
+procedure TPyDelphiStringColumn.SetDelphiObject(const Value: TStringColumn);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TGridsRegistration.Create);