[Instantobjects-cvscommit] SF.net SVN: instantobjects: [758] trunk/Source/Core/InstantPresentation.pas

[<fas...@us...>]

Revision: 758
          http://svn.sourceforge.net/instantobjects/revision/?rev=758&view=rev
Author:   fastbike2
Date:     2007-02-20 13:44:49 -0800 (Tue, 20 Feb 2007)

Log Message:
-----------
[ 1651153] TInstantCustomExposer.Filter bugfix

Modified Paths:
--------------
    trunk/Source/Core/InstantPresentation.pas

Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas	2007-02-01 04:27:01 UTC (rev 757)
+++ trunk/Source/Core/InstantPresentation.pas	2007-02-20 21:44:49 UTC (rev 758)
@@ -4077,14 +4077,20 @@
 
 procedure TInstantCustomExposer.SetFiltered(Value: Boolean);
 begin
-  if Value <> Filtered then
+  if Active then
   begin
-    inherited;
-    if Filtered then
-      First
-    else
-      Refresh;
-  end;
+    CheckBrowseMode;
+    if Filtered <> Value then
+    begin
+      inherited SetFiltered(Value);
+      if Value then
+        First
+      else
+        Refresh;
+    end;
+  end
+  else
+    inherited SetFiltered(Value);
 end;
 
 procedure TInstantCustomExposer.SetLimited(Value: Boolean);