[JVCL-Checkins] SF.net SVN: jvcl: [11739] trunk/jvcl/run/JvPageListTreeView.pas

[<ob...@us...>]

Revision: 11739
          http://jvcl.svn.sourceforge.net/jvcl/?rev=11739&view=rev
Author:   obones
Date:     2008-02-21 05:16:53 -0800 (Thu, 21 Feb 2008)

Log Message:
-----------
Pre BDS2006 support (Mantis 4348)

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

Modified: trunk/jvcl/run/JvPageListTreeView.pas
===================================================================
--- trunk/jvcl/run/JvPageListTreeView.pas	2008-02-21 13:01:42 UTC (rev 11738)
+++ trunk/jvcl/run/JvPageListTreeView.pas	2008-02-21 13:16:53 UTC (rev 11739)
@@ -569,7 +569,11 @@
 
 procedure TJvCustomPageListTreeView.DestroyWnd;
 begin
-  if CreateWndRestores and (Items.Count > 0) and (csRecreating in ControlState) then
+  if CreateWndRestores and
+     {$IFDEF COMPILER10_UP}
+     (csRecreating in ControlState) and
+     {$ENDIF COMPILER10_UP}
+     (Items.Count > 0) then
   begin
     FMemStream := TMemoryStream.Create;
     Items.WriteData(FMemStream);


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