Merge pull request #251 from Embarcadero/stdctrlswrappers

Stdctrls wrappers

Author: pyscripter

Source/fmx/WrapFmxControls.pas

@@ -7,7 +7,8 @@ interface
 uses
   Classes, SysUtils, TypInfo, Types,
   FMX.Types, FMX.Controls,
-  PythonEngine, WrapDelphi, WrapDelphiClasses, WrapFmxTypes;
+  PythonEngine, WrapDelphi, WrapDelphiClasses, WrapFmxTypes,
+  FMX.Controls.Presentation;
 
 type
   {
@@ -125,6 +126,16 @@   TPyDelphiPopup = class(TPyDelphiStyledControl)
     property DelphiObject: TPopup read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiPresentedControl = class(TPyDelphiStyledControl)
+  private
+    function GetDelphiObject: TPresentedControl;
+    procedure SetDelphiObject(const Value: TPresentedControl);
+  public
+    class function DelphiObjectClass: TClass; override;
+    // Properties
+    property DelphiObject: TPresentedControl read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 type
@@ -711,6 +722,24 @@ procedure TPyDelphiPopup.SetDelphiObject(const Value: TPopup);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiPresentedControl }
+
+class function TPyDelphiPresentedControl.DelphiObjectClass: TClass;
+begin
+  Result := TPresentedControl;
+end;
+
+function TPyDelphiPresentedControl.GetDelphiObject: TPresentedControl;
+begin
+  Result := TPresentedControl(inherited DelphiObject);
+end;
+
+procedure TPyDelphiPresentedControl.SetDelphiObject(
+  const Value: TPresentedControl);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TControlsRegistration.Create);