From 60f9fecfd1efc228b4d94bcfb568205d2eb23f17 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 26 Nov 2007 02:01:48 +0000
Subject: [PATCH] dont rebuild imagelist cache on application exit

git-svn-id: trunk@13027 -
---
 lcl/imagelistcache.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/imagelistcache.pas b/lcl/imagelistcache.pas
index 6260510e88..e78956b7b0 100644
--- a/lcl/imagelistcache.pas
+++ b/lcl/imagelistcache.pas
@@ -29,7 +29,7 @@ unit ImageListCache;
 interface
 
 uses
-  Classes, SysUtils, Graphics, ImgList, LCLProc;
+  Classes, SysUtils, Graphics, ImgList, LCLProc, Forms;
 
 type
   // interface that cache user should have to listen for cache changes
@@ -109,7 +109,7 @@ end;
 
 procedure TImageListCache.CheckRebuildNeed;
 begin
-  if FObsoletedCount >= ImageListCacheRebuildThreashold then
+  if (FObsoletedCount >= ImageListCacheRebuildThreashold) and not Application.Terminated then
     Rebuild;
 end;