Adding TPopup wrapper

Author: lmbelo

Source/fmx/WrapFmxControls.pas

@@ -115,6 +115,16 @@   TPyDelphiStyleBook = class(TPyDelphiFmxObject)
     property DelphiObject: TStyleBook read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiPopup = class(TPyDelphiStyledControl)
+  private
+    function GetDelphiObject: TPopup;
+    procedure SetDelphiObject(const Value: TPopup);
+  public
+    class function DelphiObjectClass: TClass; override;
+    // Properties
+    property DelphiObject: TPopup read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 type
@@ -683,6 +693,23 @@ procedure TPyDelphiStyleBook.SetDelphiObject(const Value: TStyleBook);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiPopup }
+
+class function TPyDelphiPopup.DelphiObjectClass: TClass;
+begin
+  Result := TPopup;
+end;
+
+function TPyDelphiPopup.GetDelphiObject: TPopup;
+begin
+  Result := TPopup(inherited DelphiObject);
+end;
+
+procedure TPyDelphiPopup.SetDelphiObject(const Value: TPopup);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TControlsRegistration.Create);