bug fix #2332

ReleaseGenerators/PABCRtl/PABCRtl.pas

@@ -6,6 +6,6 @@ uses
   DrawManField, Events, FilesOperations, GraphABC, 
   GraphABCHelper, IniFile, PointerTools, PointRect, Robot, RobotField,
   RobotTaskMaker, RobotZadan, Sockets, Utils, VCL, Timers, PT4TaskMakerNET, RBDMUtils, SF, School, BlockFileOfT,
-  FormsABC, Collections, Arrays, ClientServer, WPFObjects, Graph3D, GraphWPF, __RedirectIOMode, __RunMode, __RtlUtils;
+  FormsABC, Collections, Arrays, ClientServer, WPFObjects, Controls, Graph3D, GraphWPF, __RedirectIOMode, __RunMode, __RtlUtils;
 
 end.

ReleaseGenerators/PABCRtl/PABCRtl32.pas

@@ -6,6 +6,6 @@ uses
   DrawManField, Events, FilesOperations, GraphABC, 
   GraphABCHelper, IniFile, PointerTools, PointRect, Robot, RobotField,
   RobotTaskMaker, RobotZadan, Sockets, Utils, VCL, Timers, PT4, PT4TaskMakerNET, RBDMUtils, SF, School, BlockFileOfT, 
-  FormsABC, Collections, Arrays, ClientServer, Graph3D, GraphWPF, WPFObjects, __RedirectIOMode, __RunMode, __RtlUtils;
+  FormsABC, Collections, Arrays, ClientServer, Graph3D, GraphWPF, WPFObjects, Controls, __RedirectIOMode, __RunMode, __RtlUtils;
 
 end.

TestSuite/errors/err0380.pas

@@ -0,0 +1,9 @@
+type
+  t1 = class
+    event ev1: ()->();
+  end;
+
+begin 
+  var o := new t1;
+  o.ev1();
+end.

TestSuite/errors/err0381.pas

@@ -0,0 +1,13 @@
+type
+  t1 = class(List<byte>)
+    
+    public procedure Add(item: byte); override;
+    begin
+      inherited Add(item);
+    end;
+    
+  end;
+  
+begin
+  new t1;
+end.

TreeConverter/TreeConversion/compilation_context.cs

@@ -3647,6 +3647,8 @@ namespace PascalABCCompiler.TreeConverter
                     {
                         return null;
                     }
+                    else if (cfn_sec.IsFinal)
+                        return null;
                 }
                 else
                 {

bin/Lib/Controls.pas

@@ -1239,6 +1239,11 @@ procedure SetActivePanel(p: PanelWPF);
 /// Графическое окно
 //function Window: WindowType;
 
+///--
+procedure __InitModule__;
+///--
+procedure __FinalizeModule__;
+
 implementation
 
 //uses GraphWPF;
@@ -1391,6 +1396,33 @@ begin
   Result := _ActivePanel;
 end;
 
+var
+  ///--
+  __initialized := false;
+
+var
+  ///--
+  __finalized := false;
+
+///--
+procedure __InitModule__;
+begin
+  if not __initialized then
+  begin
+    __initialized := true;
+    
+  end;
+end;
+
+///--
+procedure __FinalizeModule__;
+begin
+  if not __finalized then
+  begin
+    __finalized := true;
+  end;
+end;
+  
 initialization
 finalization  
 end.