Browse Source

pastojs: fixed wrong setting rtl.TObjectDestroy

git-svn-id: trunk@48995 -
(cherry picked from commit c813fafa3748319a77085f0e98f8827d91f40799)
Mattias Gaertner 4 years ago
parent
commit
3f27a42938
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/pastojs/src/fppas2js.pp

+ 1 - 0
packages/pastojs/src/fppas2js.pp

@@ -15586,6 +15586,7 @@ begin
   else if El.IsExternal then
   else if El.IsExternal then
     exit(ConvertExtClassType(El,AContext));
     exit(ConvertExtClassType(El,AContext));
 
 
+  IsTObject:=false;
   if El.CustomData is TPas2JSClassScope then
   if El.CustomData is TPas2JSClassScope then
     begin
     begin
     Scope:=TPas2JSClassScope(El.CustomData);
     Scope:=TPas2JSClassScope(El.CustomData);