Adding the TTextControl wrapper

Author: lmbelo

Source/fmx/WrapFmxControls.pas

@@ -95,6 +95,16 @@ TPyDelphiStyledControl = class(TPyDelphiControl)
  property DelphiObject: TStyledControl read GetDelphiObject write SetDelphiObject;
  end;
 
+ TPyDelphiTextControl = class(TPyDelphiStyledControl)
+ private
+ function GetDelphiObject: TTextControl;
+ procedure SetDelphiObject(const Value: TTextControl);
+ public
+ class function DelphiObjectClass: TClass; override;
+ // Properties
+ property DelphiObject: TTextControl read GetDelphiObject write SetDelphiObject;
+ end;
+
 implementation
 
 type
@@ -402,6 +412,7 @@ procedure TControlsRegistration.RegisterWrappers(
  inherited;
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiControl);
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiStyledControl);
+ APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTextControl);
 end;
 
 { TControlsAccess }
@@ -627,6 +638,23 @@ function TPyDelphiStyledControl.Set_StyleLookup(AValue: PPyObject;
  Result := -1;
 end;
 
+{ TPyDelphiTextControl }
+
+class function TPyDelphiTextControl.DelphiObjectClass: TClass;
+begin
+ Result := TTextControl;
+end;
+
+function TPyDelphiTextControl.GetDelphiObject: TTextControl;
+begin
+ Result := TTextControl(inherited DelphiObject);
+end;
+
+procedure TPyDelphiTextControl.SetDelphiObject(const Value: TTextControl);
+begin
+ inherited DelphiObject := Value;
+end;
+
 initialization
  RegisteredUnits.Add(TControlsRegistration.Create);