diff --git a/ide/viewunit_dlg.pp b/ide/viewunit_dlg.pp
index 35ee19b791..83acd6b899 100644
--- a/ide/viewunit_dlg.pp
+++ b/ide/viewunit_dlg.pp
@@ -49,6 +49,7 @@ uses
 
 type
   TIDEProjectItem = (
+    piNone,
     piUnit,
     piComponent,
     piFrame
@@ -363,21 +364,19 @@ procedure TViewUnitDialog.OnIdle(Sender: TObject; var Done: Boolean);
     case ItemType of
     piUnit:
       begin
-        fFoundFiles[aFilename]:=ExtractFileName(aFilename);
       end;
     piComponent:
       begin
         CompClass:=FindLFMBaseClass(aFilename);
         if CompClass=pfcbcNone then exit;
-        fFoundFiles[aFilename]:=ExtractFileName(aFilename);
       end;
     piFrame:
       begin
         CompClass:=FindLFMBaseClass(aFilename);
         if CompClass<>pfcbcFrame then exit;
-        fFoundFiles[aFilename]:=ExtractFileName(aFilename);
       end;
     end;
+    fFoundFiles[aFilename]:=ExtractFileName(aFilename);
   end;
 
   procedure CheckDirectory(aDirectory: string);