Adding TPathLabel wrapper

Author: lmbelo

Source/fmx/WrapFmxStdCtrls.pas

@@ -319,6 +319,16 @@   TPyDelphiImageControl = class(TPyDelphiStyledControl)
     property DelphiObject: TImageControl read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiPathLabel = class(TPyDelphiStyledControl)
+  private
+    function GetDelphiObject: TPathLabel;
+    procedure SetDelphiObject(const Value: TPathLabel);
+  public
+    class function DelphiObjectClass: TClass; override;
+    // Properties
+    property DelphiObject: TPathLabel read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 { Register the wrappers, the globals and the constants }
@@ -377,6 +387,7 @@ procedure TStdCtrlsRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiExpanderButton);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiExpander);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiImageControl);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPathLabel);
 end;
 
 { TPyDelphiPresentedTextControl }
@@ -908,6 +919,23 @@ procedure TPyDelphiImageControl.SetDelphiObject(const Value: TImageControl);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiPathLabel }
+
+class function TPyDelphiPathLabel.DelphiObjectClass: TClass;
+begin
+  Result := TPathLabel;
+end;
+
+function TPyDelphiPathLabel.GetDelphiObject: TPathLabel;
+begin
+  Result := TPathLabel(inherited DelphiObject);
+end;
+
+procedure TPyDelphiPathLabel.SetDelphiObject(const Value: TPathLabel);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TStdCtrlsRegistration.Create);