Introducing the TSaveDialog - Embarcadero/DelphiVCL4Python#28

Author: lmbelo

Source/vcl/WrapVclDialogs.pas

@@ -45,6 +45,17 @@   TPyDelphiFileOpenDialog = class(TPyDelphiComponent)
       write SetDelphiObject;
   end;
 
+  TPyDelphiSaveDialog = class(TPyDelphiOpenDialog)
+  private
+    function GetDelphiObject: TSaveDialog;
+    procedure SetDelphiObject(const Value: TSaveDialog);
+  public
+    class function DelphiObjectClass: TClass; override;
+    // Properties
+    property DelphiObject: TSaveDialog read GetDelphiObject
+      write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -102,6 +113,7 @@ procedure TDialogRegistration.RegisterWrappers(APyDelphiWrapper
   inherited;
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiOpenDialog);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiFileOpenDialog);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiSaveDialog);
 end;
 
 { TPyDelphiOpenDialog }
@@ -206,6 +218,23 @@ procedure TPyDelphiFileOpenDialog.SetDelphiObject(const Value: TFileOpenDialog);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiSaveDialog }
+
+class function TPyDelphiSaveDialog.DelphiObjectClass: TClass;
+begin
+  Result := TSaveDialog;
+end;
+
+function TPyDelphiSaveDialog.GetDelphiObject: TSaveDialog;
+begin
+  Result := TSaveDialog(inherited DelphiObject);
+end;
+
+procedure TPyDelphiSaveDialog.SetDelphiObject(const Value: TSaveDialog);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TDialogRegistration.Create);
   CoInitialize(nil);