[JVCL-Checkins] SF.net SVN: jvcl: [10553] trunk/jvcl/run/JvDBSearchComboBox.pas

[<el...@us...>]

Revision: 10553
Author:   elahn
Date:     2006-04-23 03:14:10 -0700 (Sun, 23 Apr 2006)
ViewCVS:  http://svn.sourceforge.net/jvcl/?rev=10553&view=rev

Log Message:
-----------
Mantis #3657

Modified Paths:
--------------
    trunk/jvcl/run/JvDBSearchComboBox.pas
Modified: trunk/jvcl/run/JvDBSearchComboBox.pas
===================================================================
--- trunk/jvcl/run/JvDBSearchComboBox.pas	2006-04-23 09:42:11 UTC (rev 10552)
+++ trunk/jvcl/run/JvDBSearchComboBox.pas	2006-04-23 10:14:10 UTC (rev 10553)
@@ -363,7 +363,8 @@
   if Assigned(FDataLink.DataSet) then
     for I := 0 to Items.Count - 1 do
       FDataLink.DataSet.FreeBookmark(Pointer(Items.Objects[I]));
-  Items.Clear;
+  if not (csDestroying in ComponentState) then
+    Items.Clear;
 end;
 
 function TJvDBCustomSearchComboBox.GetResult: Variant;


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