From 6d72de84122a9981db5da0ee0cc015cb9851bc56 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 30 Jun 2011 19:43:49 +0000
Subject: [PATCH] colorpalette: Adds a nice error message to something that
 caused me trouble

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1723 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/colorpalette/colorpalette.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/colorpalette/colorpalette.pas b/components/colorpalette/colorpalette.pas
index 7ab0cc61d..dec833708 100644
--- a/components/colorpalette/colorpalette.pas
+++ b/components/colorpalette/colorpalette.pas
@@ -342,6 +342,9 @@ var
   end;
   
 begin
+  if not FileExists(FileName) then
+    raise Exception.Create(Format('[TCustomColorPalette.LoadPalette] File not found: %s', [FileName]));
+
   AssignFile(F, FileName);
   try
     Reset(F);