Addint TCurrencyColumn wrapper

Author: lmbelo

Source/fmx/WrapFmxGrids.pas

@@ -116,6 +116,16 @@ TPyDelphiCustomNumberColumn = class(TPyDelphiColumn)
  property DelphiObject: TCustomNumberColumn read GetDelphiObject write SetDelphiObject;
  end;
 
+ TPyDelphiCurrencyColumn = class(TPyDelphiCustomNumberColumn)
+ private
+ function GetDelphiObject: TCurrencyColumn;
+ procedure SetDelphiObject(const Value: TCurrencyColumn);
+ public
+ class function DelphiObjectClass : TClass; override;
+ // Properties
+ property DelphiObject: TCurrencyColumn read GetDelphiObject write SetDelphiObject;
+ end;
+
 implementation
 
 uses
@@ -157,6 +167,7 @@ procedure TGridsRegistration.RegisterWrappers(
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPopupColumn);
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiImageColumn);
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomNumberColumn);
+ APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCurrencyColumn);
 end;
 
 { TPyDelphiColumn }
@@ -348,6 +359,23 @@ procedure TPyDelphiCustomNumberColumn.SetDelphiObject(
  inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiCurrencyColumn }
+
+class function TPyDelphiCurrencyColumn.DelphiObjectClass: TClass;
+begin
+ Result := TCurrencyColumn;
+end;
+
+function TPyDelphiCurrencyColumn.GetDelphiObject: TCurrencyColumn;
+begin
+ Result := TCurrencyColumn(inherited DelphiObject);
+end;
+
+procedure TPyDelphiCurrencyColumn.SetDelphiObject(const Value: TCurrencyColumn);
+begin
+ inherited DelphiObject := Value;
+end;
+
 initialization
  RegisteredUnits.Add(TGridsRegistration.Create);