From a6dc707e3ea1b189613de2c55c990f454335687c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 5 Dec 2015 18:24:10 +0000
Subject: [PATCH] IDE: view unit/form dialog: fixed ImagIndex

git-svn-id: trunk@50649 -
---
 ide/viewunit_dlg.pp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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);