[Jcl-checkins-diff] SF.net SVN: jcl:[2433] trunk/jcl/source/windows/JclShell.pas

[<ou...@us...>]

Revision: 2433
          http://jcl.svn.sourceforge.net/jcl/?rev=2433&view=rev
Author:   outchy
Date:     2008-08-18 16:07:01 +0000 (Mon, 18 Aug 2008)

Log Message:
-----------
Fixed suspicious warnings.

Modified Paths:
--------------
    trunk/jcl/source/windows/JclShell.pas

Modified: trunk/jcl/source/windows/JclShell.pas
===================================================================
--- trunk/jcl/source/windows/JclShell.pas	2008-08-18 15:57:03 UTC (rev 2432)
+++ trunk/jcl/source/windows/JclShell.pas	2008-08-18 16:07:01 UTC (rev 2433)
@@ -37,7 +37,7 @@
 {                                                                                                  }
 {**************************************************************************************************}
 {                                                                                                  }
-{ Last modified: $Date::                                                                         $ }
+{ Last modified: $Date::                                                                        $ }
 { Revision:      $Rev::                                                                          $ }
 { Author:        $Author::                                                                       $ }
 {                                                                                                  }
@@ -358,11 +358,11 @@
 begin
   Result := 0;
   if efFolders in Flags then
-    Result := Result or ord(SHCONTF_FOLDERS);
+    Result := Result or SHCONTF_FOLDERS;
   if efNonFolders in Flags then
-    Result := Result or ord(SHCONTF_NONFOLDERS);
+    Result := Result or SHCONTF_NONFOLDERS;
   if efIncludeHidden in Flags then
-    Result := Result or ord(SHCONTF_INCLUDEHIDDEN);
+    Result := Result or SHCONTF_INCLUDEHIDDEN;
 end;
 
 procedure ClearEnumFolderRec(var F: TEnumFolderRec; const Free, Release: Boolean);


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