Fix crash in Demo31. Accessing DelphiObject properties without calling Adjust(@self) in WrapVclComCtrls.pas.

pyscripter · pyscripter · commit 824cf1e0c185 · 2023-08-01T14:19:53.000+03:00
diff --git a/Source/vcl/WrapVclComCtrls.pas b/Source/vcl/WrapVclComCtrls.pas
@@ -351,6 +351,7 @@ function TPyDelphiPageControl.GetHitTestInfoAt_Wrapper(
 
 function TPyDelphiPageControl.Get_ActivePage(AContext: Pointer): PPyObject;
 begin
+  Adjust(@Self);
   Result := Wrap(DelphiObject.ActivePage);
 end;
 
@@ -364,6 +365,7 @@ function TPyDelphiPageControl.Get_ActivePageIndex(
 {$IFNDEF FPC}
 function TPyDelphiPageControl.Get_Canvas(AContext: Pointer): PPyObject;
 begin
+  Adjust(@Self);
   Result := Wrap(DelphiObject.Canvas);
 end;
 {$ENDIF FPC}
