Browse Source

* Fix pas2js issue 39212

Michaël Van Canneyt 3 years ago
parent
commit
abac7a02bd
1 changed files with 4 additions and 2 deletions
  1. 4 2
      packages/fcl-js/src/jstree.pp

+ 4 - 2
packages/fcl-js/src/jstree.pp

@@ -158,7 +158,7 @@ Type
   end;
   end;
 
 
   { TJSElement }
   { TJSElement }
-
+  
   TJSElement = Class(TJSObject)
   TJSElement = Class(TJSObject)
   private
   private
     FData: TObject;
     FData: TObject;
@@ -167,8 +167,10 @@ Type
     FColumn: Integer;
     FColumn: Integer;
     FSource: String;
     FSource: String;
   Public
   Public
+    Type
+      TFreeNotifyEvent = Procedure(aEl : TJSElement) of object;
     class var
     class var
-      GlobalFreeHook : Procedure(aEl : TJSElement) of object;
+      GlobalFreeHook : TFreeNotifyEvent;
   Public
   Public
     Constructor Create(ALine,AColumn : Integer; Const ASource : String = ''); virtual;
     Constructor Create(ALine,AColumn : Integer; Const ASource : String = ''); virtual;
     Destructor Destroy; override;
     Destructor Destroy; override;