From 6f8ec5099151ed3d05611566670c1250293127f0 Mon Sep 17 00:00:00 2001
From: Lucas Moura Belo <lucas.belo@live.com>
Date: Mon, 21 Dec 2020 10:17:33 -0300
Subject: [PATCH 1/2] Adding FMX.Dialogs.TOpenDialog wrapper

---
 Source/fmx/WrapFmxDialogs.pas | 114 ++++++++++++++++++++++++++++++++++
 1 file changed, 114 insertions(+)
 create mode 100644 Source/fmx/WrapFmxDialogs.pas

diff --git a/Source/fmx/WrapFmxDialogs.pas b/Source/fmx/WrapFmxDialogs.pas
new file mode 100644
index 00000000..8302e619
--- /dev/null
+++ b/Source/fmx/WrapFmxDialogs.pas
@@ -0,0 +1,114 @@
+unit WrapFmxDialogs;
+
+interface
+
+uses
+  FMX.Dialogs, WrapDelphiClasses, PythonEngine;
+
+
+type
+  TPyDelphiOpenDialog = class(TPyDelphiComponent)
+  private
+    function GetDelphiObject: TOpenDialog;
+    procedure SetDelphiObject(const Value: TOpenDialog);
+  protected
+    // Exposed Methods
+    function Execute_Wrapper(args: PPyObject): PPyObject; cdecl;
+    // Property Getters
+    function Get_filename(AContext: Pointer): PPyObject; cdecl;
+  public
+    class function DelphiObjectClass: TClass; override;
+    class procedure RegisterGetSets(PythonType: TPythonType); override;
+    class procedure RegisterMethods( PythonType : TPythonType ); override;
+    // Properties
+    property DelphiObject: TOpenDialog read GetDelphiObject
+      write SetDelphiObject;
+  end;
+
+implementation
+
+uses
+  WrapDelphi;
+
+{ Register the wrappers, the globals and the constants }
+type
+  TDialogRegistration = class(TRegisteredUnit)
+  public
+    function Name: string; override;
+    procedure RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper); override;
+    procedure DefineVars(APyDelphiWrapper: TPyDelphiWrapper); override;
+  end;
+
+{ TDialogRegistration }
+
+procedure TDialogRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
+begin
+  inherited;
+end;
+
+function TDialogRegistration.Name: string;
+begin
+  Result := 'Dialog';
+end;
+
+procedure TDialogRegistration.RegisterWrappers(
+  APyDelphiWrapper: TPyDelphiWrapper);
+begin
+  inherited;
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiOpenDialog);
+end;
+
+{ TPyDelphiOpenDialog }
+
+class function TPyDelphiOpenDialog.DelphiObjectClass: TClass;
+begin
+  Result := TOpenDialog;
+end;
+
+function TPyDelphiOpenDialog.Execute_Wrapper(args: PPyObject): PPyObject;
+begin
+  // We adjust the transmitted self argument
+  Adjust(@Self);
+  with GetPythonEngine do begin
+    if PyArg_ParseTuple( args, ':Execute') <> 0 then
+      Result := VariantAsPyObject(DelphiObject.Execute())
+    else
+      Result := nil;
+  end;
+end;
+
+function TPyDelphiOpenDialog.GetDelphiObject: TOpenDialog;
+begin
+  Result := TOpenDialog(inherited DelphiObject);
+end;
+
+function TPyDelphiOpenDialog.Get_filename(AContext: Pointer): PPyObject;
+begin
+  Adjust(@self);
+  Result := GetPythonEngine.VariantAsPyObject(DelphiObject.FileName);
+end;
+
+class procedure TPyDelphiOpenDialog.RegisterGetSets(PythonType: TPythonType);
+begin
+  inherited;
+  PythonType.AddGetSet('FileName', @TPyDelphiOpenDialog.Get_filename,
+    nil, '', nil);
+end;
+
+class procedure TPyDelphiOpenDialog.RegisterMethods(PythonType: TPythonType);
+begin
+  inherited;
+  PythonType.AddMethod('Execute', @TPyDelphiOpenDialog.Execute_Wrapper,
+    'TOpenDialog.Execute()'#10 +
+    'Displays the dialog');
+end;
+
+procedure TPyDelphiOpenDialog.SetDelphiObject(const Value: TOpenDialog);
+begin
+  inherited DelphiObject := Value;
+end;
+
+initialization
+  RegisteredUnits.Add(TDialogRegistration.Create);
+
+end.

From 710e791df3358b681ada4c9967a19592da741329 Mon Sep 17 00:00:00 2001
From: Lucas Moura Belo <lucas.belo@live.com>
Date: Mon, 21 Dec 2020 10:43:21 -0300
Subject: [PATCH 2/2] Inheritance correction

---
 Source/fmx/WrapFmxDialogs.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Source/fmx/WrapFmxDialogs.pas b/Source/fmx/WrapFmxDialogs.pas
index 8302e619..7a474ea2 100644
--- a/Source/fmx/WrapFmxDialogs.pas
+++ b/Source/fmx/WrapFmxDialogs.pas
@@ -3,11 +3,11 @@
 interface
 
 uses
-  FMX.Dialogs, WrapDelphiClasses, PythonEngine;
+  FMX.Dialogs, WrapFmxTypes, PythonEngine;
 
 
 type
-  TPyDelphiOpenDialog = class(TPyDelphiComponent)
+  TPyDelphiOpenDialog = class(TPyDelphiFmxObject)
   private
     function GetDelphiObject: TOpenDialog;
     procedure SetDelphiObject(const Value: TOpenDialog);