--- Merging r13852 into '.':

U    rtl/objpas/classes/compon.inc
U    rtl/objpas/classes/classesh.inc
--- Merging r13853 into '.':
G    rtl/objpas/classes/compon.inc
--- Merging r13854 into '.':
G    rtl/objpas/classes/compon.inc
--- Merging r13873 into '.':
G    rtl/objpas/classes/compon.inc
--- Merging r13874 into '.':
G    rtl/objpas/classes/compon.inc
G    rtl/objpas/classes/classesh.inc
--- Merging r13916 into '.':
G    rtl/objpas/classes/compon.inc
--- Merging r13917 into '.':
G    rtl/objpas/classes/compon.inc

# revisions: 13852,13853,13854,13873,13874,13916,13917
------------------------------------------------------------------------
r13852 | ivost | 2009-10-13 14:05:14 +0200 (Tue, 13 Oct 2009) | 3 lines
Changed paths:
   M /trunk/rtl/objpas/classes/classesh.inc
   M /trunk/rtl/objpas/classes/compon.inc

* fixed strange free notification behavior of TComponent. Must be some memory corruption or so.
* replaced deprecated Include / Exclude calls

------------------------------------------------------------------------
------------------------------------------------------------------------
r13853 | ivost | 2009-10-13 14:22:36 +0200 (Tue, 13 Oct 2009) | 2 lines
Changed paths:
   M /trunk/rtl/objpas/classes/compon.inc

* enhanced how observers are notified by subjects on destroying

------------------------------------------------------------------------
------------------------------------------------------------------------
r13854 | ivost | 2009-10-13 17:48:42 +0200 (Tue, 13 Oct 2009) | 2 lines
Changed paths:
   M /trunk/rtl/objpas/classes/compon.inc

* corrected some typo that was inserted by r13853

------------------------------------------------------------------------
------------------------------------------------------------------------
r13873 | ivost | 2009-10-16 19:34:50 +0200 (Fri, 16 Oct 2009) | 2 lines
Changed paths:
   M /trunk/rtl/objpas/classes/compon.inc

* reverted parts of r13852 (removed +/- with sets and added include/exclude)

------------------------------------------------------------------------
------------------------------------------------------------------------
r13874 | ivost | 2009-10-16 20:12:11 +0200 (Fri, 16 Oct 2009) | 3 lines
Changed paths:
   M /trunk/rtl/objpas/classes/classesh.inc
   M /trunk/rtl/objpas/classes/compon.inc

* readded BeforeDestructor that calls Destroying (delphi compatibility issue)
* uncommented code in Notification procedure (delphi compatibility issue)

------------------------------------------------------------------------
------------------------------------------------------------------------
r13916 | ivost | 2009-10-21 21:24:10 +0200 (Wed, 21 Oct 2009) | 2 lines
Changed paths:
   M /trunk/rtl/objpas/classes/compon.inc

* fixed setting wrong component state. csDesignInstance and csInline were set inversed.

------------------------------------------------------------------------
------------------------------------------------------------------------
r13917 | ivost | 2009-10-22 01:26:45 +0200 (Thu, 22 Oct 2009) | 2 lines
Changed paths:
   M /trunk/rtl/objpas/classes/compon.inc

  * reverted compon.inc to the state of r13298 (csFreeNotification maybe set even with no freelist allocated)

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@14674 -

rtl/objpas/classes/classesh.inc

@@ -1572,8 +1572,8 @@ type
 {$endif}    
     procedure WriteState(Writer: TWriter); virtual;
     constructor Create(AOwner: TComponent); virtual;
-    procedure BeforeDestruction; override;
     destructor Destroy; override;
+    procedure BeforeDestruction; override;
     procedure DestroyComponents;
     procedure Destroying;
     function ExecuteAction(Action: TBasicAction): Boolean; dynamic;