Deal with Embarcadero#6

pyscripter · pyscripter · commit 287628dad5da · 2022-12-29T13:32:48.000+02:00
__owned__ is now Read-Write property
diff --git a/Source/WrapDelphi.pas b/Source/WrapDelphi.pas
@@ -538,6 +538,7 @@   TPyDelphiObject = class (TPyInterfacedObject, IFreeNotificationSubscriber)
     // Exposed Getters
     function Get_ClassName(Acontext : Pointer) : PPyObject; cdecl;
     function Get_Owned(Acontext : Pointer) : PPyObject; cdecl;
+    function Set_Owned(AValue: PPyObject; AContext: Pointer): Integer;
     function Get_Bound(Acontext : Pointer) : PPyObject; cdecl;
     // implementation of interface IFreeNotificationSubscriber
     procedure Notify(ADeletedObject : TObject);
@@ -2496,7 +2497,7 @@ class procedure TPyDelphiObject.RegisterGetSets(PythonType: TPythonType);
         'Returns the TObject.ClassName', nil);
       AddGetSet('__bound__', @TPyDelphiObject.Get_Bound, nil,
         'Returns True if the wrapper is still bound to the Delphi instance.', nil);
-      AddGetSet('__owned__', @TPyDelphiObject.Get_Owned, nil,
+      AddGetSet('__owned__', @TPyDelphiObject.Get_Owned, @TPyDelphiObject.Set_Owned,
         'Returns True if the wrapper owns the Delphi instance.', nil);
     end;
 end;
@@ -2743,6 +2744,21 @@ class procedure TPyDelphiObject.SetupType(PythonType: TPythonType);
   end;
 end;
 
+function TPyDelphiObject.Set_Owned(AValue: PPyObject;
+  AContext: Pointer): Integer;
+var
+  _value : Boolean;
+begin
+  Adjust(@Self);
+  if CheckBoolAttribute(AValue, '__owned__', _value) then
+  begin
+    Owned := _value;
+    Result := 0;
+  end
+  else
+    Result := -1;
+end;
+
 function TPyDelphiObject.SqAssItem(idx: NativeInt; obj: PPyObject): integer;
 begin
   if HasContainerAccessClass then
