[JVCL-Checkins] SF.net SVN: jvcl:[12303] trunk/jvcl/run/JvLinkedControls.pas

[<ah...@us...>]

Revision: 12303
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12303&view=rev
Author:   ahuser
Date:     2009-05-04 16:08:02 +0000 (Mon, 04 May 2009)

Log Message:
-----------
Fixed AV when JvCheckBox.LinkedControls is used with TJvFilenameEdit

Modified Paths:
--------------
    trunk/jvcl/run/JvLinkedControls.pas

Modified: trunk/jvcl/run/JvLinkedControls.pas
===================================================================
--- trunk/jvcl/run/JvLinkedControls.pas	2009-05-03 22:08:38 UTC (rev 12302)
+++ trunk/jvcl/run/JvLinkedControls.pas	2009-05-04 16:08:02 UTC (rev 12303)
@@ -179,7 +179,8 @@
     begin
       if Assigned(FOwnerControl) then
         FControl.RemoveFreeNotification(FOwnerControl);
-      if (Collection is TJvLinkedControls) and TJvLinkedControls(Collection).RestoreEnabled then
+      if (Collection is TJvLinkedControls) and TJvLinkedControls(Collection).RestoreEnabled and
+         not (csDestroying in FControl.ComponentState) then
         FControl.Enabled := FOriginalEnabled;
     end;
     if (FOwnerControl <> nil) and (csDestroying in FOwnerControl.ComponentState) then


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.